Bernard-Louis
XLDnaute Occasionnel
Bonjour le forum,
J'ai cette macro qui tourne depuis plusieurs mois,
maintenant elle plante apres avoir supprime une 10 de lignes sur :
alors qu'il y a environ 1500 lignes a supprimer.
Quelqu'un aurait il une idée sur ce plantage ?
Merci pour l'aide.
J'ai cette macro qui tourne depuis plusieurs mois,
Code:
Sub SupprimeAnnee()
Dim i As Integer
Sheets("SWI08").Select
If MsgBox("Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "Vous voulez supprimer l'année 2009 ?", vbYesNo) = vbYes Then
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Value = "2009" And Cells(i, 1) < Now Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next
Else
End If
End Sub
maintenant elle plante apres avoir supprime une 10 de lignes sur :
Code:
i = i - 1
alors qu'il y a environ 1500 lignes a supprimer.
Quelqu'un aurait il une idée sur ce plantage ?
Merci pour l'aide.