Modifier couleur d'une cellule selon sa valeur

Bonjour,

L'évènement SelectionChange est déclenché lorsque la selection change et non la valeur.

Autre chose (si tu fait la modif tu verra que ça marche plus), évite de travaillé avec les ActiveCell et utilise les paramètres de la fonction dans laquelle tu te trouve.

Mais non, cellR n'est pas une chaîne de caractères, c'est une cellule !
Et sinon, tu connais Else ?

Ah les cellules actives ... Merci tantal !

Ton problème résolu :

If Target.Value > 0 Then
    Target.Interior.ColorIndex = Target.EntireRow.Cells(1).Interior.ColorIndex
Else
    Target.Interior.ColorIndex = xlNone
End If

Allez, juste pour se la pêter :

Target.Interior.ColorIndex = Iif(Target.Value > 0, Target.EntireRow.Cells(1).Interior.ColorIndex, xlNone)

Bonjour,

Merci! Ça fonctionne comme voulu. La modification des couleurs doit s'effectuer dans une plage de cellule seulement, j'ai donc ajouter ces lignes:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("D2:I65535")) Is Nothing Then

        If Target.Value > 0 Then

            Target.Interior.ColorIndex = Target.EntireRow.Cells(1).Interior.ColorIndex

        Else

            Target.Interior.ColorIndex = xlNone

        End If

End If

End Sub

Ça fontionne toujours bien. Le problème c'est lorsque qu'on modifie plusieurs cellule à la fois ou bien qu'on supprime une ligne (sélection multiple donc), j'ai une erreur "incompatibilité de type" sur la ligne 3.

Est-ce bien compliqué à gérer?

Merci

Bonjour,


C'est par-ce-que plusieurs cellules sont modifiées en même temps et donc ton target est une range de plusieurs cellules.

Il faudrait, par exemple, utiliser une boucle for each

Option Explicit
Const LAST_ROW = 65535
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
     Dim cellule As Range
 
    For Each cellule In Target
        If cellule.Value > 0 Then
 
           cellule.Interior.ColorIndex = cellule.EntireRow.Cells(1).Interior.ColorIndex
        Else: cellule.Interior.ColorIndex = xlNone
        End If
 
        If cellule.End(xlDown).Row >= LAST_ROW Then Exit Sub  'On quitte si dernière cellule
    Next cellule
 
End Sub

Bonjour,

Super ça fonctionne très bien!! Merci de vos réponse.

Bonne soirée

Euh, spa bon, ça mon cher Tantal.

Imagine que la feuille ne contiennent que des données sur la ligne 1 et que Target soient "A1:B1".

Que fait faire ta ligne

If cellule.End(xlDown).Row >= LAST_ROW Then Exit Sub

dès la première cellule ?
Un bug !  

------------------------

Pis 65536 lignes, c'est une limite 16Bits (!) Les dernières versions d'Excel acceptent plus de lignes et plus de colonnes.
Donc

LAST_ROW = Rows.Count

Ah oui, au temps pour moi  
Ce truc ne marche que si l'on ne travaille qu'avec une colonne.
Faut tester les colonnes aussi :

If cellule.End(xlDown).Row >= Rows.Count And cellule.End(xlToRight).Column >= Columns.Count Then Exit Sub

Toujours pas d'accord.
Applique ton algo à ce tableau :

(Observe que la cellule C3 est vide   )

     

Oui, effectivement, ça ne marche pas  

Abus d'optimisation.

En effet, c'est une optimisation par approximation statistique  

Une idée serais d'utiliser .SpecialCells(xlLastCell) pour réduire la plage de Target ; le gain peut être assez faible, par contre.

J'ai une autre approche : c'est la zone modifiée qui est passée en paramètre dans Target. Donc soit de très nombreuses cellules sont modifiées et il va falloir toutes les vérifier, soit ce ne sont que quelques une et Target n'en contiendra que très peu.

Donc je me demande bien pourquoi chercher à optimiser ce truc !
 

Mais bien sûr, ce raisonnement ne s'applique qu'à ce cas particulier.

En règle générale, vouloir à tout prix sortir le plus vite possible d'une boucle infinie ou presque est très honorable  

Ben, en fait, j'avais rajouté ça car lorsque l'on fait un copier/coller d'une colonne complète, ça boucle jusqu'en bas, même si les cellules sont vide et qu'il n'y a donc rien à faire.

C'est tout à fait légitime, et si je me suis penché sur ta proposition, c'est parce que je lui trouvais un intérêt certain. Mais hélas, on entre dans une telle complication !

MS s'est arrêté à mi-chemin. Il faudrais un truc du genre

SpecialCells(xlCellType[b]Not[/b]Blanks)

>> MS s'est arrêté à mi-chemin.
Tu prêches un converti.