Aide sur erreur.

[zeltron24]

Bonsoir le forum,

Je joins ci dessous une macro d'un fichier. Lorsque le l'active elle est sensé me filtrer par mois mes dépenses. Les dates étant en colonnes B. Hors elle se plante par les lignes en rouges ci après.
Je vous remercie par avance pour l'aide que vous pourriez m'apporter

Sub CmdTriMois() ' Tri par mois
Dim vMois As Variant

vMois = InputBox("Sélectionnez le mois et l'année: (mm/aa) ", "Date.", "Date")
If Not vMois <> "" Then Exit Sub
If Not Len(vMois) = 5 Then MsgBox "Le format est incorrect": Exit Sub
If Not IsDate(vMois) Then MsgBox "L'entrée n'est pas une Date.": Exit Sub
If CDate(vMois) > Date Then MsgBox "La Date est dans le futur": Exit Sub

crit1 = ">=" & Left(mois, Len(mois) - 3) & "/01/" & Right(mois, 2)
crit2 = "<" & Left(mois, Len(mois) - 3) + 1 & "/01/" & Right(mois, 2)
Selection.AutoFilter Field:=2, Criteria1:=crit1, Operator:=xlAnd, Criteria2:=crit2

End Sub

Cordialement
zeltron24

 

[skoobi]

Re : Aide sur erreur.

Bonsoir,

au premier cout d'oeil tu as écris "mois" au lieu de "vMois" dans les 3 lignes rouges.

 

[zeltron24]

Re : Aide sur erreur.

Bonsoir skoobi,

Effectivement je ne l'avais pas vu. Ceci étant corrigé, il persiste une erreur sur la derniere ligne.
La méthode Autofilter échoue
Je cherche encore mais une aide supplémentaire serait la bien venu.
A+ et merci d'avance

 

[skoobi]

Re : Aide sur erreur.

Re,
là sans un bout de fichier c'est plus dure à trouver.