Bonjour à tous,
Je viens vers vous car j'ai un problème que je ne comprends pas et par conséquent que je n'arrive pas à résoudre.
Je souhaite supprimer des lignes d'une feuille excel en fonction d'un critère.
J'utilise le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For i = 1 To nbrelignes
If Range("J" & i) < DateValue(Now) Then
Rows(i & ":" & i).Delete Shift:=xlUp
i = i - 1
End If
Next i
Tout fonctionne bien jusqu'à la ligne 545 où là excel tourne sans jamais s'arrêter.
J'ai fait le test en virant la variable nbrelignes (qui est en fait le nombre de lignes de ma feuille récupéré par nbrelignes = ActiveSheet.UsedRange.Rows.Count) et en la remplaçant par une constante. Tout fonctionne sauf si je mets une constante supérieure à 545...
Et là je ne pige plus du tout.
Quelqu'un aurait une idée ?
D'avance merci pour vos aides.
Tchebi