MsgBox imbriquées

[Nonno 94]

😕 😕 Bonjour le Forum,

je viens demander votre aide pour ajouter une MsgBox dans le fichier joint.

Le code a modifier dans le cas "Yes" est le suivant :

Sub macro1()
Dim NextTime As Double
NextTime = Now + TimeValue("00:00:20")
Excel.Application.OnTime NextTime, "macro1"

'MsgBox Oui + Non
Select Case MsgBox("Redemander dans 5 minutes ?", vbYesNo, "IMPORT des Données 'CONSENSUS'")
Case vbYes
MsgBox "A plus tard"
Case vbNo
Excel.Application.OnTime NextTime, "macro1", , False
MsgBox "Procédure ajournée. Au revoir."
End Select

End Sub

Dans le cas "Yes", une MsgBox s'affiche au bout de 20 secondes pour demander si l'on souhaite un nouveau rappel dans 5 minutes (20 secondes dans la macro).
Si l'on clique sur le bouton "Oui", elle ré-apparaitra dans 20 secondes.
Je souhaiterais que dans le cas "Non" dont le code actuel est :

Case vbNo
Excel.Application.OnTime NextTime, "macro1", , False
MsgBox "Procédure ajournée. Au revoir."

une nouvelle "MsgBox Oui + Non" apparaisse avec le texte suivant : "Voulez-vous lancer la procédure maintenant ?" avec:
- Case vbYes : BONJOUR (la macro du fichier pou l'exemple)
- Case vbNo : MsgBox "Procédure ajournée. Au revoir."

Tous mes efforts pour obtenir ce résultat étant jusqu'à présent restés vains, je m'en remets à votre expertise.

Avec mes remerciements pour vos réponses et votre ....indulgence et en vous souhaitant une bonne journée.
Cordialement.

Nonno 94.

 

[Si...]

Re : MsgBox imbriquées

salut

je n'ai pas dépassé les premières lignes.
Si... mes souvenirs sont exacts, je t'avais fait une proposition ici.
Si... elle ne te convient pas, dis le quand même !

 

[Nonno 94]

Re : MsgBox imbriquées

🙁 🙁 Bonjour Si et merci d'avoir pris la peine de répondre.

je suis confus de ne pas avoir répondu à votre proposition d'hier car, curieusement, ....je na l'ai pas vue !
Je vous demande de bien vouloir excuser cette "absence".
Ceci étant, elle s'approche de la solution que je recherche sauf pour le cas "Non" de la MsgBox de la "Sub Rappel" qui ne permet pas d'afficher "en sortie" le texte "Procédure ajournée. Au revoir." dans la plage "E10:K21" correspondant au cas choisi.

Sub Rappel()
'
' Saluti Macro
' Macro enregistrée le 21/11/2012 par Edmond
'
    'régler la durée
  If MsgBox("Souhaitez-vous un rappel ?", vbYesNo, "Redemander dans 15 secondes") = vbNo Then Exit Sub

  Application.OnTime Now + TimeValue("00:00:15"), "mess_04a"
    
    
    
    Sheets("Accueil").Select
        ActiveSheet.Unprotect
    Sheets("Accueil").Range("E10") = "Rappel dans 5 minutes"
        ActiveSheet.Protect

End Sub

Pour les besoins du fichier que je vous joins, j'ai modifié "mess_04a".

Ce que je souhaite est que le texte qui s'affiche dans la plage "E10:K21" corresponde au texte affiché dans les MsgBox.
Cela est actuellement le cas pour "Case vbYes: Bonjour" et "Case vbCancel: Ajournement" mais pas pour "Case vbNo: Rappel: Exit Sub"
Peut-être est-ce impossible ?

Merci de me répondre (je serai particulièrement attentif !)
Avec mes excuses renouvelées et en vous souhaitant une bonne fin de journée.
Cordialement.

Nonno 94.

 

[Nonno 94]

Re : MsgBox imbriquées

😕 😕 Tentative d'éclaircissement !!

Sub mess_04a()
'MsgBox Oui + Non + Abandonner

Case vbNo: Rappel: Exit Sub

Sub Rappel()
'
' Rappel Macro
' Macro enregistrée le 21/11/2012 par Edmond
'
    'régler la durée
  If MsgBox("Souhaitez-vous un rappel ?", vbYesNo, "Redemander dans 15 secondes") = vbNo Then Exit Sub

  Application.OnTime Now + TimeValue("00:00:15"), "mess_04a"
    
    
    
    Sheets("Accueil").Select
        ActiveSheet.Unprotect
    Sheets("Accueil").Range("E10") = "Rappel dans 5 minutes"
        ActiveSheet.Protect

End Sub

Lorsque l'on clique sur le bouton "Non" de la MsgBox("Souhaitez-vous un rappel ?", vbYesNo, "Redemander dans 15 secondes") , (case "vbNo"), le texte :

"Mise à jour des Données 'CONSENSUS' reportée"

n'est pas affiché dans la plage "E10:K21" en remplacement du texte précédent.

J'espère que ces précisions vous permettront de mieux comprendre ma demende.
Cordialement.

Nonno 94.