Supprimer ligne

Résolu/Fermé

nab_eli

Messages postés: 3
Date d'inscription: mercredi 5 avril 2017
Statut: Membre
Dernière intervention: 6 avril 2017

- 5 avril 2017 à 17:26
ccm81

Messages postés: 10356
Date d'inscription: lundi 18 octobre 2010
Statut: Membre
Dernière intervention: 26 juin 2022

- 6 avril 2017 à 11:13

Bonjour,

Je débute sur VBA, et je n'arrive pas à supprimer correctement des lignes vides d'un tableau.
je souhaite supprimer les lignes lorsque la cellule de la colonne K est vide.
mon tableau commence à la ligne 7.

Voici le code que j'ai entré, mais il supprime des lignes qu'il ne devrait pas.
Sub test ()
For i = 7 To Range("k65536").End(xlUp).Row
If Cells(i, 17).Value = "" Then
Cells(i, 17).EntireRow.Delete
Else
i = i + 1
End If
Next i
MsgBox "Macro terminée"

End Sub

Please help ?
Merci par avance

A voir également:

Vba supprimer ligne
Vba supprimer une ligne - Meilleures réponses
Supprimer ligne excel vba - Meilleures réponses
VBA (Excel) - Supprimer une ligne ✓ - Forum - VB / VBA
Vba supprimer ligne si cellule contient - Forum - Excel
Supprimer une ligne excel VBA ✓ - Forum - VB / VBA
VBA supprime ligne si date<aujourd'hui ✓ - Forum - Bureautique
Excel VBA:supprimer lignes ne contenant pas.. ✓ - Forum - VB / VBA

2 réponses

Réponse 1 / 2

patty5046

Messages postés: 43
Date d'inscription: lundi 8 février 2016
Statut: Membre
Dernière intervention: 24 mai 2020

5
5 avril 2017 à 18:40

Bonjour
la colonne K correspond à 11 et non pas 17 et quand vous supprimez une ligne il faut reculer d'une ligne

Sub SupLigVide()
TotalLignes = Range("A" & Rows.Count).End(xlUp).Row
For i = 7 To TotalLignes
If i >= TotalLignes Then
GoTo Fini
End If
If Cells(i, 11).Value = "" Then
    Cells(i, 11).EntireRow.Delete
    i = i - 1
    TotalLignes = TotalLignes - 1
End If
Next i
Fini:
MsgBox "Macro terminée"

End Sub

Bon courage

nab_eli

Messages postés: 3
Date d'inscription: mercredi 5 avril 2017
Statut: Membre
Dernière intervention: 6 avril 2017

6 avril 2017 à 09:49

Bonjour,

Merci pour votre réponse, ça a effectivement réglé mon problème et la macro fonctionne très bien.
je penserai bien à commencer par le bas la prochaine fois ou à reculer d'une ligne.

Merci encore:)

Réponse 2 / 2

ccm81

Messages postés: 10356
Date d'inscription: lundi 18 octobre 2010
Statut: Membre
Dernière intervention: 26 juin 2022

2 298
5 avril 2017 à 20:23

Bonjour

Pour supprimer des lignes, il vaut mieux commencer par le bas

Sub test ()
For i = Range("k" & Rows.Count).End(xlUp).Row to 7 step -1
  If Cells(i, 17).Value = "" Then rows(i).Delete
Next i
MsgBox "Macro terminée"

patty5046

Messages postés: 43
Date d'inscription: lundi 8 février 2016
Statut: Membre
Dernière intervention: 24 mai 2020

5
5 avril 2017 à 20:32

Bonsoir
Effectivement parfait
Seulement pour la colonne K il faut qu'il mette 11 et non 17

Bonne soirée

ccm81

Messages postés: 10356
Date d'inscription: lundi 18 octobre 2010
Statut: Membre
Dernière intervention: 26 juin 2022

2 298 > patty5046

Messages postés: 43
Date d'inscription: lundi 8 février 2016
Statut: Membre
Dernière intervention: 24 mai 2020

Modifié le 6 avril 2017 à 11:14

> patty5046. Exact, mais tu peux aussi écrire Cells(i, "K")

Bonne journée

nab_eli

Messages postés: 3
Date d'inscription: mercredi 5 avril 2017
Statut: Membre
Dernière intervention: 6 avril 2017

6 avril 2017 à 09:50

Merci beaucoup, c'est parfait !

Newsletters