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

Christian_67240

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour

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

VB:
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
 

vgendron

XLDnaute Barbatruc
VB:
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
 

Statistiques des forums

Discussions
292 869
Messages
1 926 872
Membres
183 294
dernier inscrit
MINA82