bloque sur un probleme de date

Version imprimable

04/12/2011, 17h27
dalo02

bloque sur un probleme de date
bonsoir
je bloque sur un pb de date
je veux filter les feuilles d'un classeur par l'intermediaire d'une cellule
la colonne a filtrer et la cellule sont remplies a l'aide de formules
et sont formatees "mmm,yy"
la formule en A1 est ='F1'!A1 et col 9 =EDATUM(G6;H6)
resultat j'ai par ex. en A1 Dec.11 ainsi que dans la col9
j'ai essaye avec formula,text ect.. a la place de Value mais sans succes
merci pour votre aide
Code:

1 2 With ws Rows("5:5").AutoFilter Field:=9, Criteria1:="=" & Range("a1").Value
04/12/2011, 17h44
AlainTech

Bonjour,

Il ne manque pas un point devant Rows et Range?
04/12/2011, 19h12
Daniel.C

Bonsoir,

Code:

.Range(.[I5], .Cells(.Rows.Count, 9).End(xlUp)).AutoFilter Field:=1, Criteria1:="=" & Format([A1], "m/d/yyyy")
04/12/2011, 21h13
SfJ5Rpw8

Citation:

Envoyé par Daniel.C

Bonsoir,

Code:

.Range(.[I5], .Cells(.Rows.Count, 9).End(xlUp)).AutoFilter Field:=1, Criteria1:="=" & Format([A1], "m/d/yyyy")

:nono: il manque juste des . devant les .row et .range comme dit plus haut par Alain ... utiliser la feuille courante comme ici avec le [A1] provoque les mêmes erreurs que lorsqu'on utilise Range ou Row sans préciser la feuille..
04/12/2011, 22h46
Daniel.C

Citation:

il manque juste des . devant les .row et .range comme dit plus haut par Alain ... utiliser la feuille courante comme ici avec le [A1] provoque les mêmes erreurs que lorsqu'on utilise Range ou Row sans préciser la feuille..

La modif (erreur de copier / coller) a été faite dans la minute qui a suivi le post initial ;)

Par contre, utiliser la syntaxe sans point est parfaitement licite quand il s'agît de la feuille courante.
04/12/2011, 22h58
SfJ5Rpw8

Citation:

Envoyé par Daniel.C

La modif (erreur de copier / coller) a été faite dans la minute qui a suivi le post initial ;)

Par contre, utiliser la syntaxe sans point est parfaitement licite quand il s'agît de la feuille courante.

Non... Travailler sans préciser la feuille concernée est toujours une source potentielle de bug.. De plus ici il ne s'agit pas dela feuille active voir le with..
04/12/2011, 23h29
Daniel.C

Je l'ai dit, l'oubli des points est une erreur de ma part. Ceci dit, la présence de la ligne :

Code:

With ws

laisse le doute quant à l'intention de dalo02. Veut-il travailler avec cette feuille ou avec la feuille active ?
06/12/2011, 12h31
dalo02

bonjour a tous
je reprends mon pb et vous remercie pour votre aide
j'ai essaye la formule de Daniel malheureusement sans succes
je pense cela vient du formatage des cellules col et cellule en "mmm,yy"
ou du fait que la cellule et la col a filtrer sont toutes 2 avec des formules????
j'ai contourne le probleme en convertissant dans 1 autre colonne , les dates en standard-40858 pour le 1 nov 2011-et la pas de probleme.
ca depanne
mais j'aimerai bien savoir pourquoi ,histoire d'aller me coucher moins ......
merci pour votre aide

Code:

.Rows("5:5").AutoFilter Field:=256, Criteria1:="=" & .Range("iu1").Value
06/12/2011, 13h36
Daniel.C

@ bbil :

Citation:

Non... Travailler sans préciser la feuille concernée est toujours une source potentielle de bug.

J'ai, dans mon classeur de macros personnelles, plusieurs macros destinées à s'exécuter sur la feuille active. Peux-tu me dire comment les modifier pour introduire les noms du classeur et de la feuille sur laquelle je veux agir ?

Citation:

De plus ici il ne s'agit pas dela feuille active voir le with

C'est ce que nous supposons et c'est pourquoi j'ai modifié mon post initial. Cependant dalo02 n'a pas mis de point. Ou l'on suppose un oubli, ou il veut effectivement agir sur la feuille active.

@dalo02 :

Ton format est-il vraiment "mmm,yy" ? dans ce cas, essaie :

Code:

.Range(.[I5], .Cells(.Rows.Count, 9).End(xlUp)).AutoFilter Field:=1, Criteria1:="=" & Format([A1], "mmm,yy")
06/12/2011, 13h49
ZebreLoup

J'ai toujours eu le même souci avec les filtres automatiques dès qu'il ne s'agit pas de texte. Que ce soit des dates ou du numérique, impossible de mettre un critère qui marche, en formatant ou en mettant la valeur réelle.
Quand tu le fais avec l'enregistreur de macro (ça faisait longtemps que je ne l'avais pas utilisé, celui-là :)), ça ne marche pas non plus.

J'ai toujours du chercher des solutions autre. Ne sachant pas quel est ton but, je ne peux pas t'aider sur ce point.

Bonjour,

J'avais gardé dans mon souvenir que le filtre sur des dates marchait en utilisant un long comme critère ( avec fonction Clng) ... cependant cela ne fonctionne plus sous mon Excel 2003 ..?

si ta cellule A1 et ta plage à tester sont dans la même feuille et utilise le même formatage de date tu peu écrire :
Code:

1 2 3 4 5 Set ws = ActiveSheet ' N'utilise ActiveSheet qu'as l'initialisation... With ws .Range("A5").CurrentRegion.AutoFilter Field:=9, Criteria1:=.Range("A1").Text, Operator:=xlAnd Debug.Print CLng(.Range("A1").Value) End With

06/12/2011, 16h10
ZebreLoup

Ne marche pas chez moi. J'avais retourné le problème dans tous les sens et finis par faire une passe sur les lignes et un hide sur les lignes concernées.
06/12/2011, 16h17
Daniel.C

Bonjour Zebreloup, tu réponds à qui, là ?

Oui, désolé, ce n'était pas très clair, ni constructif.

L'idée de bbil de passer par la valeur ou le texte directement d'un range ne marche pas non plus chez moi. dalo02 peut quand même tester, on ne sait jamais, ça peut venir d'une version d'Excel.

Pour ce qui est du coté constructif. Si aucune solution ne marche, je préconise donc de mettre en place le filtre automatique sans option, puis de faire une passe sur toutes les lignes et de les masquer si elles ne répondent pas au critère. C'est bien sûr une solution de dernier recours.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Sub test() Dim ws As Worksheet Set ws = ActiveSheet 'ou autre Dim rg As Range Set rg = ws.Range("A5").CurrentRegion 'ou autre rg.AutoFilter Dim i As Integer For i = rg.Rows To 1 Step -1 If rg.Cells(i, 9).Value <> ws.Range("A1").Value Then rg.Rows(i).EntireRow.Hide Next i End Sub