suppression des lignes vides

[Pias]

Bonsoir, le Forum

Afin de pouvoir progresser et comme il n’y a pas de recherche je viens de regarder tous les anciens messages de l’année 2004 a la recherche des infos sur un sujet que je suis sur a déjà été abordé plusieurs fois sur le forum.

Et j’ai bon regarder le mini guide filtres élaborés par Thierry ce n’est pas exactement ça que je recherche a faire.

J’aimerais tous simplement un petit macro pour que a chaque affichage d’une feuille celle ci n’affiche automatiquement que les lignes plaines
( suppression des lignes vides ) .

Merci d’avance pour les infos ( Macro ou liens )


@pias

 

[Eric C]

Bonjour à tous & à toutes
Bonjour Pias


// Supprimer les lignes vides: on ne boucle que sur le nombre de lignes vides ‘de Michel M
Sub supprimer_ligne()

Dim cptr, nbre As Byte

'nombre de cellules vides
nbre = WorksheetFunction.CountBlank(Range("D4100"))

cptr = 1
While cptr <= nbre
'numéro de la 1° ligne vide
lig = Columns(4).Find("", [D3], , , xlByRows).Row
Rows(lig).Delete
cptr = cptr + 1
Wend

End Sub

@ ++ Eric C

 

[PhiBou]

Bonjour Pias, le Forum

Ci-joint une procédure qui supprime les lignes vides de la feuille active:


Sub SuppressionLignesVides()
Dim Prem As Integer
Dim Der As Integer
Dim Col As Integer
Dim Lig As Integer
Application.ScreenUpdating = False
Prem = ActiveSheet.UsedRange.Rows(1).Row
Der = ActiveSheet.UsedRange.Rows.Count
Col = ActiveSheet.UsedRange.Columns.Count
Lig = Prem
Do Until Lig > Der + Prem
If ActiveSheet.Rows(Lig & ":" & Lig).SpecialCells(xlCellTypeBlanks).Count = Col Then
ActiveSheet.Rows(Lig & ":" & Lig).Delete Shift:=xlUp
Lig = Lig - 1: Der = Der - 1
End If
Lig = Lig + 1
Loop
Application.ScreenUpdating = True
End Sub


A toi de l'adapter à ton WorkBook SheetActivate

Bon WE à tous

PhiBou

 

[PhiBou]

Re,

Excuse Eric C de ne pas t'avoir salué, je n'avais pas réactualisé.

@+

 

[Pias]

Merci PhilBou et Eric

C'est très sympa.

Je vais voir tous ça ...

@pias