Ligne vides ne se suppriment pas

Fermé
randall Messages postés 423 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 20 juin 2024 - 22 janv. 2023 à 17:39
randall Messages postés 423 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 20 juin 2024 - 23 janv. 2023 à 16:41

Bonjour,

Sous Excel j'ai 2 colonnes une de A2 à A20 et à côté une autre colonne  qui commence à B2 mais qui comporte des lignes vide. Avec la macro ci dessous qui consiste à supprimer des lignes vides ça fonctionne bien si une seule ligne est vide mais si 2 lignes consécutives sont vides une seule est supprimée de plus à la fin si j'ai 4 ou 5 lignes vides dans la colonne B la macro ne supprime aucune ligne ,je ne vois pas d'où vient le problème

Merci pour la réponse

Sub supprimlignes()


Dim L As Integer
Dim C As Integer
 L = 2
 C = 1
 
 For Each cell In Range("A2:A20")

If .Cells(L, C + 1) = "" Then
Cells(L, C).EntireRow.Delete

End If
L = L + 1
Next

End Sub
 


Windows / Chrome 109.0.0.0

2 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
22 janv. 2023 à 18:07

Bonjour,

Teste ceci

Sub suppr()
  Dim i%
  For i = 20 To 2 Step -1
    If Cells(i, 2) = "" Then Rows(i).EntireRow.Delete
  Next i
End Sub
0
randall Messages postés 423 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 20 juin 2024 9
23 janv. 2023 à 16:41

Impeccable merci pour la réponse

0