Discussion :

[cynoq]

Bonjour à tous,
Je bloque sur une boucle For.
Lorsque je lance la macro, le code VBA bloque sur ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 401 To 2 Step -1 ' Boucle de recherche sur les 400 premières lignes de la feuille
        If Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete ' Si la 1ère colonne de la ligne sélectionnée est vide, la ligne est supprimée)
    Next

La macro tourne en boucle et je suis obligé de stopper la macro à la main.
Quelqu'un peut-il me dire d'où peut venir le problème ?
Merci par avance.

[Cocotte278]

Cynoq,

Juste deux questions :

• As-tu pu observer ce qui est sélectionné après que t'as première ligne soit supprimée ?
• Arrives-tu à supprimer au moins une ligne avec ta macro ?

[cynoq]

Petite correction,
je viens de faire un test en modifiant la quantité de lignes à traiter.
Verdict :
- la macro, au ralenti mais elle tourne
- il ne me supprime pas forcément les lignes où la première colonne est vide

Le plus étrange est que cette même macro, sans aucune modification majeure, fonctionnait encore très bien ce matin.

Je cale complètement...

Je viens d'ajouter des MsgBox() dans la boucle, j'ai bien une reprise ligne par ligne, les lignes avec une première cellule vide sont supprimées.

[gFZT82]

Bonjour,

A priori, le problème ne vient pas de ta macro.
N’as-tu pas placé un événement dans ton code (Worksheet_Change par exemple) ?

Si tu exécute ton code en mode pas à pas, tu dois pouvoir constater ce qui se produit réellement.

Cordialement.

[MarcelG]

Bonjour à vous deux,

Si je peux me permettre d'intervenir, je dirais que la méthode qui consiste à balayer les cellules pour effectuer une action ne doit être qu'un dernier recours.

Pour une meilleure efficacité, mieux vaut privilégier les 2 méthodes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Find

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SpecialCells

.

Soit ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2:A401").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[cynoq]

Merci à tous pour votre aide, j'ai repris quelques remarques pour améliorer mon code

Pour mon problème de lenteur, il venait de la recopie d'une formule dans une feuille. J'ai changé la méthode et tout va nettement mieux

[Cocotte278]

Ca fonctionne comme tu veux alors ?