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 :
Est-ce que quelqu'un à une solution ?
Merci d'avance pour votre aide =)
Est-ce que quelqu'un à une solution ,
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 ,