EXCEL MsgBox Confirmation execution macro
Résolu
laptitepero
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
loloonthewave -
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
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
- Set-top box - Accueil - Box & Connexion Internet
- Confirmation de lecture whatsapp - Guide
- Confirmation de lecture gmail - Guide
- Adresse ip box - Guide
- Tera box - Télécharger - Stockage
5 réponses
Bonjour,
L'erreur est là :
Il faut faire :
;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
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
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 :
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?
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?
Bonjour,
Les "petits points" c'est le code qui doit être exécuté, c'est à dire ton code.
;o)
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)
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.
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.
Si ça peut t'aider,
voici ma macro de base :
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
Bonne journée !