MsgBox annuler ou confirmer

Version imprimable

Bonjour,

Je souhaites savoir comment confirmer ou non une tache lancé par un MsgBox.
Quand j'ouvre ma MsgBox, je voudrais soit confirmer mon action (suppression des données) ou annuler et ne rien faire.
Dans MsgBox est-il possible de créer un bouton oui et non ? Le oui exécutera la suppression des données et non non annulera le MsgBox

Voici mon code
Code:

1 2 3 4 5 6 7 8 Sub Initialise() ' Confirmation de la suppression des données If MsgBox("Confirmez-vous ré-initialisation des données", vbOuiNon, "reset") = vbOuiNon Then 'Effectuer le reset du DMB End If Range("B2:B24").Value = "OF à traiter" Range("J19:J24").ClearContents End Sub
Merci pour votre aide

02/10/2017, 11h41
Marc-L

Bonjour !

Citation:

Envoyé par Tom_2_Rouen

Dans MsgBox est-il possible de créer un bouton oui et non ?

Oui comme c'est pourtant indiqué dans l'aide VBA interne …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Code:

1
2
3
4
5
6
Sub Initialise()' Confirmation de la suppression des données
If MsgBox("Confirmez-vous ré-initialisation des données", vbOuiNon, "reset") = vbNo Then Exit Sub
'Effectuer le reset du DMB
Range("B2:B24").Value = "OF à traiter"
Range("J19:J24").ClearContents
End Sub

02/10/2017, 11h43
Tom_2_Rouen

Citation:

Envoyé par Marc-L

Bonjour !

Oui comme c'est pourtant indiqué dans l'aide VBA interne …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci mais ca ne m'aide pas bcp...
02/10/2017, 11h49
Invité

il t'arrives de lire tous les poste ou tu compte répondre individuellement à tous?
02/10/2017, 11h49
Marc-L

L'aide VBA interne - par définition - sert à aider ! Donc la lire doit s'imposer naturellement !

A quoi bon copier / coller l'aide sur ce forum alors qu'elle est déjà à disposition localement dans le VBE ?‼

___________________________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …

Citation:
Envoyé par dysorthographie
Code:

1 2 3 4 5 6 Sub Initialise()' Confirmation de la suppression des données If MsgBox("Confirmez-vous ré-initialisation des données", vbOuiNon, "reset") = vbNo Then Exit Sub 'Effectuer le reset du DMB Range("B2:B24").Value = "OF à traiter" Range("J19:J24").ClearContents End Sub
Merci pour ton retour mais malheureusement ca ne fonctionne pas.
Quand je click sur la croix, les donnes s'effacent...

02/10/2017, 11h58
Tom_2_Rouen

Citation:

Envoyé par dysorthographie

il t'arrives de lire tous les poste ou tu compte répondre individuellement à tous?

Et toi il t'arrive d'être efficace dans tes réponses ?
Quand la réponse est ne sert a rien, je préfére le dire
Quand la réponse est pertinante, je préfére remercier pour le tps consacré.
02/10/2017, 12h04
Invité

tien je te donne un autre raison :moinsser:
02/10/2017, 12h41
unparia

Bonjour

Citation:

Et toi il t'arrive d'être efficace dans tes réponses ?
Quand la réponse est ne sert a rien, je préfére le dire
Quand la réponse est pertinante, je préfére remercier pour le tps consacré.

Traduisons tout cela --->>

"Je ne sais rien faire d'autre que copier et coller.
Ce que j'appelle "être efficace" est me permettre de me contenter de copier/coller
Ce que j'appelle "pertinent" (avec un e, s'il vous plait) , c'est me donner une réponse que je n'aurais plus qu'à copier/coller.
Ouvrir l'aide interne VBA ? Vous n'y pensez pas ! Trop fatiguant !

Comprenez bien : je ne suis pas un développeur et n'ai pas l'intention de même tenter de le devenir.
Je me contente de venir sur un site de développeurs pour leur demander la becquetée. Et s'ils pouvaient de surcroît le faire avec beaucoup d'amabilité à l'égard des cossard, ce serait vraiment le top"
:moinsser:

