Boîtes de dialogue (très simple)

Commenter

Contenu du snippet

'Créez sur votre feuille un bouton appelé "COMMAND1"
'La deuxième ligne va être la définition du type de message box :
' - classique (juste le bouton OK)
' - OK + Annuler
' - Oui + Non + Annuler
' - OK + Aide
' - Réessayer + Abandon
' - etc...
'La "fonction" entre parenthèses est divisée en 3 parties :
' - la première est la phrase contenue dans la boîte de dialogue
' - la seconde est le type de boîte
' - la troisième est le titre de la boîte
'La deuxième partie de la source est le traitement de la réponse de l'utilisateur
'(que faire s'il clique sur "OUI", ou sur "NON, ou sur "ANNULER"
'La variable "REP" est la réponse de l'utilisateur. Si REP = vbYes (OUI), alors
'fais ceci ou cela. Etc. Dans mon exemple, je lui fais afficher une deuxième boîte
'de dialogue : "ENREGISTRE"

Source / Exemple : 


Private Sub Command1_Click()
Rep = MsgBox("Voulez-vous enregistrer votre travail ?", vbYesNoCancel, "Attention")
If Rep = vbYes Then
MsgBox "Enregistré !"
ElseIf Rep = vbNo Then
MsgBox "Non enregistré !"
Else
MsgBox "Annulé !"
End If
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_rodo22)