Formule ou macro pour supprimer de la ligne 1 à 26

[meganspt]

Bonjour au forum

Plusieurs feuilles et je voudrais automatiser la suppressions de ces lignes qui ne me servent à rien (qu'il y ai de contenu ou pas )puisque l'information important commence a partir de la ligne 27 sur toutes les feuilles '( plus de 50 feuilles )

Merci de votre aide😕

 

[Modeste geedee]

Re : Formule ou macro pour supprimer de la ligne 1 à 26

Bonsour®

créer un bouton dans la barre d'outils ou Ruban et y associer ce code :
ActiveSheet.Rows("1:26").Delete Shift:=xlUp

 

[DoubleZero]

Re : Formule ou macro pour supprimer de la ligne 1 à 26

Bonjour, meganspt, Modeste geedee 🙂, le Forum,

Ou bien ainsi :

Option Explicit
Sub Ligne_supprimer_de_x_à_y()
Dim o As Worksheet
For Each o In Worksheets
o.Rows("1:26").Delete Shift:=xlUp
Next
End Sub

A bientôt 🙂

 

[Modeste geedee]

Re : Formule ou macro pour supprimer de la ligne 1 à 26

Bonsour®

Bonjour, meganspt, le Forum,

il pourrait être judicieux à fin d'éviter une suppression malencontreuse (répétition de la suppression)
de détecter une information permettant d'identifier la 1ere ligne à garder

 

[DoubleZero]

Re : Formule ou macro pour supprimer de la ligne 1 à 26

Re-bonjour,

... il pourrait être judicieux à fin d'éviter une suppression malencontreuse (répétition de la suppression) de détecter une information permettant d'identifier la 1ere ligne à garder

Assurément... Mais il faudrait connaître cette fameuse information.

A bientôt 🙂