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