XL 2019 Messagebox ne s'affiche pas

[chris4785478547]

Bonjour à tous,

J'ai un messagebox qui ne s'affiche pas en mode normal mais qui s'affiche seulement en mode pas à pas:

  Sub InitialisationImportation()

  Workbooks.Open Filename:="C:\Users\Utilisateur\Desktop\Banque.xlsx"
        With Workbooks("banque.xlsx").Worksheets("banque")
                         
            DateDebutBanque = .Range("B1").Value
            DateFinBanque = .Range("C1").Value
     
        End With
       
        reponse = MsgBox("Votre banque vous propose l'importation de vos opérations entre le" & DateDebutBanque & " et le " & DateFinBanque & " Ces dates vous conviennent-elles ?   ", vbYesNoCancel, SelectionDates)

   

  End Sub

Je ne comprends pas et je ne sais pas dans quel cas un code pourrait fonctionner en mode pas à pas et pas en mode normal.
Merci par avance de vos suggestions

 

[Phil69970]

Chris , le forum

Si tu désactives toutes les lignes de codes avant le msgbox (voir code) tu t'apercevras que le message s'affiche bien.
Par contre dans ton code je ne vois pas la gestion de la réponse à ton message, du style :
Si je réponds oui
je fais ceci....
Else
Si je réponds non
je fais cela....

  Sub InitialisationImportation()

'  Workbooks.Open Filename:="C:\Users\Utilisateur\Desktop\Banque.xlsx"
'        With Workbooks("banque.xlsx").Worksheets("banque")
'
'            DateDebutBanque = .Range("B1").Value
'            DateFinBanque = .Range("C1").Value
'
'        End With
       
        reponse = MsgBox("Votre banque vous propose l'importation de vos opérations entre le" & DateDebutBanque & " et le " & DateFinBanque & " Ces dates vous conviennent-elles ?   ", vbYesNoCancel, SelectionDates)

   

  End Sub

*Autrement un fichier anonyme s'impose...

@Phil69970

 

[chris4785478547]

Chris , le forum

Si tu désactives toutes les lignes de codes avant le msgbox (voir code) tu t'apercevras que le message s'affiche bien.
Par contre dans ton code je ne vois pas la gestion de la réponse à ton message, du style :
Si je réponds oui
je fais ceci....
Else
Si je réponds non
je fais cela....

  Sub InitialisationImportation()

'  Workbooks.Open Filename:="C:\Users\Utilisateur\Desktop\Banque.xlsx"
'        With Workbooks("banque.xlsx").Worksheets("banque")
'
'            DateDebutBanque = .Range("B1").Value
'            DateFinBanque = .Range("C1").Value
'
'        End With
      
        reponse = MsgBox("Votre banque vous propose l'importation de vos opérations entre le" & DateDebutBanque & " et le " & DateFinBanque & " Ces dates vous conviennent-elles ?   ", vbYesNoCancel, SelectionDates)

  

  End Sub

*Autrement un fichier anonyme s'impose...

@Phil69970

Salut Phil, le fil,

Merci pour ta réponse.
Oui, en effet j'ai fait des modifs pour essayer de comprendre et notamment, j'ai éclairci le code pour voir les conséquences...
J'ai galéré un certain temps avant de poster et puis, j'ai fini par trouver que ma séquence de touches CTRL-i, bien que programmée sur cette procédure, ne fonctionnait plus pour une raison inconnue.
Je l'ai remplacée par CTRL-k et ça marche.

Merci encore à toi.

 

[Staple1600]

Bonsoir le fil

Juste pour test et à titre illustratif 😉

Sub Cash_Machine()
DateDebutBanque = Format(DateSerial(1968, 5, 22), " dd/mm/yyyy")
DateFinBanque = Format(DateSerial(1969, 7, 20), " dd/mm/yyyy")
Message = "Votre banque vous propose l'importation de vos opérations entre le"
Message = Message & DateDebutBanque & " et le" & DateFinBanque & Chr(13)
Message = Message & Chr(13) & "Ces dates vous conviennent-elles ?"
reponse = MsgBox(Message, vbYesNoCancel, "SelectionDates")
Select Case reponse
Case 6
MsgBox "Vous avez raison! Ces dates sont spéciales!", vbExclamation
Case 7
MsgBox "Cherchez ces dates sur le net et vous comprendrez que vous avez eu tort de répondre Non", vbCritical
Case 2
MsgBox "Cette annulation est irréversible!"
End Select
End Sub