Macro suppression de ligne

[malabarbe]

Bonjour,

Je n'arrive pas a faire tourner ce petit bout de macro !

For i = 1 To 50
If Val(Cells(i, 3)) = 0 Then
Rows(i).Delete
End If
Next i

Merci de m'aider

 

[jp14]

Re : Macro suppression de ligne

Bonjour

Quand on supprime des lignes avec une boucle il faut toujours commencer par la dernière ligne

For i = 50 to 1 step -1

A tester

JP

 

[pierrejean]

Re : Macro suppression de ligne

bonjour malabarbe

A tester

For i = 50 To 1 step -1
If Val(Cells(i, 3)) = 0 Then
Rows(i).Delete
End If
Next i

Edit Salut JP14 🙂

 

[malabarbe]

Re : Macro suppression de ligne

Bonjour,

C'est tout a fait cela,
ça tourne nikel

Merci beaucoup pour le coup de main

@ +