Discussion :

[ouskel'n'or]

Je crois que le code a déjà été donné par SilkyRoad mais je ne l'ai pas retrouvé. Donc
Le code suivant supprime les ligne vides mais en remplaçant Delete par Hidden = True, on se contente de les masquer.

Code :

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

1
2
3
4
5
6
7
8
9
Sub SupprimerLesLignesVides()
Dim NbLignes As Integer
    NbLignes = Range("A65535").End(xlUp).Row
 
    For i = NbLignes To 1 Step -1
        'supprimer ligne vide
        If Range("IV" & i).End(xlToLeft).Column = 1 And Cells(i, 1) = "" Then Rows(i).Delete 'ou .Hidden = True pour les masquer
    Next i
End Sub

[dadavyvy]

Si la colonne A n'est pas remplie, il faut adapter NbLignes à la colonne la plus remplie... ou sinon :

Code :

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

NbLignes = Activesheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

On peut également compter le nombre de cellules vides ou remplies, ou le nombre de cellules visiblement vides (vraiment vide ou contenant un texte vide "") :

Code :

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

1
2
3
4
5
6
7
8
 
' Avec prise en compte des textes vides "" -> cela revient donc au code de ouskel'n'or
If Application.WorksheetFunction.CountBlank(Rows(i)) = 256 Then Rows(i).Delete
' ou
If Application.WorksheetFunction.Count(Rows(i)) = 0 Then Rows(i).Delete
 
' Sans prise en compte des textes vides ""
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete

[ouskel'n'or]

Hello dadavyvy, tu es de retour ?
Le code que tu donnes utilise WorksheetFunction, et le problème rencontré ici par sebi78 était la lenteur de sa procédure.
Je lui ai donc conseillé de regarder là où un gugus donnait un code qui me paraissaît très sioux...
Et le gugus, c'était lui, avec le code très sioux et tout et tout
J'ai supposé que le problème de lenteur était dû à l'usage de WorksheetFunction dans son propre code et j'ai pondu le code ci-dessus qui lui est instantanné. Et je ne suis pas allé plus loin.
Si tu as le temps, teste tout ça avec GetTickCount&
A+

Edit
Et avec Empty au lieu de "", ce ne serait pas mieux ? Je teste.

[ouskel'n'or]

Je viens de tester les deux solutions, celle de sebi78 et la mienne.
Sur 119 lignes dont 35 lignes vides
Le code de sebi, en millisecondes : 47 ms
Le mien, toujours en millisecondes : 47 ms

Et il va falloir que j'annonce ça à sebi
Les codes utilisés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub sup_ligne_vid_2() 'Selon sebi78
Dim i As Integer, Debut
    'Debut = GetTickCount& 'Ne sert qu'à mesurer le temps d'exécution
    Application.ScreenUpdating = False
        'boucle sur les lignes 100 à 1
        NbLignes = Range("A65535").End(xlUp).Row
        For i = NbLignes To 1 Step -1
            'supprimer ligne vide
            If Application.WorksheetFunction.CountA(Rows(i)) = Empty _
            Then Rows(i).Delete
        Next i
    Application.ScreenUpdating = True
    'MsgBox GetTickCount& - Debut  'Ne sert qu'à mesurer le temps d'exécution
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub SupprimerLesLignesVides()
Dim NbLignes As long, i as long, Debut
Application.ScreenUpdating = False
'Debut = GetTickCount& 'Ne sert qu'à mesurer le temps d'exécution
    NbLignes = Range("A65535").End(xlUp).Row
 
    For i = NbLignes To 3 Step -1
        If Range("IV" & i).End(xlToLeft).Column = 1 And Cells(i, 1) = Empty Then Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
'MsgBox GetTickCount& - Debut  'Ne sert qu'à mesurer le temps d'exécution
End Sub

Dernière remarque : Bien qu'il n'y ait pas de sélection de ligne dans le code, l'utilisation de Application.screenUpdating = false fait gagner 141 ms aux procédures (47 au lieu de 188)

[dadavyvy]

Bonjour ousk',

désolé je ne connaissais pas le véritable problème de gagner du temps...

je suis tout à fait d'accord avec la solution de AlainTech ici posté le 13/05/07 à 4h48!
Il faut, en plus de bloquer le ScreenUpdating, bloquer le recalcul automatique.

Ensuite, pour éviter également de faire des delete un par un, tu peux aussi enregistrer dans une variable les différentes lignes à supprimer, et les supprimer toutes en une seule fois à la fin, avec un Union. Mais avec le ScreenUpdating=False et le Calculation=xlManual, ça ne devrait rien changer...

M'enfin bon, avec 47ms je pense qu'il n'y a pas trop d'attente pour l'utilisateur...

[ouskel'n'or]

Je suis d'accord avec toi. Mais j'ai ajouté une réponse incluant les différents aspects à envisager. Si tu veux y jeter un oeil ici
Je compte sur toi pour me contredire le cas échéant. Merci

[ouskel'n'or]

Bon. Ici la solution la plus sioux donnée par Michel M, complétée selon les conseils d'AlainTech si présence de formules.
Temps d'exécution sur le même fichier : 16 ms
Seule condition nécessaire : les colonnes de la plage de données doivent toutes posséder un en-tête

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 Suppression_Ligne_Vide()
Dim dercol As Integer
Dim NbLignes As long
 
    NbLignes = Range("A5").SpecialCells(xlCellTypeLastCell).Row
    dercol = Range("IV1").End(xlToLeft).Column
    Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
 
        Cells.Range(Cells(5, dercol), Cells(NbLignes, dercol)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
        Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 
End Sub

Application.Calculation est utile si la plage de données contient des formules. Ne ralentit pas la procédure s'il n'y en a pas.

[ouskel'n'or]

Inspiré d'une des solutions données ci-avant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MasquerLesLignesVides()
Dim NbLignes As Long, i As Long, Debut
    Application.ScreenUpdating = False
        NbLignes = Range("A65535").End(xlUp).Row
 
        For i = NbLignes To 3 Step -1
            If Range("IV" & i).End(xlToLeft).Column = 1 And Cells(i, 1) = Empty _
               Then Rows(i).Hidden = True
        Next i
 
    Application.ScreenUpdating = True
End Sub