Double clic insère valeur

[gotlapal]

Bonjour à tous,

j'ai à nouveau besoin du forum pour mes "bidouillages"

Je cherche à faire apparaitre un "X" dans chaque cellule de la colonne D (de "D3 à Fin uniquement) par un double clic dans la cellule.

Je veux aussi que ce "X" disparaisse lorsque je double clic à nouveau dans la cellule

Pouvez vous m'indiquer la marche à suivre car je galère pour trouver

Merci

 

[Staple1600]

Re : Double clic insère valeur

Bonjour

Dans le code de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("[B]D : D"[/B])) Is Nothing And Target.Row > 3 Then
'supprimer les le sespaces entre les deux D
If Target = "X" Then
Target = ""
Else
Target = "X"
End If
End If
End Sub

 

[gotlapal]

Re : Double clic insère valeur

Merci d'avoir répondu aussi vite,

ça fonctione parfaitement. merci