Macro Recherche dates

[Inguyone]

Bonjour,

Je suis à la recherche d’une macro qui prendrait en charge la date du jour et la comparerait avec des dates dans une base de données. J’ai créé une formule pour contrôler ces dates et me les renvoyés avec un chiffre =SI(XX<XX ;2 ;1) et ensuite une macro
Sub suppr()
Dim I As Long
Dim Plage As Range
Set Plage = Range("m4:m" & Range("m4").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value > 1 Then
Plage.Cells(I).EntireRow.Delete
End If
Next

End Sub

Cela fonctionne, mais pourriez-vous m’aider pour que cette macro recherche directement dans la colonne « g »des dates et non dans celle de ma formule « m ».

En vous remerciant d’avance pour votre aide.

 

[JNP]

Re : Macro Recherche dates

Bonjour Inguyone 🙂,
Quelque chose comme ça peut-être 😛...

Sub suppr()
Dim Plage As Range, Cellule As Range, ASupprimer As Range
Set Plage = Range("G4:G" & Range("G4").End(xlDown).Row)
For Each Cellule In Plage
    If Cellule < Now() Then
        If ASupprimer Is Nothing Then
            Set ASupprimer = Cellule.EntireRow
        Else
            Set ASupprimer = Union(ASupprimer, Cellule.EntireRow)
        End If
    End If
Next
ASupprimer.Delete
End Sub

Bon dimanche 😎