Msgbox dans msgbox

[pizzaman]

Bonjour,

J'essai d'ajouter depuis cette formule une autre msgbox ou il faut repondre par oui ou non, si on a repondu oui à la première

Pouvez vous m'aider?
Merci,

If MsgBox("Texte1", vbYesNo) = vbYes Then

Range("A1:C10") = ClearContents
MsgBox "texte3"
End If

 

[Pierrot93]

Re : Msgbox dans msgbox

Bonjour,

comme ceci, si j'ai bien compris :

If MsgBox("Texte1", vbYesNo) = vbYes Then
    Range("A1:C10").ClearContents
    MsgBox "texte3", vbYesNo
End If

bon après midi
@+

 

[pizzaman]

Re : Msgbox dans msgbox

Bonjour Pierrot,

En fait il faudrait que la suppression se fasse seulement à la reponse positive de la 2e msgbox,
j'ai donc essayer comme ca mais ca ne marche pas non plus

If MsgBox("Texte1", vbYesNo) = vbYes Then
    MsgBox "texte3", vbYesNo [COLOR="red"]= vbYes Then[/COLOR]
Range("A1:C10").ClearContents 
End If

 

[Pierrot93]

Re : Msgbox dans msgbox

Re,

modifie peut être ainsi :

If MsgBox("Texte1", vbYesNo) = vbYes Then
   If MsgBox("texte3", vbYesNo) = vbYes Then _
        Range("A1:C10").ClearContents
End If

@+

 

[Habitude]

Re : Msgbox dans msgbox

A tester.

If MsgBox("Texte1", vbYesNo) = vbYes And MsgBox("texte3", vbYesNo) = vbYes Then
Range("A1:C10").ClearContents
End If

 

[pizzaman]

Re : Msgbox dans msgbox

Impeccable, vos 2 formules fonctionnent
Merci à vous

 

[tototiti2008]

Re : Msgbox dans msgbox

Bonjour à tous,

si je puis me permettre, ça ne fait pas exactement la même chose : le code de Pierrot ne propose la 2ème Msgbox que si l'on a répondu Oui à la première, celui d'Habitude propose les 2 Msgbox dans tous les cas...

 

[pizzaman]

Re : Msgbox dans msgbox

Bonjour à tous,

si je puis me permettre, ça ne fait pas exactement la même chose : le code de Pierrot ne propose la 2ème Msgbox que si l'on a répondu Oui à la première, celui d'Habitude propose les 2 Msgbox dans tous les cas...

C'est exact tototiti
Ce n'est pas exactement les memes, en ce qui me concerne j'avais besoin de celui de Pierrot

Par contre j'aimerai ajouter une ligne à ce code mais comment faire pour qu'il supprime aussi D6:E10 toujours après la reponse oui?

If MsgBox("Texte1", vbYesNo) = vbYes Then
   If MsgBox("texte3", vbYesNo) = vbYes Then _
        Range("A1:C10").ClearContents
        [COLOR="Red"]Range("D6:E10").ClearContents[/COLOR]
End If

De la façon que je l'ai mis il est pris en compte separement

 

[Pierrot93]

Re : Msgbox dans msgbox

Bonjour Pizza, Toto

essaye ainsi :

If MsgBox("Texte1", vbYesNo) = vbYes Then
   If MsgBox("texte3", vbYesNo) = vbYes Then _
        Range("A1:C10,D6:E10").ClearContents
End If

bon après midi
@+

 

[pizzaman]

Re : Msgbox dans msgbox

Merci Pierrot 🙂
Bon après midi,
@+