P
pierre
Guest
bonjour à tous
je cherche à garder les 30 dernières lignes d'une archive, cette macro fonctionne trés bien sous excel 2003 mais bloque sous excel 97.
le bloquage ce situ à la ligne:
--> Rows(L).Delete
voici le code de la macro:
Sub Macro_Detect()
Dim I As Integer
Dim L As Variant
I = Range('A65536').End(xlUp).Row
If I < 40 Then
MsgBox ('Il n'y a pas + de 40 lignes')
Else:
For L = I - 40 To 3 Step -1
Rows(L).Delete
Next L
End If
End Sub
merci pour votre aide
je cherche à garder les 30 dernières lignes d'une archive, cette macro fonctionne trés bien sous excel 2003 mais bloque sous excel 97.
le bloquage ce situ à la ligne:
--> Rows(L).Delete
voici le code de la macro:
Sub Macro_Detect()
Dim I As Integer
Dim L As Variant
I = Range('A65536').End(xlUp).Row
If I < 40 Then
MsgBox ('Il n'y a pas + de 40 lignes')
Else:
For L = I - 40 To 3 Step -1
Rows(L).Delete
Next L
End If
End Sub
merci pour votre aide