Discussion :

[jean30]

Bonjour chers amis du forum,
J'ai un petit problème avec un Msgbox
Je voudrai que si la réponse est Non alors Exit Sub, si Oui, exécution du code
Le Msgbox renvoi toujours sur Non
Merci de m'aider

Code :

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

1
2
3
4
5
6
          MsgBox "Le fichier .... est-il ouvert ?" & Chr(10) & "                   et" & Chr(10) & "La feuille .... est-elle activée ?", vbYesNo + vbCritical, "Transfert de données"
 
            If Rep = No Then
                Exit Sub
            Else
            Poursuite du code

[Igloobel]

Bonjour,

C'est normal il faut une variable pour récuperer la valeur cliquer sur le bouton du MsgBox

va voir ce tuto

https://fring.developpez.com/vba/excel/msgbox/

[halaster08]

Bonjour,

If Rep = No Then

C'est quoi rep ? où lui donne tu une valeur ?

Tu devrais consulter ce tuto: https://fring.developpez.com/vba/excel/msgbox/#L3.1

[Menhir]

va voir ce tuto
https://fring.developpez.com/vba/excel/msgbox/

Et aussi l'aide VBA : https://docs.microsoft.com/fr-fr/off...sgbox-function

[BENNASR]

Code :

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

If MsgBox("Etes-vous certain de vouloir quitter sans enregistrer !!?", vbYesNo, "Demande de confirmation") = vbYes Then

[jean30]

Bonjour à vous tous
Mille merci à vous
Résolu