Discussion :

[Tom_2_Rouen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour !

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, …

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tom_2_Rouen]

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...

[Invité]

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

[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 …

[Tom_2_Rouen]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Tom_2_Rouen]

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é.

[Invité]

tien je te donne un autre raison

[unparia]

Bonjour

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"



Signé : Tom_2_Rouen -(un pseudo que je n'oublierai pas).

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

Bonjour joe.levrai


Je t'ai mis un , 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.

[Invité]

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é.

[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!

[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

[Tom_2_Rouen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Tom_2_Rouen]

Merci à tous et bonne journée