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
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