Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Confirmer l'exécution d'une macro

Confirmer l'exécution d'une macro

7 réponses
Avatar
meb2604
Bonjour,

J'ai une macro qui remet un classeur complet =E0 z=E9ro et je voudrais
qu'avant de l'ex=E9cuter qu'une bo=EEte me demande : "=EAtes-vous certaine
de vouloir remettre le classeur =E0 z=E9ro" Si j'appuie sur oui la macro
s'ex=E9cute et si j'appuie sur non la macro ne s'ex=E9cute pas.

Je suis tr=E8s d=E9butante avec le VB donc on y va molo !!!! Merci
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Daniel.C
Bonjour.

Sub test()
rep = MsgBox("êtes-vous certaine de vouloir remettre le classeur à zéro",
vbYesNo)
If rep = vbNo Then Exit Sub
' Ici ton code
End Sub

Cordialement.
Daniel
a écrit dans le message de news:

Bonjour,

J'ai une macro qui remet un classeur complet à zéro et je voudrais
qu'avant de l'exécuter qu'une boîte me demande : "êtes-vous certaine
de vouloir remettre le classeur à zéro" Si j'appuie sur oui la macro
s'exécute et si j'appuie sur non la macro ne s'exécute pas.

Je suis très débutante avec le VB donc on y va molo !!!! Merci
Avatar
Mgr Banni
bonjour meb
peut-être comme ceci :

Sub test()
ZéroOuPasZéro = MsgBox("Yes pour remettre le classeur à zéro" & vbCrLf &
vbCrLf & _
"No pour y renoncer", vbExclamation + vbYesNo, "RAZ")
If ZéroOuPasZéro = vbYes Then
MsgBox "allez en paix" 'ou ce que tu veux exécuter
End If
If ZéroOuPasZéro = vbNo Then Exit Sub
End Sub

j'y suis allé mollo car je suis tout aussi débutant en VBA que toi
Mgr T.B.


a écrit dans le message de news:

Bonjour,

J'ai une macro qui remet un classeur complet à zéro et je voudrais
qu'avant de l'exécuter qu'une boîte me demande : "êtes-vous certaine
de vouloir remettre le classeur à zéro" Si j'appuie sur oui la macro
s'exécute et si j'appuie sur non la macro ne s'exécute pas.

Je suis très débutante avec le VB donc on y va molo !!!! Merci
Avatar
MichDenis
Tu peux aussi saisir le tout sur une même ligne :

If MsgBox("êtes-vous certaine de vouloir remettre le classeur à zéro", vbYesNo) = vbNo Then Exit Sub




a écrit dans le message de news:

Bonjour,

J'ai une macro qui remet un classeur complet à zéro et je voudrais
qu'avant de l'exécuter qu'une boîte me demande : "êtes-vous certaine
de vouloir remettre le classeur à zéro" Si j'appuie sur oui la macro
s'exécute et si j'appuie sur non la macro ne s'exécute pas.

Je suis très débutante avec le VB donc on y va molo !!!! Merci
Avatar
Daniel.C
Salut Denis.
Elle a dit qu'elle était "très débutante", donc on y va molo !
;-)
Daniel
"MichDenis" a écrit dans le message de news:

Tu peux aussi saisir le tout sur une même ligne :

If MsgBox("êtes-vous certaine de vouloir remettre le classeur à zéro",
vbYesNo) = vbNo Then Exit Sub




a écrit dans le message de news:

Bonjour,

J'ai une macro qui remet un classeur complet à zéro et je voudrais
qu'avant de l'exécuter qu'une boîte me demande : "êtes-vous certaine
de vouloir remettre le classeur à zéro" Si j'appuie sur oui la macro
s'exécute et si j'appuie sur non la macro ne s'exécute pas.

Je suis très débutante avec le VB donc on y va molo !!!! Merci




Avatar
MichDenis
| Elle a dit qu'elle était "très débutante", donc on y va molo !

Justement, une ligne de code, c'est plus facile à lire que 3 ou 4 lignes !
;-)
Avatar
Daniel.C
"MichDenis" a écrit dans le message de news:

| Elle a dit qu'elle était "très débutante", donc on y va molo !

Justement, une ligne de code, c'est plus facile à lire que 3 ou 4 lignes !
;-)


Est-ce que tu connait le "Obfuscated Perl Contest ", le concours du code le
plus incompréhensible ?
Voila un exemple (et pourtant, c'est sur 4 lignes) :

@P=split//,".URRUUc8R";@d=split//,"nrekcah xinU / lreP rehtona tsuJ";sub
p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/
^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep
rand(2)if/S/;print

On doit pouvoir obtenir la même chose de compréhensible sur une 50 taine de
lignes !
;-)))
Daniel

Avatar
j-pascal
Bonjour Daniel,

Certes incompréhensible pour moi, mais d'après toi, il fait quoi ce code ?
Je suis tenté d'essayer de l'utiliser, juste pour voir, mais bon ... ;-)

@+ ?

JP

"Daniel.C" a écrit dans le message de news:

"MichDenis" a écrit dans le message de news:

| Elle a dit qu'elle était "très débutante", donc on y va molo !

Justement, une ligne de code, c'est plus facile à lire que 3 ou 4 lignes
!
;-)


Est-ce que tu connait le "Obfuscated Perl Contest ", le concours du code
le plus incompréhensible ?
Voila un exemple (et pourtant, c'est sur 4 lignes) :

@P=split//,".URRUUc8R";@d=split//,"nrekcah xinU / lreP rehtona tsuJ";sub
p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/
^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep
rand(2)if/S/;print

On doit pouvoir obtenir la même chose de compréhensible sur une 50 taine
de lignes !
;-)))
Daniel