Problème MSGBOX

Voila,

gmb m'a aider a créer une MSGBOX qui apparait lorsqu'une opération est à faire :

Petit soucis ce message apparait même les jours ou il n'y en as pas. Je voudrais squ'il apparaisse que lorsque il y a une opération à faire

Par exemple nous somme les 24, pas d'opération pas de message, et si nous somme le 25 opérations donc message avec toute les opérations à effectuer.

Désolé pour l'explication un peu brouillon

https://www.cjoint.com/c/FEymEJzNd8G

Bonjour,

Tu mets simplement une condition : If mess <> "" Then MsgBox...

pour donner cours au message.

Cordialement.

Ca me met toujours le message alors que je n'ai pas d'opération

Tu as raison, il y a toujours quelque chose dans mess . De plus je n'avais pas vu que les dates n'étaient pas prises en compte...

Il faut quelques modifs de plus.

Je reviens...

Voilà qui devrait mieux coller :

Private Sub Worksheet_Activate()
    Set fm = Sheets("MACHINE")
    mess = ""
    For ln = 4 To fm.Range("D" & fm.Range("Tableau1").Rows.Count).End(xlUp).Row
        If fm.Range("D" & ln) <> "" Then
            If fm.Range("D" & ln) = Date Then mess = mess _
             & Chr(13) & " - " & fm.Range("C" & ln)
        End If
    Next ln
    If mess <> "" Then MsgBox "Opération(s) à effectuer :" & Chr(13) & mess, vbExclamation, _
     "Opération(s)"
End Sub

Parfait merci !