Modification code

[gourdin]

Bonjour,

J'utilise le code suivant (merci le forum) pour mettre en vert les celulles de même valeur après clic droit :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True
For Each c In Range("B3😀100")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub

Je souhaiterai également que les 2 cellules immédiatement à droite des cellules devenues vertes deviennent aussi vertes.

Merci

 

[gourdin]

Re : Modification code

Après test c'est parfait

Merci beaucoup

 

[hbenalia]

Re : Modification code

Bonjour à tous,


Essayes aussi avec le code suivant:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True
For Each c In Range("B3:B100")
Set y = Range(Cells(c.Row, 2), Cells(c.Row, 4))
If c = Target Then y.Interior.ColorIndex = IIf(y.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub

Cordialement