Discussion :

[kennyflorian]

Bonjour a tous.

En VBA je souhaite balayer toute une plage de lignes en supprimant la ligne entière si il n'y a rien dans la colonne F.
J'utilise le code ci dessous.
C'est une boucle qui incrémente d'1 cellule à chaque boucle tant que la cellule en A n'est pas vide et qui regarde ce qu'il y a en F et le numéro de ligne. Si il n'y a rien en F et le numéro de ligne ça supprime la ligne.

Code :

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

1
2
3
4
5
6
7
8
9
Worksheets("Donnees").Activate
Range("A1").Select
Do Until ActiveCell = ""
m = ActiveCell.Row
 If Range("F" & m).Value = "" Then
 Range("A" & m & ":J" & m).Delete
 End If
 ActiveCell.Offset(1, 0).Select
Loop

Mon problème est que lorsque j'exécute la macro, j'ai l'impression qu'elle est trop rapide et du coup elle ne supprime rien. En effet en la faisant fonctionner pas a pas elle marche très bien mais dès qu'on passe en execution automatique elle ne fait plus rien.
Comment résoudre ce problème ?

Merci

[ouskel'n'or]

Code :

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

Range("A" & m & ":J" & m).entirerow.Delete

[kennyflorian]

Merci c'est résolu