Récuperation données en fonction date

Bonjour,

Je souhaite aller plus loin dans la macro que gmb m'a transmis.

Je voudrais mettre en plus une alerte si la date d'écheance est à moins de 15 jours.

j'ai essayé mais cela ne me renvoit rien

Pouvez_vous me dire SVP ou est l'erreur dans mon code (module1)

Merci de votre aide

T

Bonjour,

En attendant gmb (que je salue), tu peux regarder ce code

Sub alerte()
Dim f, i, j, l, lgn
    Range("A2").CurrentRegion.Offset(1, 0).ClearContents
    For Each f In Worksheets
        If f.Range("L1") = "DATE ECHEANCE" Then
            For i = 2 To f.Range("A" & Rows.Count).End(xlUp).Row
                For j = 7 To 11
                    If f.Cells(i, j).Value = 1 And f.Cells(i, 12) <> "" And Date + 15 > f.Cells(i, 12) Then
                        lgn = Cells(Rows.Count, j - 6).End(xlUp)(2).Row
                        Cells(lgn, j - 6) = f.Range("A" & i) & " " & f.Range("L" & i)
                        Exit For
                    End If
                Next j
            Next i
        End If
    Next f
End Sub

A+

Bonjour

Modifie comme suit et fais un essai :

Sub alerte()
Dim f, i, j, l, lgn

    Range("A2").CurrentRegion.Offset(1, 0).ClearContents

    For Each f In Worksheets
        If f.Range("L1") = "DATE ECHEANCE" Then
            For i = 2 To f.Range("A" & Rows.Count).End(xlUp).Row
                For j = 7 To 11
                    If f.Cells(i, j).Value = 1 And f.Cells(i, 12) <> "" And Range("G1") - 15 < f.Cells(i, 12) Then
                        lgn = Cells(Rows.Count, j - 6).End(xlUp)(2).Row
                        Cells(lgn, j - 6) = f.Range("A" & i) & " " & f.Range("L" & i)
                        Exit For
                    End If
                Next j
            Next i
        End If
    Next f
End Sub

Bye !

Bonjour,

merci à vous deux,

C'est parfait

T