Supprimer la ligne si elle est vide

Cousinhub

XLDnaute Barbatruc

• 10 Août 2007

• #2

Re : Supprimer la ligne si elle est vide

Bonjour, essaie ceci :
Sub suppr()
For Each cel In Range("A2:A" & [a65000].End(xlUp).Row)
If cel = "" Then
If Range("n" & cel.Row).End(xlToLeft).Address = cel.Address Then cel.EntireRow.Delete
End If
Next cel
End Sub

Bon courage

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 10 Août 2007

• #3

Re : Supprimer la ligne si elle est vide

Bonjour bhbh
merci pour ton code mais il ne focntionne pas totalement c à d qu'il ne supprime pas toutes les lignes vide il en reste après son passage.
Christophe.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 10 Août 2007

• #4

Re : Supprimer la ligne si elle est vide

Re-,
Attention, ce code ne teste que les cellules de la colonne A pour la rapidité, et vérifie ensuite si toutes les cellules comprises entre la colonne N et A sont vides, c'est à dire entièrement vides (pas d'espaces, ni de formules...).

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 10 Août 2007

• #5

Re : Supprimer la ligne si elle est vide

🙄 Salut forum,
Essaye ca : normalement ca supprime toutes les lignes
qui sont complètement vides.
@+ 😉

 

Pièces jointes

• supprlignesvides.xls

  27 KB · Affichages: 243
• supprlignesvides.xls

  27 KB · Affichages: 253
• supprlignesvides.xls

  27 KB · Affichages: 252

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 10 Août 2007

• #6

Re : Supprimer la ligne si elle est vide

Bonjour Papapaul
Le code est super il fonctionne bien et j'apprécie les explications au milieu du code pour essayer de comprendre encore mieux le déroulement.
Merci Christophe.

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 10 Août 2007

• #7

Re : Supprimer la ligne si elle est vide

Re Papapaul
Peux tu m'expliquer comment faire si je ne souhaite pas que la macro prennent en compte les 6 première ligne de la feuille.


Christophe.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 10 Août 2007

• #8

Re : Supprimer la ligne si elle est vide

Re,
je reviens sur le fil afin de te demander quelle différence entre mon code et celui de papapaul?
Ils font la même chose, quelques calculs en moins pour moi, donc je ne comprends pas pourquoi il en restait avec mon code!!😕
Comme papapaul n'est pas là, dans cette ligne :
For vLigne = vDernièreligne To 1 Step -1
tu remplace le To 1 par To 7
Bon courage

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Août 2007

• #9

Re : Supprimer la ligne si elle est vide

Bonsoir le fil

bhbh, ta boucle "for each" s'exécute en suivant l'ordre des cellules comprises dans une plage.
Lorsque tu supprimes une celule, la suivante n'est plus évaluée, car portant le même "index" de celle que tu viens de supprimer. De ce fait, même si elle répond aux critères elle ne sera pas supprimée.

j'espère avoir été clair dans mon explication, pas sur...

bonne soirée
@+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Août 2007

• #10

Re : Supprimer la ligne si elle est vide

Bonjour,
Effectivement, je n'avais pas fait d'essai avec deux lignes successives entièrement vides.
erreur de jeunesse (je le savais pourtant🙄)
Merci

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Août 2007

• #11

Re : Supprimer la ligne si elle est vide

re-,
voici le code modifié :

Sub suppr()
Application.ScreenUpdating = False
For cel = [a65000].End(xlUp).Row To 1 Step -1
If Cells(cel, 1) = "" Then
If Range("n" & cel).End(xlToLeft).Address = Cells(cel, 1).Address Then Cells(cel, 1).EntireRow.Delete
End If
Next cel
End Sub

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 11 Août 2007

• #12

Re : Supprimer la ligne si elle est vide

Bonjour le Forum et bhbh, Pierrot et papapaul

Oui effectivement le code fonctionne à condition de l'utiliser plusieurs fois celui ci également et suivant l'explication d'hier de changer le "to 1" pour ne pas prendre en compte les x première ligne il le prend bien en compte mais ne supprime pas les lignes entre.
Ci joint le fichier avec le code de bhbh mais à priori sauf erreur les autres ne fonctionne pas totalement cà d, mettre x ligne libre avant le début du tableau et toutes les lignes vide dans le tableau elles sont supprimées même s'il y a 5 lignes entre.

Cordialement Christophe.

 

Pièces jointes

• essai.xls

  15 KB · Affichages: 101
• essai.xls

  15 KB · Affichages: 103
• essai.xls

  15 KB · Affichages: 110

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Août 2007

• #13

Re : Supprimer la ligne si elle est vide

re-, effectivement, dans ce cas, il faut trouver la dernière ligne, et comme Currentregion n'aime pas les lignes vides, on va faire une boucle pour la déterminer :

Sub suppr2()
Application.ScreenUpdating = False
x = 5
For i = 1 To 13
y = Cells(65000, i).End(xlUp).Row
If y > x Then x = y
Next i
For cel = x To 5 Step -1
If Cells(cel, 1) = "" Then
If Range("n" & cel).End(xlToLeft).Address = Cells(cel, 1).Address Then Cells(cel, 1).EntireRow.Delete
End If
Next cel
End Sub

 

Vote positif 0 Vote négatif