Soucis VBA

Voilà je possède ce code :

Private Sub CommandButton1_Click()

Set fm = Sheets("CRITICITE")

mess = ""

For Ln = 4 To fm.Range("G" & fm.Range("Tableau5").Rows.Count).End(xlUp).Row

If fm.Range("H" & Ln) <> "" Then

If fm.Range("G" & Ln) = Date Then mess = mess _

& Chr(10) & fm.Range("A" & Ln) & Chr(13) & fm.Range("B" & Ln) & Chr(32) & Chr(32) & fm.Range("J" & Ln) & Chr(128)

End If

Next Ln

If mess <> "" Then MsgBox "Commande(s) en cours :" & Chr(10) & mess, vbExclamation, _

"Commande(s)"

End Sub

Ma date de commande se trouve en colonne G et celle de réception en H, je voudrais que tant que la date de réception n'est pas arrivée, le message continue de s'afficher, je n'arrive pas a trouver mon erreur, pouvez - vous m'aider?

De plus j'ai un soucis avec ce code :

Private Sub CommandButton1_Click()

Set fm = Sheets("CRITICITE")

mess = ""

For Ln = 4 To fm.Range("I" & fm.Range("Tableau5").Rows.Count).End(xlUp).Row

If fm.Range("I" & Ln) <> "" Then

mess = mess & Chr(13) & fm.Range("A" & Ln) & fm.Range("B" & Ln)

End If

Next Ln

If mess <> "" Then MsgBox "Intervention(s) à effectuer :" & Chr(10) & mess, vbExclamation, _

"Intervention(s)"

End Sub

Quand je l'essaye le message qui apparait est "Colonne1,Pièce" alors qu'il devrait m'afficher le contenu de la colonne 1 et des pièce, d'ou peux provenir le beug?

Merci ^^

Bonjour,

Voili Voilou

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

Re,

Essaye comme ça :

Private Sub CommandButton1_Click()
    With Sheets("CRITICITE")
        For Ln = 6 To .Range("G" & Rows.Count).End(xlUp).Row
            If .Range("H" & Ln) <> "" Then
                If .Range("G" & Ln) = Date Then
                    MsgBox mess & Chr(10) & .Range("A" & Ln) & Chr(13) & .Range("B" & Ln) & Chr(32) & Chr(32) & .Range("J" & Ln) & Chr(128)
                End If
            End If
        Next Ln
    End With
End Sub

Presque mais je voudrais que tout soit sur la même MSGBOX pas que cela m'en ouvre une nouvelle pour chaque élément.

Comment puis-je faire?

De plus le problème pour la MSGBOX "Intervention" y est toujours....

Re,

Essaye comme ça :

Private Sub CommandButton1_Click()
    With Sheets("CRITICITE")
        For Ln = 6 To .Range("G" & Rows.Count).End(xlUp).Row
            If .Range("H" & Ln) <> "" Then
                If .Range("G" & Ln) = Date Then
                    mess = mess & Chr(10) & .Range("A" & Ln) & Chr(13) & .Range("B" & Ln) & Chr(32) & Chr(32) & .Range("J" & Ln) & Chr(128)
                End If
            End If
        Next Ln
    End With
    MsgBox mess
    Unload Me
End Sub

Tu peux faire un effort à partir du moment qu'on te donne l'essentiel.