Microsoft 365 Filtre fourchette de dates

job75

XLDnaute Barbatruc

• 8 Janvier 2021

• #2

Bonjour JBL07,

Chez moi la macro fonctionne très bien, il faudrait joindre votre fichier.

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Janvier 2021

• #3

Bonsoir @JBL07,

Le code fonctionne.

Joignez votre fichier.

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 8 Janvier 2021

• #4

Le voici, en mode simplifié, mais toujours avec le même bug sur la dernière ligne de code

 

Pièces jointes

• Comptes - Exemple.xlsm

  902 KB · Affichages: 17

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 8 Janvier 2021

• #5

Bonjour,
Essayez comme ça,

VB:

Public Sub MyFilter()
    Dim lngStart As Long, lngEnd As Long, dl As Long
    dl = Range("B65536").End(xlUp).Row
    lngStart = Sheets("Ecritures").Range("R3").Value 'assume this is the start date
    lngEnd = Sheets("Ecritures").Range("R5").Value 'assume this is the end date
    Range("B9:B" & dl).AutoFilter field:=1, Criteria1:=">=" & lngStart, Operator:=xlAnd, Criteria2:="<=" & lngEnd
End Sub

 

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 8 Janvier 2021

• #6

Re, salut Nicolas Jacquin,

Puisqu'il s'agit d'un tableau structuré :

VB:

Public Sub MyFilter()
Dim lngStart As Long, lngEnd As Long
With Sheets("Ecritures")
    lngStart = .Range("R3") 'assume this is the start date
    lngEnd = .Range("R5") 'assume this is the end date
    .ListObjects(1).Range.AutoFilter Field:=1, Criteria1:=">=" & lngStart, Operator:=xlAnd, Criteria2:="<=" & lngEnd
End With
End Sub

A+

 

Vote positif 0 Vote négatif

Nicolas JACQUIN

XLDnaute Impliqué

Supporter XLD

• 8 Janvier 2021

• #7

Bonjour job75,
merci pour l'info

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 8 Janvier 2021

• #8

Bonjour Nicolas
Merci, c'est juste parfait


..... oups j'ai oublié de valider l'envoi de mon message de remerciement !

Donc le code de Nicolas fonctionne , pouvez-vous me dire quel différence représente celui de Job75 ?

Merci à vous deux en tout cas !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Janvier 2021

• #9

JBL07 à dit:

pouvez-vous me dire quel différence représente celui de Job75 ?

Cliquez pour agrandir...

Si vous ne savez pas ce qu'est ListObjects c'est le moment de faire une recherche sur le web.

 

Vote positif 0 Vote négatif