anthoYS
XLDnaute Barbatruc
Bonjour;
comment adapter ce code pour faire simple, à savoir colorer de vert fluo la case double cliquée ?
merci
comment adapter ce code pour faire simple, à savoir colorer de vert fluo la case double cliquée ?
VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
couleurs = Array(RGB(0, 255, 0), RGB(255, 255, 0), RGB(255, 192, 0), RGB(255, 0, 0), RGB(255, 255, 255))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 5)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End Sub
merci