Suppression des 6 premières lignes dans tout le classeur

Bonsoir à tous,

je souhaitais supprimer les 1eres lignes de toutes les feuilles de mon classeur.

J'ai donc rédiger cette macro:

Sub r_supLign()
'
' supp lignes 1 à 6sur ttes les feuils
'
Dim s As Worksheet
    For Each s In Worksheets
        With s
     Rows("1:6").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
        End With
    Next s
End Sub

Résultat, suppression de 2x6 lignes sur ma 1ère feuille et c'est tout.!!!

Je ne vois pas ce qui cloche.

A vous lire

Bonjour,

Et comme ceci (si on utilise With, il faut s'en servir. Pour y faire référence, il faut placer le . devant les objets. Sinon, l'action sera sur la page en cours. ) :

Je te laisse tester ...

Sub r_supLign()
'
' supp lignes 1 à 6sur ttes les feuils
'
Dim s As Worksheet
    For Each s In Worksheets
        With s
         .Rows("1:6").Delete Shift:=xlUp
        End With
    Next s
End Sub

laceline

Bonjour,

Aussi, éviter les select, tant que faire se peut.

laceline

Merci laceline,

pour ton aide, tout fonctionne parfaitement.

Cordialement

Bonjour,

en général on utilise With pour ne pas à avoir à répéter une expression, pas vraiment utile ici. Tu peux donc aussi faire :

    For Each s In Worksheets
         s.Rows("1:6").Delete Shift:=xlUp
    Next s

eric

Nickel, merci eriiic également.

@+