Wyrgle
XLDnaute Junior
Bonjour à tous,
Voici un bout de code qui mouline dans le vide.
Je cherche à conserver seules les lignes en col 6 qui égalent l'année choisit ds un UserForm.
Je pars du haut (ligne 2) ou d'en bas (le rang de ma derniere ligne est 19038 environ...), je ne sors jamais ds la 2eme boucle.
(j'ai séparé les 2 boucles pour plus de clarté)
Ou est l'erreur ?
Merci pour votre aide !!
Voici un bout de code qui mouline dans le vide.
Je cherche à conserver seules les lignes en col 6 qui égalent l'année choisit ds un UserForm.
Je pars du haut (ligne 2) ou d'en bas (le rang de ma derniere ligne est 19038 environ...), je ne sors jamais ds la 2eme boucle.
(j'ai séparé les 2 boucles pour plus de clarté)
VB:
Last_Line = ActiveSheet.UsedRange.Rows.Count
For i = Last_Line To 2 Step -1
'---Prend l'année seule de la date :
Cells(i, 6) = Year(Cells(i, 6))
Next i
For i = Last_Line To 2 Step -1
'---Si l'année est différente de Année choisie par le user, on efface la ligne :
If Cells(i, 6).Value <> Annee_pour_traitement Then Rows(i).EntireRow.Delete
Next i
Ou est l'erreur ?
Merci pour votre aide !!