sourcier08
XLDnaute Occasionnel
Bonjour, j'ai fait un fichier avec une plage allant de "A6" à "A8".
Chaque fois que j'insère une ligne, c'est en "A7".
J'aimerai pouvoir supprimer les lignes lorsque je veux remettre à zéro ce tableau.
J'ai donc écris une macro pouvant sélectionner toutes les cellules non-vide de cette plage et je n'arrive pas à trouver comment supprimer les lignes des cellules sélectionnées.
Merci d'avance pour l'aide apportée.
Chaque fois que j'insère une ligne, c'est en "A7".
J'aimerai pouvoir supprimer les lignes lorsque je veux remettre à zéro ce tableau.
J'ai donc écris une macro pouvant sélectionner toutes les cellules non-vide de cette plage et je n'arrive pas à trouver comment supprimer les lignes des cellules sélectionnées.
Code:
Sub SelectionNonVides()
'sélectionner 1ere cellule non vide
For Each c In Range("plage")
If c <> "" Then
c.Select
Exit For
End If
Next
' extension sélection
For Each c In Range("plage")
If c <> "" Then
Range(Selection.Address, c.Address).Select
End If
Next
End Sub
Sub supprimer()
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End Sub
Merci d'avance pour l'aide apportée.
Dernière édition: