Un ajout de cinq lignes vierges

[CG2000]

Bonsoir à tous,

Tout d'abord mercis à tous pour vos interventions,réponses et solutions qui font de ce merveilleux site une formidable base de données.

Régulièrement je parcours le site et ces archives,et j'y trouve beaucoup de réponses à mes utilisations.
Mais là je coince pour la question suivante :

Est-ce possible de créée une macro qui ajoute sur chaque feuilles d'un classeur un certain nombre de lignes vides (par exemple cinq). Un ajout de cinq lignes vierges sur l'emsemble de toutes les feuilles. Mais pas n'omporte ou, au début des feuilles.

Merci par avance de m'orienter.
A+

 

[soenda]

Re : Un ajout de cinq lignes vierges

Bonsoir le fil, CG2000

Sub b()
    Dim i As Integer
 
    For i = 1 To Sheets.Count
        Sheets(i).Rows("1:5").Insert xlDown
    Next
 
End Sub

A plus

 

[CG2000]

Re : Un ajout de cinq lignes vierges

Bonsoir soenda,

Merci pour to aide. 🙂
C'est presque cela. Le code est bon mais ne foctionne que sur la première feuille.
As-tu une solution pour que cette macro le fasse pour l'ensemble des onglets du classeurs ?

A+

 

[chris]

Re : Un ajout de cinq lignes vierges

Bonjour

C'est aussi faisable en quelques clics :

• Sélectionner toutes les feuilles : clic sur le premier onglet, avec shift appuyé clic sur le dernier
• sélectionner 5 (ou n lignes) là où doit se faire l'insertion
• CTRL +

 

[chris]

Re : Un ajout de cinq lignes vierges

Re

Le code est bon mais ne foctionne que sur la première feuille.

L'as-tu bien collé dans un module et non dans le code de la feuille ?

 

[jeanpierre]

Re : Un ajout de cinq lignes vierges

Bonsoir CG2000, soenda,

Fonctionne chez-moi sur ton fichier.

For i = 1 To Sheets.Count

soit pour i = 1 et jusqu'à la dernière feuille (count, le nombre de feuille (onglet) du classeur), alors on rajoute 5 lignes.

Bonne soirée.

Jean-Pierre

Edit : Pour un bonsoir à chris (bises) j'avais pensé la même chose, mais dans un module ou dans la feuille, à priori, cela fonctionne.

 

[CG2000]

Re : Un ajout de cinq lignes vierges

soenda,chris,jeanpierre,

Le post est terminé pour moi. Les Réponses et les solutions admirablement apportées ci-dessus et pourtant la première était parfaite. 😛

Excusez mon niveau Excel. 😱
Efin nous garderons que le résultat final : Parfait. 😛

Mercis à tous et bon Week.