VBA supprimer les lignes vides

[llambry]

Bonjour

Besoin d'aide, je renseigne un fichier excel en copiant collant et de temps en temps j'ai des lignes vides.
Comment avec une macro supprimer ces lignes vides au fur et à mesure ??????

 

[stefan373]

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

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

A +

 

[llambry]

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 ?????

 

[stefan373]

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 +

 

[ychc]

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/

 

[DoubleZero]

Re : VBA supprimer les lignes vides

Bonjour le Fil, le Forum,

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

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.

 

[Paulhardmen]

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

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

A +

Daube

 

[Paulhardmen]

Re : VBA supprimer les lignes vides

Bonjour le Fil, le Forum,

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

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.

Ne marche pas

 

[soan]

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

 

[Paulhardmen]

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