Signé : Tom_2_Rouen -(un pseudo que je n'oublierai pas).
02/10/2017, 12h44
joe.levrai
Bonjour,

VbYes = clique sur OUI
VbNo = clic sur NON
VbCancel = clic sur la croix de fermeture

Paramètre numéro 2 de Msgbox = le type de choix possibles
VbYesNo = OUI ou NON sans possibilité de cliquer sur la croix rouge

d'où
Code:

1 2 3 4 5 Sub toto() If MsgBox("Confirmez-vous ré-initialisation des données", vbYesNo) = vbYes Then ' traitement effacement End If End Sub
ou encore en procédant par l'inverse
Code:

1 2 3 4 Sub toto() If MsgBox("Confirmez-vous ré-initialisation des données", vbYesNo) = vbNo Then Exit Sub ' traitement effacement End Sub
Marc-L a très justement orienté ton apprentissage par la lecture de l'aide en ligne qui te présente tous les paramètres (et arguments associés) de MsgBox.
C'est une ressource à toujours utiliser, même les plus experts s'en servent au quotidien, car on ne peut retenir l'intégralité des objets, méthodes, paramètres etc... du langage VBA

dysorthographie a tout simplement (ça nous arrive tous !) écris l'argument VbOuiNon par erreur au lieu de VbYesNo
Ce que l'aide en ligne t'aurais tout de suite montré

Bref, beaucoup de bruit pour rien hélas, j'ai hésité à intervenir
Bonne continuation
02/10/2017, 12h48
unparia

Bonjour joe.levrai

Je t'ai mis un :plusser:, mais avec certaines réticences.
Je laisse en général dans leur petit coin les pleureurs et quémandeurs qui ne manifestent aucune volonté autre que pleurer, quémander et se plaindre du désintérêt qu'ils engendrent.
02/10/2017, 12h48
Invité

Citation:

Envoyé par Tom_2_Rouen

Et toi il t'arrive d'être efficace dans tes réponses ?
Quand la réponse est ne sert a rien, je préfére le dire
Quand la réponse est pertinante, je préfére remercier pour le tps consacré.

Il faut se renseigner au préalable avant de demander de l'aide, chose que tu n'as pas fait et qu'on t'a invité à faire.
Bref, apprend déjà les base du VBA avant d'en faire. Et avant d'apprendre les bases du VBA, apprend aussi le respect, très utile en société.
02/10/2017, 13h09
Invité

il faut noter que j'ai repris le code existant sens (et je m'en excuse) vérifier l’intégralité de la syntaxe!
02/10/2017, 13h34
Igloobel

Bonjour à tous,

Juste au cas où "notre ami" aime bien lire il existe sur ce forum des tutos très intéressant comme :

http://fring.developpez.com/vba/excel/msgbox/

à bientôt

et bonne journée à tous
02/10/2017, 13h36
Tom_2_Rouen
Citation:
Envoyé par joe.levrai

Bonjour,

VbYes = clique sur OUI
VbNo = clic sur NON
VbCancel = clic sur la croix de fermeture

Paramètre numéro 2 de Msgbox = le type de choix possibles
VbYesNo = OUI ou NON sans possibilité de cliquer sur la croix rouge

d'où

Code:

1 2 3 4 5 Sub toto() If MsgBox("Confirmez-vous ré-initialisation des données", vbYesNo) = vbYes Then ' traitement effacement End If End Sub

ou encore en procédant par l'inverse

Code:

1 2 3 4 Sub toto() If MsgBox("Confirmez-vous ré-initialisation des données", vbYesNo) = vbNo Then Exit Sub ' traitement effacement End Sub

Marc-L a très justement orienté ton apprentissage par la lecture de l'aide en ligne qui te présente tous les paramètres (et arguments associés) de MsgBox.
C'est une ressource à toujours utiliser, même les plus experts s'en servent au quotidien, car on ne peut retenir l'intégralité des objets, méthodes, paramètres etc... du langage VBA

dysorthographie a tout simplement (ça nous arrive tous !) écris l'argument VbOuiNon par erreur au lieu de VbYesNo
Ce que l'aide en ligne t'aurais tout de suite montré

Bref, beaucoup de bruit pour rien hélas, j'ai hésité à intervenir
Bonne continuation
Merci pour ton aide.
02/10/2017, 13h37
Tom_2_Rouen

Merci à tous et bonne journée :)