Trie suivant condition

[jean de chez claude]

Bonjour à tous

A l'aube de cette nouvelle année, je vous adresse mes voeux de paix, de joie, et d'espérance pour vous, vos familles et les personnes qui vous sont chères.

Sur le fichier ci-joint, par l’intermédiaire d’une formule que je vais intégrer à une macro, je souhaiterais faire apparaître que les lignes dont les dates de la colonne L sont inférieures ou égales à la date portée dans la cellule D2 de la feuille AO.

 

[kjin]

Re : Trie suivant condition

Bonsoir,

Sur le fichier ci-joint, par l’intermédiaire d’une formule que je vais intégrer à une macro...

Je ne vois pas ce que ça veut dire...

Sub fdate()
Dim vdate As Long
vdate = Sheets("Ao").Range("D2")
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("L1").AutoFilter Field:=7, Criteria1:="<=" & vdate
End Sub

A+
kjin

 

[Efgé]

Re : Trie suivant condition

Bonjour kjin,jean de chez claude
Une autre approche en masquant les lignes sans filtre automatique:

Sub cacherligne()
Dim i As Long
Dim Ref As Date
Sheets("Ao").Select
Ref = Range("D2").Value
Sheets("Feuil5").Select
For i = Range("L65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 12).Value <= Ref Then
          Cells(i, 12).EntireRow.Hidden = True
    End If
Next i
End Sub

Cordialement

 

[jean de chez claude]

Re : Trie suivant condition

Bonjour et merci pour vos réponses
La formule de Efgé prend en compte les inférieurs à D2 de AO mais pas les égales.
Si vous pouviez régler ce petit disfonctionnement, ce serait pil poil.
Merci d'avance et bon dimanche

 

[Efgé]

Re : Trie suivant condition

Bonjour
Une modif

Sub cacherligne()
Dim i As Long
Dim Ref As Date

Sheets("Ao").Select
Ref = Range("D2").Value

Sheets("Feuil5").Select
For i = Range("L65536").End(xlUp).Row To 2 Step -1
    If Not Cells(i, 12).Value > Ref Then
          Cells(i, 12).EntireRow.Hidden = True
    End If
Next i
End Sub

Cordialement

 

[jean de chez claude]

Re : Trie suivant condition

Re
Merci Efgé ça fonctionne à merveille.
Bonne fin de week-end à tous