Colorer les cases après double clic

[anthoYS]

Bonjour,

Quelqu'un a t-il idée d'une macro permettant de colorer la case (cellule) voulu, par double clic?

Merci par avance, voir fichier joint.

 

[Dull]

Re : Colorer les cases après double clic

salut antonYs, le Forum

a tester dans le Module de La feuille en question

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, [B3:N15]) Is Nothing Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
End Sub

Bonne Journée

 

[anthoYS]

Re : Colorer les cases après double clic

Merci Dull,
ça marche!