Ligne vides ne se suppriment pas

randall Messages postés 439 Date d'inscription   Statut Membre Dernière intervention   -  
randall Messages postés 439 Date d'inscription   Statut Membre Dernière intervention   -

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

Réponse 1 / 2
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 

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
Réponse 2 / 2
randall Messages postés 439 Date d'inscription   Statut Membre Dernière intervention   9
 

Impeccable merci pour la réponse
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses