Msgbox dans msgbox

Pierrot93

XLDnaute Barbatruc

• 26 Juillet 2010

• #2

Re : Msgbox dans msgbox

Bonjour,

comme ceci, si j'ai bien compris :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 26 Juillet 2010

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Juillet 2010

• #4

Re : Msgbox dans msgbox

Re,

modifie peut être ainsi :

Code:

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

@+

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 26 Juillet 2010

• #5

Re : Msgbox dans msgbox

A tester.

Code:

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

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 26 Juillet 2010

• #6

Re : Msgbox dans msgbox

Impeccable, vos 2 formules fonctionnent
Merci à vous

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 26 Juillet 2010

• #7

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

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 28 Juillet 2010

• #8

Re : Msgbox dans msgbox

tototiti2008 à dit:

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

Cliquez pour agrandir...

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?

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Juillet 2010

• #9

Re : Msgbox dans msgbox

Bonjour Pizza, Toto

essaye ainsi :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 28 Juillet 2010

• #10

Re : Msgbox dans msgbox

Merci Pierrot 🙂
Bon après midi,
@+

 

Vote positif 0 Vote négatif