Suppression de lignes vides sur une partie de feuille seulement
JC
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je suis vraiment débutant en visual basic, et je souhaite écrire la macro qui me permettra de supprimer toutes les lignes qui sont situées plus bas que la case où est mon curseur et dont la case de la colonne E est vide, et je n'y parviens pas.
Je connais ce code :
Sub supVides()
On Error Resume Next
[E:E].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Mais il supprime les lignes sur toute la feuille alors que je ne veux supprimer que les lignes qui sont au-dessous de mon curseur. Il faut sans doute remplacer ou compléter [E:E] par autre chose.
D'une manière générale je suis perdu dès qu'une action dépend de la position de mon curseur, et lorsqu'on enregistre une macro, le fait de déplacer le curseur ne se traduit pas par une ligne de code.
Quelqu'un peut-il m'aider ?
Je suis vraiment débutant en visual basic, et je souhaite écrire la macro qui me permettra de supprimer toutes les lignes qui sont situées plus bas que la case où est mon curseur et dont la case de la colonne E est vide, et je n'y parviens pas.
Je connais ce code :
Sub supVides()
On Error Resume Next
[E:E].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Mais il supprime les lignes sur toute la feuille alors que je ne veux supprimer que les lignes qui sont au-dessous de mon curseur. Il faut sans doute remplacer ou compléter [E:E] par autre chose.
D'une manière générale je suis perdu dès qu'une action dépend de la position de mon curseur, et lorsqu'on enregistre une macro, le fait de déplacer le curseur ne se traduit pas par une ligne de code.
Quelqu'un peut-il m'aider ?
A voir également:
- Suppression de lignes vides sur une partie de feuille seulement
- Forcer suppression fichier - Guide
- Partage de photos en ligne - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Bruler feuille de laurier - Guide
- Comment supprimer une page vide sur word - Guide
1 réponse
Bonjour,
Il te faut trouver la première et dernière ligne de la plage à prendre en compte...
Il te faut trouver la première et dernière ligne de la plage à prendre en compte...
Sub supVides()
Dim PL As Long, DL As Long
On Error Resume Next
'première ligne de la plage à prendre en compte
PL = ActiveCell.Row
'dernière ligne de la plage à prendre en compte
DL = Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row
Range("E" & PL & ":E" & DL).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
