Je d=E9bute et je me trouve face =E0 un probleme de "taille"=20
enfin pour moi.
En fait je souhaiterai apr=E9s avoir appuyer sur boutton=20
voir apparaitre un message qui me confirme mon=20
choix: "oui" et =E7a exc=E9cute la macro, "non" et tout est=20
annul=E9.
J'ai cr=E9=E9 une macro qui me permet d'effacer toutes les=20
valeurs dans une feuille. Je l'ai affecter =E0 une image,=20
mais je clique dessus je souhaiterais voir apparaitre une=20
message qui confirme si on veux tout effacer ou non.
J'ai beau cherch=E9, mais pas de r=E9sultats satisfaisants.=20
J'esp=E8re que vous aurez la r=E9ponse =E0 mon probl=E8me.
Merci d'avance?
Ludwig
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Fauconnier
Bonjour Ludwig
Dans le code, avant les lignes qui suppriment effectivement les données, tu peux ajouter ceci Dim Reponse As VbMsgBoxResult Reponse = MsgBox("Etes-vous certain de vouloir tout effacer?", _ vbyeno + vbExclamation, "Supression totale") If Reponse <> vbYes Then Exit Sub
-- Cela convient-il? ---- Pierre Fauconnier "N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos Beaucarne)
Ludwig wrote:
Je débute et je me trouve face à un probleme de "taille" enfin pour moi. En fait je souhaiterai aprés avoir appuyer sur boutton voir apparaitre un message qui me confirme mon choix: "oui" et ça excécute la macro, "non" et tout est annulé. J'ai créé une macro qui me permet d'effacer toutes les valeurs dans une feuille. Je l'ai affecter à une image, mais je clique dessus je souhaiterais voir apparaitre une message qui confirme si on veux tout effacer ou non. J'ai beau cherché, mais pas de résultats satisfaisants. J'espère que vous aurez la réponse à mon problème. Merci d'avance? Ludwig
Bonjour Ludwig
Dans le code, avant les lignes qui suppriment effectivement les données, tu
peux ajouter ceci
Dim Reponse As VbMsgBoxResult
Reponse = MsgBox("Etes-vous certain de vouloir tout effacer?", _
vbyeno + vbExclamation, "Supression totale")
If Reponse <> vbYes Then Exit Sub
--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)
Ludwig wrote:
Je débute et je me trouve face à un probleme de "taille"
enfin pour moi.
En fait je souhaiterai aprés avoir appuyer sur boutton
voir apparaitre un message qui me confirme mon
choix: "oui" et ça excécute la macro, "non" et tout est
annulé.
J'ai créé une macro qui me permet d'effacer toutes les
valeurs dans une feuille. Je l'ai affecter à une image,
mais je clique dessus je souhaiterais voir apparaitre une
message qui confirme si on veux tout effacer ou non.
J'ai beau cherché, mais pas de résultats satisfaisants.
J'espère que vous aurez la réponse à mon problème.
Merci d'avance?
Ludwig
Dans le code, avant les lignes qui suppriment effectivement les données, tu peux ajouter ceci Dim Reponse As VbMsgBoxResult Reponse = MsgBox("Etes-vous certain de vouloir tout effacer?", _ vbyeno + vbExclamation, "Supression totale") If Reponse <> vbYes Then Exit Sub
-- Cela convient-il? ---- Pierre Fauconnier "N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos Beaucarne)
Ludwig wrote:
Je débute et je me trouve face à un probleme de "taille" enfin pour moi. En fait je souhaiterai aprés avoir appuyer sur boutton voir apparaitre un message qui me confirme mon choix: "oui" et ça excécute la macro, "non" et tout est annulé. J'ai créé une macro qui me permet d'effacer toutes les valeurs dans une feuille. Je l'ai affecter à une image, mais je clique dessus je souhaiterais voir apparaitre une message qui confirme si on veux tout effacer ou non. J'ai beau cherché, mais pas de résultats satisfaisants. J'espère que vous aurez la réponse à mon problème. Merci d'avance? Ludwig
