EXCEL MsgBox Confirmation execution macro [Résolu/Fermé]

Signaler
Messages postés
19
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
9 avril 2010
-
 loloonthewave -
Bonjour !

Voilà ma question,
J'ai une macro qui supprime des lignes, j'ai mis un bouton d'éxécution sur ma feuille.
(juske là tout va bien)

J'aimerai à présent créer un message de confirmation pour confirmer d'éxecuter la macro si quelqu'un clique sur ce bouton.
En cherchant un peu, j'ai trouvé cette macro :

Sub MaFonction()
If MsgBox("Opération irréversible. Souhaitez-vous continuez ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
...
...
...
Else
...
End If
...
End Sub

Mais je n'arrive pas à l'appliquer à la mienne (les ..... ne m'aident pas)

Merci pour votre aide.

Laptitepero

5 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
Bonjour,

L'erreur est là :

If vbCancel Then
   Exit Sub
Else

End If


Il faut faire :
If yourmsgbox  = vbCancel Then
    Exit Sub
End If


;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
45
Date d'inscription
mercredi 20 avril 2011
Statut
Membre
Dernière intervention
26 juillet 2011
3
Mon dieu que c'est bon quand ça marche ! Mille fois merci !
Bonne journée !
Messages postés
45
Date d'inscription
mercredi 20 avril 2011
Statut
Membre
Dernière intervention
26 juillet 2011
3
Bonjour à tous,
J'ai exactement le même problème que lapetitepero, mais vos infos ne me débloquent pas.
ma syntaxe est la suivante :
 yourmsgbox = MsgBox("Are you sure you validate?", vbOKCancel, "confirmation")
        If vbCancel Then
        Exit Sub
        Else
        End If 


Ensuite se trouve mon code à exécuter si l'on clique sur Ok.
Dans ce cas, que je clique sur Ok ou Annuler, c'est le cas annuler qui s'exécute. Mais où est l'erreur?
Messages postés
45
Date d'inscription
mercredi 20 avril 2011
Statut
Membre
Dernière intervention
26 juillet 2011
3
pour ceux que ça intéresse, voici la réponse :
'Msgbox Ok + Annuler
 yourmsgbox = MsgBox("Are you sure to validate?", vbOKCancel, "Confirmation")

If yourmsgbox = vbCancel Then
    Exit Sub
End If
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
Bonjour,

Les "petits points" c'est le code qui doit être exécuté, c'est à dire ton code.

Sub MaFonction()
If MsgBox("Opération irréversible. Souhaitez-vous continuez ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
    ' TON CODE SI LA REPONSE EST "OUI"
Else
    ' TON CODE SI LA REPONSE EST "NON"
End If

End Sub 


;o)
Messages postés
19
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
9 avril 2010

Oki, et pour dire de ne rien faire si la réponse est non,
il y a un code spécial ?

Aussi, pour la partie entre () après MsgBox, qu'est ce j'ai droit de toucher ?
"QUESTION...." , je remet ma question "Opération irrversible... ?"

Merci
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
Ben non y a pas de code spécial !!! s'il ne faut rien faire, y a rien à coder ... tu peux donc enlever le Else. Ou tu peux mettre un Exit Sub dans le Else pour sortir de la procédure.

Dans MsgBox, "QUESTION..." est le titre qui apparaitra dans le bandeau bleu de la boîte de dialogue. Tu peux mettre ce que tu veux.

Super merci, c'est franchement nickel !!!!!
Messages postés
19
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
9 avril 2010

Si ça peut t'aider,
voici ma macro de base :

Sub SuppLigne()
    Dim Lig As Long
    Sheets("Modèle").Select
    Lig = ActiveCell.Row
    Rows(Lig).Delete
    Sheets("Résultat").Rows(Lig).Delete
    Sheets("Constantes").Rows(Lig).Delete
End Sub
Messages postés
19
Date d'inscription
jeudi 11 décembre 2008
Statut
Membre
Dernière intervention
9 avril 2010

Yahou, tout marche nikel !
Merci bcp !
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
Content pour toi :o)

Bonne continuation et bon courage.

;o)