Discussion :

[Mas_Carpone]

J'ai trouvé le moyen de déclencher l'ouverture d'un MsgBox (olé! ) et voudrais maintenant définir différents évènements aux différents choix (Yes, No, Cancel).

Dois-je utiliser If...Then et si oui, comment définir les évènements click Yes, No ou Cancel?

Merci

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
res = MsgBox("Selectionner...", vbYesNoCancel, "titre")
 
Select Case res
    Case Is = vbYes
MsgBox "yes"  
'lignes si yes
    Case Is = vbNo
MsgBox "no"
'lignes si no
    Case Is = vbCancel
MsgBox "canceled"
'ligne si cancel
End Select
'...

[Mas_Carpone]

[aalex_38]

Bonjour à tous,


Les retours que l'on peut tester dépendent aussi du type de boutons :
Extrait d'un exemple perso :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Result = MsgBox(Choix_CO1 & " (" & i & ")", i + j + k, Choix_CO2 & " " & Choix_CO3)
 
Select Case Result
Case 1
    Result = "Bouton OK"
Case 2
    Result = "Bouton Annuler"
Case 3
    Result = "Bouton Abandonner"
Case 4
    Result = "Bouton Répéter"
Case 5
    Result = "Bouton Ignorer"
Case 6
    Result = "Bouton Oui"
Case 7
    Result = "Bouton Non"
Case Else
End Select
 
MsgBox Result