Macro supp de lignes qui plante

[Bernard-Louis]

Bonjour le forum,

J'ai cette macro qui tourne depuis plusieurs mois,

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 :

 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.

 

[mutzik]

Re : Macro supp de lignes qui plante

bonjour, pour faire une suppression de lignes, il vaut mieux partir du bas vers le haut, soit
For i = Range("A65536").End(xlUp).Row to 1 step -1
sinon

i = Range("A65536").End(xlUp).Row
do while i<>1
If Cells(i, 1).Value = "2009" And Cells(i, 1) < Now Then Cells(i, 1).EntireRow.Delete
i = i - 1
loop

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

Bonjour Mutzik et jean marce,l et merci de vous pencher sur mon probleme

J'ai essayé vos solutions, mais a chaque fois elle plante sur Next i et là je commence a saturé.

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

Merci Jean Marcel,

Voila le fichier sans données confidentielles

 

[mutzik]

Re : Macro supp de lignes qui plante

re à tous les deux,
oui chez moi aussi, cela fonctionne, même avec le code do while - loop
fais attention quand tu déclares tes variables, un integer ne va que jusu'à 32767 et cela risque de te pposer prob à l'avenir si tu as plus que ce nombre de lignes (c'est pour cela que l'ami Jean-Marcel l'a déclaré en long
sinon, And Cells(i, 1) < Now ne sert strictement à rien et sera toujours vrai puisque now()renvoie un chiffre correrspondant au nombre de jours écoulés depuis le 1er janvier 1900, donc sera toujours supérieur au chiffre que tu mets dans la colonne A

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

Merci à tous les 2,

Elle plante toujours sur le 1er End If,
Le fichier total fait 8500 lignes et la macro doit en supprimer 2300 environ.
Je laisse ce probleme de coté pour l'instant, car je ne vois pas de solution;
Merci encore et bonne journée.
Cordialement

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

la macro plante toujours sur le 1er End If.
Merci encore et bonne journée.
Cordialement

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

Toujours plantage sur le End If
Tu dois avoir raison jean Marcel, cela ne doit pas venir de la macro, mais alors de quoi ?

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

"Exécution interrrompue"
continuer = mais rien ne se passe
Fin
Débogage

puis si on debogue la ligne : End If est en jaune

 

[MJ13]

Re : Macro supp de lignes qui plante

Bonjour Bernard-Louis, Jean-marcel, Mutzig.

J'ai testé avec le fichier du post #6 sur 65535 lignes (en rajoutant des valeurs 2009 en colonne 1) et en mettant as double au lieu de as integer.
Je n'ai pas eu de problèmes sur XL 2003, sinon que c'est long, long, long, très long...

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

Si dans le code je fais fonctionner la macro en laissant le bouton F8 enfoncé, la macro tourne impeccablement bien.
Dès que je la lance par le bouton, elle me supprime une 10 de lignes puis se plante.
Je suis sur 2003

 

[Bernard-Louis]

Re : Macro supp de lignes qui plante

Merci Jean Marcel, c'est enfin la bonne solution.
C'est exact, j'avais mis un point d'arret et je pensais l'avoir supprimé.
Enfin tout est rentré dans l'ordre grace à toi.
Merci et bonne AM
Cordialement

 

[Romain31]

Re : Macro supp de lignes qui plante

Bonjour,

E, ajoutant de guillements, je n'ai pas d'erreur
If Cells(i, 1).Value = "2009" Then

A tester

Cordialement

Romain