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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager