Filtre Tableau en VBA

Version imprimable

Bonjour
Svp je souhaite modifier la macro suivante
Code:

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")

21/02/2018, 16h31
Menhir

Citation:

Envoyé par iliesss

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") ?

1 pièce(s) jointe(s)

oui mais ça marche pas

Code:

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

J'ai testé ceci qui fonctionne :
Code:

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.

21/02/2018, 18h21
davido84

Peut-être comme cela :

Code:

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

A+
21/02/2018, 21h07
iliesss

2 pièce(s) jointe(s)

dans la cellule B2 j'ai une date en format date courte
Pièce jointe 353316

Et dans le tableau1
Pièce jointe 353318

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
21/02/2018, 21h48
patricktoulon

1 pièce(s) jointe(s)

re
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:

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
Pièce jointe 353328
;)
21/02/2018, 22h00
iliesss

Bonjour
Mais dans ma question la valeur du filtre existe dans la cellule B2 de feuil2 elle n'est pas toujours fixe
21/02/2018, 22h06
patricktoulon

re

et alors???????
clng(cdate(cells(2,2).value))
21/02/2018, 22h24
iliesss

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

1 pièce(s) jointe(s)

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:

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
Pièce jointe 353443

Bonjour.

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

Code:

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)

22/02/2018, 12h51
Menhir

Citation:

Envoyé par Docmarti

Essaie avec une variable de type String

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

Merci les amis
Grace a vous voici le code finale

Code:

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

22/02/2018, 14h21
Docmarti

Citation:

Envoyé par Menhir

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:

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