Supprimer ligne
Résolu/Fermé
nab_eli
ccm81
- Messages postés
- 3
- Date d'inscription
- mercredi 5 avril 2017
- Statut
- Membre
- Dernière intervention
- 6 avril 2017
ccm81
- Messages postés
- 10356
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 26 juin 2022
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
patty5046
5 avril 2017 à 18:40
- Messages postés
- 43
- Date d'inscription
- lundi 8 février 2016
- Statut
- Membre
- Dernière intervention
- 24 mai 2020
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
Bon courage
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
ccm81
5 avril 2017 à 20:23
- Messages postés
- 10356
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 26 juin 2022
5 avril 2017 à 20:23
Bonjour
Pour supprimer des lignes, il vaut mieux commencer par le bas
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
5 avril 2017 à 20:32
- Messages postés
- 43
- Date d'inscription
- lundi 8 février 2016
- Statut
- Membre
- Dernière intervention
- 24 mai 2020
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
Effectivement parfait
Seulement pour la colonne K il faut qu'il mette 11 et non 17
Bonne soirée
ccm81
Modifié le 6 avril 2017 à 11:14
- Messages postés
- 10356
- Date d'inscription
- lundi 18 octobre 2010
- Statut
- Membre
- Dernière intervention
- 26 juin 2022
- 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
Bonne journée
nab_eli
6 avril 2017 à 09:50
- 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 !
6 avril 2017 à 09:49
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:)