Ligne vides ne se suppriment pas

Fermé

randall Messages postés 426 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 23 octobre 2024 - 22 janv. 2023 à 17:39
randall Messages postés 426 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 23 octobre 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

A voir également:

Ligne vides ne se suppriment pas
Aller à la ligne excel - Guide
Site de vente en ligne particulier - Guide
Partager photos en ligne - Guide
Ne pas apparaître en ligne sur instagram - Guide
Gps hors ligne - Guide

2 réponses

Réponse 1 / 2

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
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

Réponse 2 / 2

randall Messages postés 426 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 23 octobre 2024 9
23 janv. 2023 à 16:41

Impeccable merci pour la réponse

Discussions similaires

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

Ligne occupée : pourquoi mon téléphone sonne occupé ?

On me voit connecté sur facebook alors que je n'y suis pas

Statut « en ligne » alors que non