XL 2013 Colorier plusieurs cellules avec un seul Click...

[Yvan1]

Bonjour,

J'utilise la macro VBA suivante pour noircir / blanchir une cellule, dans une plage définie.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("E5:E7500")) Is Nothing Then
c = Target.Interior.ColorIndex
d = Target.Value
Cancel = True
Target.Interior.ColorIndex = Switch(c = xlNone, 1, c = 1, xlNone)
Target.Value = Switch(d = 0, 1, d = 1, 0)
End If

mais, je voudrais qu'en cliquant dans l'une des cellules de cette plage, cela noircisse / blanchisse non seulement la cellule dans laquelle on clique mais également les 10 cellules sur la droite.

Merci d'avance,

 

[Chris401]

Bonsoir
Essaye

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("E5:E7500")) Is Nothing Then
c = Target.Interior.ColorIndex
d = Target.Value
Cancel = True
Target.Resize(1, 11).Interior.ColorIndex = Switch(c = xlNone, 1, c = 1, xlNone)
Target.Value = Switch(d = 0, 1, d = 1, 0)
End If
End Sub

 

[Yvan1]

Nickel, ça fonctionne parfaitement.
Merci beaucoup.