Bonjour le forum.
J'ai souhaite, à l'ouverture d'un fichier, qu'une (ou plusieurs) msgbox s'affiche si certaines dates datent de plus de 45 jours. J'ai pour cela réalisé ce code, mais qui ne fonctionne pas. Je pense que le problème vient du fait que la msgbox s'affiche mais qu'elle ne reste pas à l'écran puisque la boucle continue de tourner. J'aimerais que la boucle s'arrête après l'affichage de ma msgbox et reparte au moment ou je clique sur OK (puis se réafiche si une autre date antérieur à 45 jours a été trouvée).
Je vous transmet le code.
Merci d'avance !
J'ai souhaite, à l'ouverture d'un fichier, qu'une (ou plusieurs) msgbox s'affiche si certaines dates datent de plus de 45 jours. J'ai pour cela réalisé ce code, mais qui ne fonctionne pas. Je pense que le problème vient du fait que la msgbox s'affiche mais qu'elle ne reste pas à l'écran puisque la boucle continue de tourner. J'aimerais que la boucle s'arrête après l'affichage de ma msgbox et reparte au moment ou je clique sur OK (puis se réafiche si une autre date antérieur à 45 jours a été trouvée).
Je vous transmet le code.
Merci d'avance !
Code:
Private Sub Workbook_Open()
Dim ligne As Integer, fin As Integer
fin = Sheets("registre de suivi").Range("b65536").End(xlUp).Row
For ligne = 137 To ligne = fin
If Sheets("registre de suivi").Range("G" & ligne) < Date - 45 Then MsgBox ("hello")
Next ligne
End Sub