Trop de messages d'alerte Excel - VBA

Bonjour à tous!

J'ai réussi après quelques recherches à programmer des messages d'alerte au démarrage d'excel. Le petit soucis maintenant est que j'ai trop de messages d'alerte. "Trop de messages, tue le message"

J'aimerais savoir s'il est possible de regrouper tous ces messages d'alerte en un seul, à l'ouverture du fichier.

Je joins également mon fichier.

Merci d'avance.

Fabien

bonjour,

une proposition de modification de ta macro

Private Sub Workbook_Open()
'Pour les stocks
Dim alertestock As Range

For Each alertestock In ActiveSheet.Range("Alerte_stock")
Valeur = Cells(alertestock.Row, 1)
    If alertestock = "1" Then
        msg = msg & "Le produit " & Valeur & " arrive bientôt à expiration. " & vbNewLine
    Else
    End If

Next
If msg <> "" Then MsgBox msg, vbCritical, "Quantité en stock insuffisante"

End Sub

Bonjour,

Comme ceci?

Private Sub Workbook_Open()
Dim Cel As Range
Dim Tmp
For Each Cel In Feuil1.Range("Alerte_stock")
    If Cel.Value = 1 Then
        Tmp = Tmp & vbLf & Cells(Cel.Row, 1).Value
    End If
Next Cel
MsgBox "Le(s) produit(s)" & Tmp & vbLf & "arrive(nt) bientôt à expiration.", vbCritical, "Quantité en stock insuffisante"
End Sub

Bon dimanche

Super! Merci à vous deux!

Bon dimanche également