Discussion :

[Trust]

Une question me chiffone depuis le début d'après midi.
Mon code fonctionne plutôt bien (niveau débutant à VBA, je précise ), mais je souhaiterais optimiser mon code.

Je dois, à un moment donné, supprimer des lignes vides de ma feuille.

ALGO :
Je me positionne en fin de feuille (en "A65536"), et je remonte avec une boucle (Step -1) afin de supprimer les lignes vides.

CODE :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Test()
 Dim TempCell As Range
 Dim LignePrint As Integer
 Dim i As Integer
 
 Set TempCell = Sheets("toto").Range("A65536")
 LignePrint = TempCell.End(xlUp).Row
 
 For i = LignePrint To 1 Step -1
     If Cells(i, 1).Value = "" Then
         Rows(i).Delete xlUp
     End If
 Next i
End Sub

QUESTION : existe-t'il autre chose que d'utiliser ma cellule A65536 pour être à la fin de ma feuille ?

Merci d'avance !

[fring]

Tu peux supprimer

Code :

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

Set TempCell = Sheets("toto").Range("A65536")

et directement inscrire

Code :

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

LignePrint = Sheets("toto").Range("A65536").End(xlUp).Row

tu peux également l'écrire comme ceci

Code :

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

LignePrint = Sheets("toto").Cells(Rows.Count, 1).End(xlUp).Row

tu peux également supprimer le xlUp inutile

Code :

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

Rows(i).Delete

[Trust]

Merci fring !
Ça fonctionne très bien