transformer le mois mars en 03

Bonjour zoulou08 et le Forum
pourqui n'utilises tu pas simplement la propriéte 'ListIndex de ton ListBox
ListBox.ListIndex + 1 est égal à la valeur de ton mois
Bon courage et à +
Denis

ok merci
j'ai bien vu ce que tu as décrit mais les jours, ca marche comment?

car je ne me represente pas mon filtre auto
faut il que je passe en revu toutes mes lignes pour trouver la derniere date du mois que je veux exploiter (tableau de 3000 ligne)

ca va etre long (en temps) si je fais une boucle balayant toutes les lignes

a+

j'ai ma variable mois qui est appelée mo
comment mettre ma variable dans le critere filtre (ici mois.value mais ca ne marche pas'

et pour copier les lignes restantes, je fais une boucle avec la condition si la ligne n est pas vide alors....
------------------------
voici l'extrait du code

Sheets('données').Select 'applique le filtre auto sur la ligne 1 de 'données'
Rows('1:1').Select
Selection.AutoFilter

Cells.Select 'ok
Selection.AutoFilter Field:=2, Criteria1:='<31/mois.value/2005', Operator:=xlAnd
'Rows('5:16').Select
'Selection.Delete Shift:=xlUp


merci

Rebonjour zoulou08 et le Forum
mets comme ceci (je nai pas essayé !)
'<31/' & mois.value & '/2005'
les ' délimitent ton texte, il n'en faut pas pour ta variable
Bon courage et à +
Denis