XL 2019 Changement de couleur d'une cellule simplement en cliquant dessus

[Christian_67240]

Bonjour,

Dans un tableau, je voudrais que lorsque je clique sur une cellule, elle change de couleur en fonction de ce que le montant situé dans la cellule immédiatement à gauche est positif ou négatif.

La macro suivante fonctionne bien, mais je ne sais pas comment l'adapter pour que la couleur soit différente en fonction de la cellule d'à côté.

Sub worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:C34,F3:F34,I3:I34,L3:L34,O3:O34,R3:R34,U3:U34,X3:X34,AA3:AA34,AD3:AD34,AG3:AG34,AJ3:AJ34")) Is Nothing Then
Range(Target.Address).Interior.ColorIndex = 3
End If
End Sub

Merci si vous pouvez m'aider

 

[vgendron]

Bonjour

avec un fichier exemple, ce serait pas mal..
et le minimum serait d'expliquer le critère qui fait que la couleur change..

Sub worksheet_Change(ByVal Target As Range)
   If Not Application.Intersect(Target,Range("C3:C34,F3:F34,I3:I34,L3:L34,O3:O34,R3:R34,U3:U34,X3:X34,AA3:AA34,AD3:AD34,AG3:AG34,AJ3:AJ34")) Is Nothing Then
   select case target.offset(0,-1) 'selon le contenu de la cellule à gauche
      case 1 'si ca contient 1
            NumCouleur=5
    case 2 'si ca contient2
           Numcouleur=3
end select

   Range(Target.Address).Interior.ColorIndex = Numcouleur
End If
End Sub

 

[Christian_67240]

Bonjour,

Excusez-moi, il me semblait l'avoir précisé.
Le critère de changement de couleur est simplement que le montant figurant dans la cellule immédiatement à gauche de celle cliquée soit négatif ou positif.

 

[vgendron]

Sub worksheet_Change(ByVal Target As Range)
   If Not Application.Intersect(Target,Range("C3:C34,F3:F34,I3:I34,L3:L34,O3:O34,R3:R34,U3:U34,X3:X34,AA3:AA34,AD3:AD34,AG3:AG34,AJ3:AJ34")) Is Nothing Then
   if  target.offset(0,-1)>0 then
          NumCouleur=3
    else
           Numcouleur=2
   end if

   Range(Target.Address).Interior.ColorIndex = Numcouleur
End If
End Sub

adapter les numcouleurs selon le besoin

 

[Christian_67240]

Ca marche impeccable, merci beaucoup