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

[malabarbe]

Bonjour,

Cela tourne a 95%

Il me reste quelques lignes indésirable

C'est peut-etre dans ma condition, je vérifie

[Trust]

essaye avec ça

Code :

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

 Rows(i).Delete xlUp

ça devrait t'aider je pense.

[malabarbe]

Bonjour,

Non, pas eu besoin du "xlUp"

J'avais une merdouille qui trainait dans quelques cellules !!!

Merci beaucoup pour le coup de main

@ +