mettre un vba uniquement sur 3colonnes et non sur feuille complete

[michigan]

Bonjour,
sur mon fichier j ai un vba qui s applique sur toute la feuille, mais moi je souhaite que ceci s applique uniquement sur 3 colonnes bien precise.
Sur le tableau je double click sur n importe quelle case et une croix si insère automatiquement. Hors moi je souhaite que cela s applique uniquement en C,D,E.
Et lorsque j ai une croix en C et que je double click en D ou E de la meme ligne, la croix en C doit s effacer automatiquement. En gros une croix par ligne doit etre possible seulement.
Merci

 

[kjin]

Re : mettre un vba uniquement sur 3colonnes et non sur feuille complete

Bonsoir,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x$
If Target.Column < 3 Or Target.Column > 5 Or Target.Row < 3 Then Exit Sub
Cancel = True
x = Target
Cells(Target.Row, 3).Resize(1, 3).ClearContents
If x = "x" Then
    Target = ""
Else
    Target = "x"
End If
End Sub

A+
kjin