Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel LIGNE VIDE

LIGNE VIDE

7 réponses
Avatar
JUJU
bonsoir a tous
comment enlever toutes les lignes vides d'un tableau
merci a tous
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Gaboly
Bonsoir,

Tu vas probablement recevoir des réponses t'indiquant
une procédure en VBA qui explore toutes les lignes en
partant de la dernière, et supprime les lignes vides.


Si la plage à traiter est importante et contient de nombreu-
ses lignes vides, une autre approche est envisageable :

1 - Insérer une colonne.

2 - Numéroter les lignes.

3 - Trier selon un critère adapté au tableau pour regrou-
per les lignes vides.

4 - Supprimer en une seule opération les lignes vides.

5 - Retrier en utilisant le numéro de ligne insérer à la
seconde étape pour rétablir l'ordre initial.

6 - Supprimer la colonne insérée pour numéroter les
lignes.

L'intérêt de cette méthode est de gagner du temps quand il
y a plusieurs milliers de lignes, en évitant de faire appel
à une boucle. Il est nécessaire que la structure du tableau
permette de regrouper les lignes vides par un tri (par
exemple présence d'une colonne toujours renseignée si la
ligne n'est pas vide).



bonsoir a tous
comment enlever toutes les lignes vides d'un tableau
merci a tous


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
garnote
Salut JUJU,

Je confirme, par la présente, la prédiction de
Michel ( de Nostre-Dame ? ).

Sub Annihile_Lignes_Vides()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If ici(i, 1) = "" Then ici(i, 1).EntireRow.Delete
Next i
End Sub

Serge


"JUJU" a écrit dans le message de
news: 1474b01c3f8a1$404654c0$
bonsoir a tous
comment enlever toutes les lignes vides d'un tableau
merci a tous



Avatar
Michel Gaboly
;-))


Salut JUJU,

Je confirme, par la présente, la prédiction de
Michel ( de Nostre-Dame ? ).

Sub Annihile_Lignes_Vides()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If ici(i, 1) = "" Then ici(i, 1).EntireRow.Delete
Next i
End Sub

Serge

"JUJU" a écrit dans le message de
news: 1474b01c3f8a1$404654c0$
bonsoir a tous
comment enlever toutes les lignes vides d'un tableau
merci a tous




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


Avatar
michdenis
Bonjour Garnote,

Le Monsieur veut supprimer les lignes qui sont complètement vide pas seulement celles dont la première cellule est vide
car dans ce cas nous pourrions écrire ceci:

Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlUp)


Salutations!


"garnote" a écrit dans le message de news:K_MZb.62970$
Salut JUJU,

Je confirme, par la présente, la prédiction de
Michel ( de Nostre-Dame ? ).

Sub Annihile_Lignes_Vides()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If ici(i, 1) = "" Then ici(i, 1).EntireRow.Delete
Next i
End Sub

Serge


"JUJU" a écrit dans le message de
news: 1474b01c3f8a1$404654c0$
bonsoir a tous
comment enlever toutes les lignes vides d'un tableau
merci a tous



Avatar
garnote
Quelle horreur !
Trop absorbé par la soirée des César !

Sub Supprime_Lignes_Vides1()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If Application.CountA(ici.Rows(i)) = 0 Then ici.Rows(i).Delete
Next i
End Sub

Sub Supprime_Lignes_Vides2()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If Application.CountA(ici.Rows(i)) = 0 Then ici.Rows(i).EntireRow.Delete
Next i
End Sub

Il y a sûrement plus court, comme d'habitude :-(

Serge



"michdenis" a écrit dans le message de news:
edBqDnL#
Bonjour Garnote,

Le Monsieur veut supprimer les lignes qui sont complètement vide pas
seulement celles dont la première cellule est vide

car dans ce cas nous pourrions écrire ceci:

Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlUp)


Salutations!


"garnote" a écrit dans le message de
news:K_MZb.62970$

Salut JUJU,

Je confirme, par la présente, la prédiction de
Michel ( de Nostre-Dame ? ).

Sub Annihile_Lignes_Vides()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If ici(i, 1) = "" Then ici(i, 1).EntireRow.Delete
Next i
End Sub

Serge


"JUJU" a écrit dans le message de
news: 1474b01c3f8a1$404654c0$
bonsoir a tous
comment enlever toutes les lignes vides d'un tableau
merci a tous








Avatar
garnote
Sub Pareil_Pas_Pareil()
Set ici = Selection
MsgBox Application.WorksheetFunction.CountA(ici)
MsgBox Application.CountA(ici)
End Sub

WorksheetFunction. Obligatoire ou superfétatoire ?

Vive les «Invasions barbares» et «Les triplettes de Belleville» !

Serge
Avatar
Jacquouille
....D'autant plus que 10 cm plus bas ou trois jours plus bas un bien
brâââââve type t'avait mis sur la voie lactée de l'auto-réflexion avec un
row(i).delete revu et corrigé en rows(i).delete.....Le tout amélioré par
ChrisV pour superber l'oeuvre. Que dis-je, le chef d'oeuvre.
Ceci dit avec une tonne d'humour bien frais. -)))
Pour faire bref, rien de tel qu'un bon tri, ça va plus vite. -))
--
Jacquouille conseille : http://www.excelabo.net


"garnote" a écrit dans le message news:
ByRZb.65520$

Quelle horreur !
Trop absorbé par la soirée des César !

Sub Supprime_Lignes_Vides1()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If Application.CountA(ici.Rows(i)) = 0 Then ici.Rows(i).Delete
Next i
End Sub

Sub Supprime_Lignes_Vides2()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If Application.CountA(ici.Rows(i)) = 0 Then
ici.Rows(i).EntireRow.Delete

Next i
End Sub

Il y a sûrement plus court, comme d'habitude :-(

Serge



"michdenis" a écrit dans le message de news:
edBqDnL#
Bonjour Garnote,

Le Monsieur veut supprimer les lignes qui sont complètement vide pas
seulement celles dont la première cellule est vide

car dans ce cas nous pourrions écrire ceci:

Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlUp)


Salutations!


"garnote" a écrit dans le message de
news:K_MZb.62970$

Salut JUJU,

Je confirme, par la présente, la prédiction de
Michel ( de Nostre-Dame ? ).

Sub Annihile_Lignes_Vides()
Set ici = Selection
For i = ici.Rows.Count To 1 Step -1
If ici(i, 1) = "" Then ici(i, 1).EntireRow.Delete
Next i
End Sub

Serge


"JUJU" a écrit dans le message de
news: 1474b01c3f8a1$404654c0$
bonsoir a tous
comment enlever toutes les lignes vides d'un tableau
merci a tous