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,
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,