Changement de valeur au doubleclic 3 choix

[Demouret]

Bonjour Le Forum,

J'ai trouvé ce code sur le forum et je voudrais savoir si je peux le modifier en ce sens :

J'aimerai avoir un 3ème choix..
En fait si je double clique une fois ca m'afficherait "ü", puis une deuxieme foif "x" (par exemple), puis une troisième fois pour revenir à ""

Je ne sais pas si c'est possible mais en tout cas c'est au dessus de mes forces...;-)

(si au passage on pouvait me redire comment mettre les balises codes...)

Merci à vous tous

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With Target.Range("A1")
If .Column = 4 And .Row >= 7 And .Row <= 100 Then
.Font.Name = "Wingdings"
If .Value = "ü" Then
.Value = ""
Else
.Value = "ü"
End If
End With
Cancel = True
End Sub


Bon WEEK

 

[Demouret]

Re : Changement de valeur au doubleclic 3 choix

Oups !!

Je me suis sousestimé j'ai trouvé...

Merci

(en revanche pour les balises je suis preneur ;-))

 

[gilbert_RGI]

Re : Changement de valeur au doubleclic 3 choix

Bonsoir

comme ceci peut-être

🙄

 

[gilbert_RGI]

Re : Changement de valeur au doubleclic 3 choix

Oups !!

Je me suis sousestimé j'ai trouvé...

Merci

(en revanche pour les balises je suis preneur ;-))

aller dans mode avance et cliquer sur le # 😎

 

[Demouret]

Re : Changement de valeur au doubleclic 3 choix

Merci
Je vais me noter ça quelque part
Bon WE

 

[gilbert_RGI]

Re : Changement de valeur au doubleclic 3 choix

une autre possibilité de coder

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target <> [A1] Then Exit Sub
    Select Case Target.Value
    Case ""
        Target.Value = "ü"
    Case "ü"
        Target.Value = "x"
    Case "x"
        Target.Value = ""
    End Select
End Sub

🙄