Suppression de lignes sur vba/excel

Question

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

michel_m · Answer

Re,

Sub virerligvide()
Dim derlig As Long

derlig = Range("A65536").End(xlUp).Row
Range("A1:A" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Suppression de lignes sur vba/excel

1 réponse

Discussions similaires

Newsletters