VBA supprimer les lignes vides

S

stefan373

XLDnaute Occasionnel

• 21 Février 2011

• #2

Bonsoir llambry et le forum.
Pour effacer de A2 jusqu’à 65000 si colonne A est vide. 🙂

Code:

Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

A +

 

Vote positif 0 Vote négatif

L

llambry

XLDnaute Junior

• 21 Février 2011

• #3

Re : VBA supprimer les lignes vides

Merci pour la réponse rapide
j'ai essayé de mettre cette ligne dans ma macro mais ca plante ?????

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 21 Février 2011

• #4

Re.
J'ai testé sur un bouton contrôle de formulaire et ça marche, essayez chez vous.😕
Peut-être mal placé dans le code.🙁
A +

 

Vote positif 0 Vote négatif

Y

ychc

XLDnaute Occasionnel

• 21 Février 2011

• #5

Re : VBA supprimer les lignes vides

bonsoir le forum,Stefan, llambry

Va faire un tour ici, tu trouveras peut être ce que tu cherches.
https://www.excel-downloads.com/threads/est-ce-possible.157621/

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Février 2011

• #6

Re : VBA supprimer les lignes vides

Bonjour le Fil, le Forum,

Voici une macro élaborée par Hervé, que je remercie 🙂.

Code:

Sub Supprime_lignes_vides()

  Dim I As Long
  
  For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
      If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete
  Next I
  
  End Sub

Bonne soirée.

 

Vote positif 0 Vote négatif

P

Paulhardmen

XLDnaute Nouveau

• 2 Mars 2021

• #7

stefan373 à dit:

Bonsoir llambry et le forum.
Pour effacer de A2 jusqu’à 65000 si colonne A est vide. 🙂

Code:

Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

A +

Cliquez pour agrandir...

Daube

 

Vote positif 0 Vote négatif

P

Paulhardmen

XLDnaute Nouveau

• 2 Mars 2021

• #8

DoubleZero à dit:

Re : VBA supprimer les lignes vides

Bonjour le Fil, le Forum,

Voici une macro élaborée par Hervé, que je remercie 🙂.

Code:

Sub Supprime_lignes_vides()

  Dim I As Long
 
  For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
      If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete
  Next I
 
  End Sub

Bonne soirée.

Cliquez pour agrandir...

Ne marche pas

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 2 Mars 2021

• #9

Bonjour Paulhardmen,

dans cette instruction : Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

as-tu pensé à adapter la plage A2:A65000 ?

peut-être alors que ce qui a marché pour DoubleZero marchera aussi pour toi ? 🍀​

soan

 

Vote positif 0 Vote négatif

P

Paulhardmen

XLDnaute Nouveau

• 10 Mars 2021

• #10

Hello Soan,
Ha, CA, ça marche ! 🙂
Merci !
Paolo

 

Vote positif 0 Vote négatif