Re : Re: Macro bascule pour afficher du texte alternativement

Le
michir
Merci Daniel
J'ai mis ce code dans un module standard et affecté la macro à un bouto=
n, mais cela ne fonctionne pas ?
Sub bascule()
Public Var As Boolean
If Var = False Then
Var = True
MsgBox "Intervention sur site"
Else
Var = False
MsgBox "Intervention à distance"
End If
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #23407931
Bonjour,

Public Var As Boolean
Doit être en dehors de la procédure "sub"
'--------------
Public Var As Boolean
Sub bascule()
---
---
End Sub

--
Salutations
JJ


"michir"
Merci Daniel
J'ai mis ce code dans un module standard et affecté la macro à un bouton, mais cela ne fonctionne pas... ?
Sub bascule()
Public Var As Boolean
If Var = False Then
Var = True
MsgBox "Intervention sur site"
Else
Var = False
MsgBox "Intervention à distance"
End If
End Sub
Publicité
Poster une réponse
Anonyme