Changement de valeur au clic

the_worms · 26 Avril 2011

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 · 26 Avril 2011

Re : Changement de valeur au clic

Re,
La solution est en post#4
A+

the_worms · 26 Avril 2011

Re : Changement de valeur au clic

Exactement, je te remercie

A+

the_worms · 26 Avril 2011

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 · 26 Avril 2011

Re : Changement de valeur au clic

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

the_worms · 26 Avril 2011

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+

Changement de valeur au clic

the_worms

XLDnaute Nouveau

Hippolite

XLDnaute Accro

the_worms

XLDnaute Nouveau

the_worms

XLDnaute Nouveau

Hippolite

XLDnaute Accro

the_worms

XLDnaute Nouveau

Discussions similaires