Bonjour,
Est ce possible de regrouper tous les msg box de ma boucle en un seul au final?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
 
With Sheets("F1")
 
Dim i As Integer
 
For i = 23 To 111
 
If Range("Q" & i).Value <= Date Then
MsgBox "mise à jour pour " & Range("F" & i).Value & " nécessaire"
End If
 
Next i
 
End With
 
End Sub
Merci