Case à remplir par un clique

bonjour

je voudrais lorsque je clique deux fois sur les cases encadré

Ex : rectangle - pour information , qu'il devienne NOIR

excel 2003

car je veux pas utiliser les outils formulaire , car lorsque l on répond au document tout est décaler.

Merci de votre aide

ci-joint document !

cordialement

Bonjour dans le code de ta feuil

met ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("C18")) Is Nothing Then
        Target.Interior.ColorIndex = 1
    End If
End Sub

si tu veux que cela marche pour d'autre case

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("C18, C20, C22, ... etc")) Is Nothing Then
        Target.Interior.ColorIndex = 1
    End If
End Sub

bonjour

je viens de tester , extra !

mais si erreur de clique on peut inverser et sélection !

merci beaucoup

Cordialement