Bonjour
j'ai fait le code suivant pour supprimer des lignes d'un fichier excel.
if le contenue de la cellule est <60 and qu'il y quelquechose dans la suite then
supprime la ligne
et passe à l'autre ligne
else
passe à l'autre ligne
voila mon code :
i = 35
While Not Cells(i, 5) = ""
x = Cells(35, 5)
Rows("i:i").Select
If x < 60 Then
Selection.Delete Shift:=xlUp
Else
i = i + 1
End If
Wend
il marche pas, pourriez vous m'aider a le debugger.
par avance merci
benben