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