Changement de valeur au clic

[the_worms]

Bonjour à tous,

J'ai à besoin nouveau de votre aide pour le code VBA que j'utilise.
Je vous explique, j'utilise un code qui génère des cases vides dans une plage lorsqu'on double clic sur la case elle se remplie (grâce à l'utilisation de caractère Wingdings.

Je voudrais effectuer exactement la même manipulation mais par un simple clic-gauche.

ci-joint voilà le code que j'utilise actuellement :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not (Intersect(Target, Range("plage")) Is Nothing) Then
Target.Font.Name = "Wingdings"
Target.HorizontalAlignment = xlCenter
Cancel = True
Target.Value = inverse(Target.Value)
End If
End Sub

Est-ce que quelqu'un à une solution ?

Merci d'avance pour votre aide =)
Est-ce que quelqu'un à une solution ,

 

[Hippolite]

Re : Changement de valeur au clic

Re,
La solution est en post#4
A+

 

[the_worms]

Re : Changement de valeur au clic

Exactement, je te remercie

A+

 

[the_worms]

Re : Changement de valeur au clic

en fait, je viens de voir un autre problème en dupliquant le code sur le bon fichier.

Le nombre de ligne à cocher est aux alentours des 150.. et lorsque la personne va cocher la checkbox en ligne 140, le code renvoie automatiquement l'utilisateur en début de feuille.

Il y aurait pas une solution pour dire de renvoyer dans la case à droite de celle dans laquelle on se trouve ?

 

[Hippolite]

Re : Changement de valeur au clic

Re,
Target.Offset(0,1).Select
A+

 

[the_worms]

Re : Changement de valeur au clic

Encore une fois je te remercie.
Cela corrige mon problème, et j'avais beau chercher depuis toute à l'heure je ne trouvais pas de solution par la fonction range.
Merci, A+