Bonjour,

je souhaiterais modifier la fin de ce code
Merci d avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
 
'si OK quitter la procédure 
'si il n y a pas de doc a date dépassé msgbox pour dire "pas de date dépassee"
'alors Call macro(xxxx)
 
End Sub