Regroupement de msgbox

Bonjour,

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

Private Sub Workbook_Open()

End Sub

Merci

Bonjour,

Code à essayer

Private Sub Workbook_Open()
Dim msgtotal
Dim i As Integer
msgtotal = vbNullString
With Sheets("F1")
    For i = 23 To 111
        If .Range("Q" & i).Value <= Date Then msgtotal = .Range("F" & i) & "," & msgtotal
    Next i
End With
MsgBox "mise à jour pour " & msgtotal & " nécessaire"
End Sub

Es-ce toujours nécessaire d'aller jusque 111. Sinon on peut limiter

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

EDIT Dan : Change cette ligne dans le code par celle ci-dessous :

If .Range("Q" & i).Value <= Date Then msgtotal = msgtotal & "," & .Range("F" & i)