Macro mobile pour effacer des lignes

Bonjour le forum,

J'ai régulièrement des données exportées d'un logiciel vers Excel.

La "longueur" peut arriver à 600 lignes.

Au cours d'exportation il y a chaque fois 7 lignes avec l'information inutile.

Est il possible de créer une macro qui va effacer ces 7 lignes?

Exemple:

Je clique dans la cellule A54, clique sur un bouton et la macro supprime les lignes 55-61 (7 lignes au-dessous de la cellule active) ?

Merci d'avance de vos idées.

Baton

Hello Baton

cela faisait longtemps...

Avec un code du genre par exemple

Sub tes()
Dim r As Integer
r = ActiveCell.Row
Rows(r & ":" & r + 7).Delete Shift:=xlUp
End Sub

Cordialement

Bonjour à tous,

Ou de cette manière :

Public Sub Test()
    ActiveCell.Offset(1).Resize(7).EntireRow.Delete
End Sub

Cdlt.

Messieurs,

Vos idées fonctionnent parfaitement.

Merci !!

Dan,

Tu as raison...

Je reviens avec plusieurs questions.

A partir de la semaine prochaine, je vais les poser ici.

Rechercher des sujets similaires à "macro mobile effacer lignes"