Formule suppressions de lignes

[Crash]

Bonjour à tous,

Je cherche une formule ou un macro pour supprimer toute les lignes vides .

J'explique sur mon tableau excel si a1 est vide alors je voudrais l'effacer car dans la ligne a a2 est une valeur qui ne me sert pas.

Ps: je suis novice avec Excel


Merci

 

[JORDAN]

Re : Formule suppressions de lignes

Salut,
peut etre comme ceci

Sub SupLigne()
Dim I As Integer

For I = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(I, 1) = "" Then Cells(I, 1).EntireRow.Delete
Next I

End Sub

 

[Staple1600]

Re : Formule suppressions de lignes

Bonsoir à tous

Une autre voie sans boucle

Sub DELVIDES() ' syntaxe qui me va bien
[A:A].SpecialCells(4).EntireRow.Delete
End Sub

La même mais version "débutant"

Sub DELVIDESII()' syntaxe plus orthodoxe et plus accessible
Dim DERLIGNE As Long 'dernière ligne non vide
Dim MES_CELLULES_VIDES As Range
DERLIGNE = Range("A" & Cells.Rows.Count).End(xlUp).Row 'On trouve  le numéro de la ligne
Set MES_CELLULES_VIDES = Range("A1:A" & DERLIGNE).SpecialCells(xlCellTypeBlanks) 'On identifie les cellules vides
MES_CELLULES_VIDES.EntireRow.Delete 'on efface les ligne contenants des cellules vides
Set MES_CELLULES_VIDES = Nothing
End Sub

PS: Pour insérer une macro: Dans Excel, faire :

• ALT+F11 puis Insertion/Module -> Copier/Coller dans la partie blanche à l''écran le code VBA désiré
• Retourner dans Excel (ALT+Q)
• Faire Outils/Macros -> Exécuter NOMDELAMACRO

 

[JORDAN]

Re : Formule suppressions de lignes

Bonsoir Staple1600,
Trop fort ta 1ère solution, je ne connaissais pas, merci pour le cours !!!
Cdt