Suppression de lignes sur vba/excel

Fermé

francois - 4 janv. 2010 à 23:44
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 janv. 2010 à 10:23

Bonjour,
Sur excel, j'ai un tableau de données parmi lequel des lignes vides sont aléatoirement insérées.
J'aimerais supprimer ces lignes vides de la manière suivante:

existant :
1111

2222

33333

Souhaité:
1111
2222
3333

Pourriez vous m'aidez pour définir le bon code, j'avais écrit :

For i = 1 To 8

If Range("A1").Offset(i - 1) = "" Then Row(i - 1).Delete Shift:=xlUp

Next i

Mais ca ne marche pas...

Merci pour votre aide

A voir également:

Suppression de lignes sur vba/excel
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Forcer suppression fichier - Guide
Formule excel - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 janv. 2010 à 10:23

Re,

Sub virerligvide()
Dim derlig As Long

derlig = Range("A65536").End(xlUp).Row
Range("A1:A" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Discussions similaires

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters