anthoYS
XLDnaute Barbatruc
Bonjour, Re,
Code à adapter à mon souhait. Car là il colore en rouge aussi... Et c'est pas en A ici.
Merci
Code à adapter à mon souhait. Car là il colore en rouge aussi... Et c'est pas en A ici.
VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.CountLarge > 1 Then Exit Sub
Dim x
x = Target.Interior.color
Application.EnableEvents = False
Select Case x
Case 65535
Target.Interior.color = 65280
Case 65280
Target.Interior.color = 250
Case 250
Target.Interior.color = xlNone
Case 16777215
Target.Interior.color = 65535
End Select
Application.EnableEvents = True
Cancel = True
End Sub
Merci