XL 2019 Supprimer conditionnellement les lignes vides

  • Initiateur de la discussion Initiateur de la discussion Dadi147
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dadi147

XLDnaute Occasionnel
Bonjour. Je voulais de l'aide avec un code qui me permet de supprimer des lignes à condition que je vérifie un espace à partir de la cellule A à M de la feuille de calcul. À partir de la ligne 11 vers le bas.
 
Solution
Malheureusement, le code ne supprime pas les lignes
Normal, vous parliez d'espace alors qu'il s'agit de cellule vide.
Il y avait cependant une petite erreur dans le code, voici la correction :
Sub test()
VB:
Sub test()
Dim derlig%, j%

derlig = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row

For j = 11 To derlig
 If Cells(j, 1) = "" Then Cells(j, 1).EntireRow.Delete
 Next j

End Sub
A +
Bonjour. Je voulais de l'aide avec un code qui me permet de supprimer des lignes à condition que je vérifie un espace à partir de la cellule A à M de la feuille de calcul. À partir de la ligne 11 vers le bas.
Vous pouvez essayer ce code
VB:
Sub test()
Dim derlig%, i%, j%
Thisworksheet.activate
derlig = activesheet.range("a" & rows.count).end(xlup).row
For i = 1 to 13
For j = 11 to derlig
 if cells(j,i) = " " then cells(j, i).entirerow.delete
 Next j
Next i
End sub
A +
 
Dernière édition:
Malheureusement, le code ne supprime pas les lignes
Normal, vous parliez d'espace alors qu'il s'agit de cellule vide.
Il y avait cependant une petite erreur dans le code, voici la correction :
Sub test()
VB:
Sub test()
Dim derlig%, j%

derlig = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row

For j = 11 To derlig
 If Cells(j, 1) = "" Then Cells(j, 1).EntireRow.Delete
 Next j

End Sub
A +
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
106
Réponses
6
Affichages
199
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
224
Réponses
6
Affichages
153
Retour