Utilisation de la variable booléenne

Bonsoir

bonsoir j'essaie de faire une fonction deux en un sur un meme bouton de formulaire ..soucis c'est que le processus ne s'arrete plus

je voudrai en cliquant à chaque fois pouvoir modifier le contenu de ma cellule A1 en ayant soit "bonjour " soit "hello" et donc j'aimerai pouvoir placer un moyen de sortie

Dim x As Boolean
x = True  'j'initialise ma variable à "vraie"
1:
If x = True Then
Range("a1") = " bonjour"
x = False  ' je fixe ma variable sur faux pour pouvoir obtenir "hello" au second clic
End If

If x = False Then
Range("a1") = " hello"
x = True
GoTo 1   'pour pouvoir obtenir "bonjour " au clic suivant.
End If

End Sub

y a t il une petite chose à ajouter à ce code pour le parfaire et eviter que le processus se repete tout seul ? merci pour tout

vos conseils

Bonsoir

Avec ce code dans le code du bouton

  Range("A1") = IIf(Range("A1") = " bonjour", " hello", " bonjour")

Pal mal !! en effet ....rien a en redire c'est super simplifié

Merci à toi Banzai

Une dernière petite question , Banzai , peut on de la meme facon faire "jouer" deux macro avec la meme methode ?

Bonsoir

rocket4 a écrit :

peut on de la meme facon faire "jouer" deux macro avec la meme methode ?

Essayes et tu diras