Discussion :

[Souriane]

Bonjour,

Je veux que la macro suivante face un tri sur mon tableau avec le critère suivant : ne conserver que les lignes dont la colonne Date (la 6e colonne) est égale à la date du prochain mercredi.

Quand j'exécute la macro, toutes les lignes se masquent alors qu'il y a bien des lignes qui correspondent au critère. Si je vais manuellement vérifier le filtre, il est bien indiqué la bonne date. Si je clique «OK», alors là le filtre s'exécute.

Code :

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

1
2
3
4
5
6
7
8
9
Sub ProchainCG()
 Dim DateMercredi As Date
 Dim DateCG As Variant
 
 DateMercredi = Now() + 5
 DateCG = Left(DateMercredi, 10)
 Worksheets("MonTab").Range("A1").AutoFilter Field:=6, Criteria1:=DateCG, VisibleDropDown:=True
 
End Sub

Quelle ligne de mon code est erronnée? Merci!
Souriane

[joe.levrai]

Bonjour,

j'ajoute à ta signature sur "une question bien posée ...." : une recherche effectuée sur le forum = 90% de chance de trouver son bonheur


sujet traité et résolu aujourd'hui : http://www.developpez.net/forums/d15...tomatique-bug/

[Souriane]

Bonjour,

Merci Joe, c'est gentil de me rappeler de faire une recherche... mais je fais TOUJOURS une recherche sur le forum. C'est simplement que je le fais via Google et j'imagine qu'il ne traite pas ce qui a été fait dans les dernières heures. Aussi, c'est peut-être que les mots que j'utilisais pour ma recherche ne couvre pas ce message....

Bref, j'ai lu l'autre post et je ne parviens pas à l'appliquer comme il faut à ma situation. J'ai essayé pleins de méthodes et ça me donne continuellement le code d'erreur «Argument non facultatif».

Aurais-tu la gentillesse de m’aiguiller plus "profondément" car j'y ai passé déjà plus d'une heure ce matin et je m'arrache les cheveux!!!

Un immense merci pour ton aide!

Souriane

[joe.levrai]

Je suis assez surpris ... ton code fonctionne parfaitement de mon côté, j'ai bien les lignes où en colonne F on a une date "03/02/2016" (format date)

je l'ai utilisé ainsi :

Code :

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

Worksheets("Feuil1").Range("A1").AutoFilter 6, Left(Now() + 5, 10)

Quel est le format appliqué à tes cellules ? Ainsi qu'une valeur exemple (celle qu'on voit dans la barre de formule)

[Souriane]

Bonjour,

Pour répondre à ta question, le format des cellules de ma colonne est le format "date".

Je ne comprends vraiment pas mon problème!

La ligne que JoeLevrai a écrit ci-dessus ne fonctionne pas sur mon poste. (Worksheets("Feuil1").Range("A1").AutoFilter 6, Left(Now() + 5, 10) )

Si j'écris ainsi, ça ne fonctionne pas plus :

Code :

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

Worksheets("Liste des dossiers").Range("A1").AutoFilter 6, Criteria1:="=" & Left(Now() + 5, 10)

Mais si j'écris ceci, ça fonctionne!!!!

Code :

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

Worksheets("Liste des dossiers").Range("A1").AutoFilter 6, Criteria1:=">=" & Left(Now() + 5, 10)

(Noter, le «>») Cependant, évidemment, ce n'est pas ce que je souhaite, je n'ai pas besoin du "plus grand que"…

Une idée, une piste?

[joe.levrai]

En mode bourrin

Code :

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

1
2
3
4
5
Sub tr()
 
Worksheets("Feuil2").Range("A1").AutoFilter 6, _
                                Format(CDate(Left(Now() + 5, 10)), "dd/mm/yyyy", vbMonday, vbFirstFourDays)
End Sub

essaye de faire un classeur test (sans macro) avec juste un jeu de données fictives mais sur lesquelles tu arrives à reproduire le problème et de le joindre à la discussion.