Sélection de données pour msgbox

1 pièce(s) jointe(s)

Bonsoir

dans un tableau excel, je déclenche une alerte par mgsbox qui affiche des documents de type "MV", "CL" et "FA" dont la date de retour a dépassé la date d'aujourd'hui

parmi les documents qui sont localisés je ne souhaite pas prendre en compte les "FA"
pourriez vous m aider
merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
 Sub Hmc()
    Const AG = "MDL"
 
    With Feuil2.Cells(1).CurrentRegion
        For R& = 1 To .Rows.Count
            If .Cells(R, 7).Text = AG And .Cells(R, 4).Value < Date Then T$ = T$ & vbLf & .Cells(R, 6).Text & vbTab & vbTab & .Cells(R, 5).Text & vbTab & vbTab & .Cells(R, 1).Text & vbTab
        Next
    End With
 
    If T > "" Then MsgBox "date de retour dépassée !" & Chr(10) & Chr(10) & "NO DOC" & vbTab & vbTab & "TYPE DE DOC" & vbTab & "IMMAT" & T, vbExclamation, "   EN DATE DEPASSEE " & AG
End Sub

Bonjour,

à la ligne 6, il faut rajouter une condition dans ton If

Code:

If .Cells(R, 7).Text = AG And .Cells(R, 4).Value < Date And .Cells(R, 6).Text <> "FA" Then T$ = T$ & vbLf & .Cells(R, 6).Text & vbTab & vbTab & .Cells(R, 5).Text & vbTab & vbTab & .Cells(R, 1).Text & vbTab

bonjour Joe

merci pour ton aide !
impeccable !!

bonne journée