Formule suppressions de lignes

Crash

XLDnaute Nouveau
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
 

Staple1600

XLDnaute Barbatruc
Re : Formule suppressions de lignes

Bonsoir à tous

Une autre voie sans boucle
Code:
Sub DELVIDES() ' syntaxe qui me va bien
[A:A].SpecialCells(4).EntireRow.Delete
End Sub

La même mais version "débutant"
VB:
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
 
Dernière édition:

Discussions similaires

Réponses
6
Affichages
260
Réponses
5
Affichages
242

Statistiques des forums

Discussions
311 720
Messages
2 081 897
Membres
101 833
dernier inscrit
sandra25