Insertion par double-clic

Bonjour,

je souhaiterai dans la colonne A de ma feuille de calcul, insérer le caractère V par double clic, pour indiquer que les lignes concernées par le V ont été traitées.

Merci pour votre aide.

J'ai recherché sur le forum une solution, mais je n'ai pas trouvé.

Bonne journée.

Bonjour,

A mettre dans le module de la feuille concernée :

    If Target.Column <> 1 Then Exit Sub

    Target.Value = "V"

End Sub

Hervé.

Bonjour Theze,

merci pour la réponse.

J'ai bien fait un copier/coller du code, mais cela ne fonctionne pas.

Une idée ??

Merci

Bonjour,

il manquait juste la 1ère ligne...

<Et si tu préfères une bascule, à mettre dans le module de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column > 1 Then Exit Sub
    Cancel = True
    Application.EnableEvents = False
    If Target = "V" Then Target = "" Else Target = "V"
    Application.EnableEvents = True
End Sub

eric

Bonjour eriiic,

merci pour ta réponse, ça marche super.

C'est exactement ce que je souhaitais.

Par contre, tu me parles de "bascule"

Peux tu me dire en 2 mots de quoi il s'agit stp ? Le VBA et moi, c'est pas tout à fait ça

Merci

1er double-clic : "V"

2nd double-clic : "" (enlève la coche)

eric

D'accord,

merci beaucoup.

¶r