EXCEL MsgBox Confirmation execution macro

Résolu/Fermé

laptitepero Messages postés 19 Date d'inscription jeudi 11 décembre 2008 Statut Membre Dernière intervention 9 avril 2010 - 8 avril 2010 à 11:50
loloonthewave - 22 janv. 2015 à 17:20

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

A voir également:

Vba confirmation box
Confirmation de lecture whatsapp - Guide
Confirmation de lecture gmail - Guide
Adresse ip box - Guide
Tera box - Télécharger - Stockage
Confirmation de lecture outlook - Guide

5 réponses

Réponse 1 / 5

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par crapoulou le 22/01/2015 à 17:21

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

cavrom Messages postés 45 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 26 juillet 2011 3
21 juin 2011 à 09:08

Mon dieu que c'est bon quand ça marche ! Mille fois merci !
Bonne journée !

Réponse 2 / 5

cavrom Messages postés 45 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 26 juillet 2011 3
Modifié par crapoulou le 22/01/2015 à 17:21

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?

cavrom Messages postés 45 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 26 juillet 2011 3
Modifié par crapoulou le 22/01/2015 à 17:21

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

Réponse 3 / 5

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 avril 2010 à 11:55

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)

laptitepero Messages postés 19 Date d'inscription jeudi 11 décembre 2008 Statut Membre Dernière intervention 9 avril 2010
8 avril 2010 à 12:00

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

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 avril 2010 à 12:08

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.

loloonthewave
22 janv. 2015 à 17:20

Super merci, c'est franchement nickel !!!!!

Réponse 4 / 5

laptitepero Messages postés 19 Date d'inscription jeudi 11 décembre 2008 Statut Membre Dernière intervention 9 avril 2010
Modifié par crapoulou le 22/01/2015 à 17:20

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

laptitepero Messages postés 19 Date d'inscription jeudi 11 décembre 2008 Statut Membre Dernière intervention 9 avril 2010
8 avril 2010 à 12:29

Yahou, tout marche nikel !
Merci bcp !

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 avril 2010 à 12:39

Content pour toi :o)

Bonne continuation et bon courage.

;o)

Discussions similaires

Code de confirmation facebook

"L'indice n'appartient à la sélection" + VBA

Arnaque du site light in the box

VBA : Range avec références variables..

Problèmes avec Lightinthebox

Discussions similaires

Newsletters