problème sur une boucle

G

gg77

Guest

• 14 Juin 2006

• #2

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

 

Pièces jointes

• boucle_gg77.zip

  8.7 KB · Affichages: 17

Vote positif 0 Vote négatif

T

TOFatJOB

Guest

• 14 Juin 2006

• #3

Salut,

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

Relis ton code.

Bye

 

Vote positif 0 Vote négatif

JC de Lorient

XLDnaute Impliqué

• 14 Juin 2006

• #4

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

 

Vote positif 0 Vote négatif

T

TOFatJOB

Guest

• 14 Juin 2006

• #5

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

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

Rows(i).Select

est mieux.

Bye

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 14 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif

G

gg77

Guest

• 14 Juin 2006

• #7

Merci a tous les deux.

Ca marche beaucoup mieux.

Merci 😉

 

Vote positif 0 Vote négatif