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

Yvan1

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

XLDnaute Accro
Bonsoir
Essaye

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

Discussions similaires

Réponses
2
Affichages
397

Statistiques des forums

Discussions
297 993
Messages
1 964 947
Membres
200 777
dernier inscrit
BLUMI