Un ajout de cinq lignes vierges

soenda

XLDnaute Accro

• 27 Février 2010

• #2

Re : Un ajout de cinq lignes vierges

Bonsoir le fil, CG2000

Code:

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

A plus

 

Vote positif 0 Vote négatif

C

CG2000

XLDnaute Occasionnel

• 27 Février 2010

• #3

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+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Février 2010

• #4

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 +

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Février 2010

• #5

Re : Un ajout de cinq lignes vierges

Re

CG2000 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 27 Février 2010

• #6

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.

 

Vote positif 0 Vote négatif

C

CG2000

XLDnaute Occasionnel

• 27 Février 2010

• #7

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.

 

Vote positif 0 Vote négatif