Discussion :

[iliesss]

Bonjour
Svp je souhaite modifier la macro suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()

    Sheets("Feuil1").Select
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, "1/23/2018")
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="Affecter"

End Sub

de telle sort que "1/23/2018" devient la valeur de la cellule sheets("Feuil2").range("B2")

[Menhir]

Svp je souhaite modifier la macro suivante de telle sort que "1/23/2018" devient la valeur de la cellule sheets("Feuil2").range("B2")

As-tu essayer simplement de remplacer "1/23/2018" par Worksheets("Feuil2").Range("B2") ?

[iliesss]

oui mais ça marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
 
    Sheets("Feuil1").Select
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Sheets("Feuil2").Range("B2").Value)
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="Affecter"
 
End Sub

[Menhir]

J'ai testé ceci qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Dim MaDate As String
    MaDate = Sheets("Feuil2").Range("B2").Value
 
    Sheets("Feuil1").ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Ma Date)

Mais ne sachant pas exactement ce qu'il y a dans ta cellule B2, je ne peux garantir que ça marchera dans ton cas.

[davido84]

Peut-être comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:=Array(2, Worksheets("Feuil2").Range("B2").Value

A+

[iliesss]

dans la cellule B2 j'ai une date en format date courte


Et dans le tableau1


et après l’enregistreur de macro je constate que dans le Tableau1 la date et de format MM/JJ/AAAA
je pense que le seul problème est dans Format date dans le Tableau1

[patricktoulon]

re
bonsoir
l'eternel goffre d'incompréhention entre ce que tu vois et ce qui est vraiment dans cellule

parti de la un principe a adopter c'est de filtrer les lignes par la valeur numerique de la date
clng( cdate("xx/xx/xxxx))


exemple ici je veux tout ce qui est en dessous le 05/1/2018

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
    With ActiveSheet.Range("$A$1:$A$10"): .AutoFilter Field:=1, Criteria1:="<=" & CLng(CDate("5/01/2018")): End With
End Sub

regarde bien ce qui est affiché dans la barre de formule et ce que tu vois dans la cellle

[iliesss]

Bonjour
Mais dans ma question la valeur du filtre existe dans la cellule B2 de feuil2 elle n'est pas toujours fixe

[patricktoulon]

et alors???????
clng(cdate(cells(2,2).value))

[iliesss]

Merci pour votre réponse
Je vais tester ça demain
Bonne nuit

[iliesss]

bonjour
J'ai remplacer "5/01/2018" par la cellule qui contient la date CLng(CDate(Sheets("feuil2").Range("B2").Value
mais ça marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
 
Sheets("Feuil1").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, CLng(CDate(Sheets("feuil2").Range("B2").Value)))
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:="Affecter"
 
End Sub

[Docmarti]

Bonjour.

Essaie avec une variable de type String contenant une date au format de date americain, "m/d/yyyy"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim maDate As String
 
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter
 
maDate = Format(Worksheets("Feuil2").Range("B2").Value, "m/d/yyyy")
 
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=Array(2, maDate)

[Menhir]

Essaie avec une variable de type String

C'est ce que je lui avais conseillé dans le post #4 mais, visiblement, il a zappé.

[iliesss]

Merci les amis
Grace a vous voici le code finale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
 
Dim maDate As String
 
maDate = Format(Sheets("Feuil2").Range("B2").Value, "MM/DD/YYYY")
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, maDate)
 
End Sub

[Docmarti]

C'est ce que je lui avais conseillé dans le post #4 mais, visiblement, il a zappé.

Oui. Merci. C'est ton post #4 qui m'a inspire, bien visiblement. Il m'a amene a tatonner pour decouvrir que le format de date americain dans un array est tres efficace. Il permet meme d'utiliser "=" dans les criteres pour filtrer sur une date.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Operator:=xlFilterValues, Field:=1, Criteria1:="=" & maDate