Discussion :

[malabarbe]

Bonjour,

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

Code :

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

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

Merci de m'aider

[patbou]

bonjour

pour supprimer une ligne il faut aller de la derniere ligne a supprimer a la premiere

Code :

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

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