problème sur une boucle

[gg77]

Bonjour le forum.

Je vous explique mon problème:
J'ai un tableau avec plusieurs lignes et, à l'aide d'un bouton de commande, je voudrais que dans ce tableau toutes les lignes dont la cellule de la colonne E est vide, la ligne s'efface.

j'ai essayer de faire une boucle mais mon code efface toutes les lignes de mon tableau.

je joint mon fichier.

Merci pour votre aide.

 

[gg77]

[file name=boucle_gg77.zip size=8922]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/boucle_gg77.zip[/file]

 

[TOFatJOB]

Salut,

c'est normal, tu testes I5 qui est toujours vide !!!

Relis ton code.

Bye

 

[JC de Lorient]

salut GG, le forum
essayes plutot ce code
Private Sub CommandButton1_Click()
For i = Range('a65536').End(xlUp).Row To 9 Step -1
If Cells(i, 5).Value = '' Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub

 

[TOFatJOB]

Excuses, j'ai écris trop vite...

le problème est que tu efface systèmatiquement la ligne 9

Rows(i).Select

est mieux.

Bye

 

[PascalXLD]

Bonjour

Je crois pas tof il y a bien la variable i

je verrais le code ainsi

Application.ScreenUpdating=false
For i = 500 To 9 Step -1
If Cells(i, 5).Value = '' Then
Rows(i).Delete
End If

Next i
Application.ScreenUpdating=true


Bon courage

Edition : OUps excuse JC collision. Mais on est parti dans le même sens

Message édité par: Pascal76, à: 14/06/2006 10:16

 

[gg77]

Merci a tous les deux.

Ca marche beaucoup mieux.

Merci 😉