Inserer nb lignes selon le nombre d'onglets

[condors.s]

Bonjour à tous,

Je reprend le fil d'une autre discution avec un intitulé plus adapté...

J'ai un fichier comprenant plusieurs onglets dont 1 "récap"

Dans l'onglet récap, je récupère des infos sur les autes onglet et fait la somme dans 1 tableau

En partant de l'hypothèse où:
- les titres sont sur la lignes 10;
- un total sur la ligne 12

Je voudrais qu'il y ait entre le titre et le total autant de ligne que d'ongets actifs (moins celui récap).
On pourra une fois le nombre de lignes créées recopier les formules de la ligne 11.

Je remercie Softmama qui m'a donné un début de code

Sub Macro1()    Dim nOnglets&    'Récupère le nb d'onglets    nOnglets& = ActiveWorkbook.Worksheets.Count    'Insère (nOnglets-1) lignes avant la ligne de total    Range("Total").Resize(nOnglets& - 1, 1).EntireRow.Insert    ' recopie les formules de B10 à K10 jusqu'à la ligne de total    Range("B10:K10").AutoFill Destination:=Range("B10:K" & Range("Total").Row - 1), Type:=xlFillDefaultEnd Sub

Celui ci ne marche pas chez moi.

Quelqu'un a t'il une piste.

Merci à tous

 

[Paritec]

Re : Inserer nb lignes selon le nombre d'onglets

Bonsoir Condors le forum
si ton code est écrit sous la forme que tu l'as copié dans le post c'est normal que cela ne marche pas
maintenant le mieux et de mettre un fichier exemple avec tes explication dans le fichiers et tu auras ta réponse
a+
Papou

 

[condors.s]

Re : Inserer nb lignes selon le nombre d'onglets

Merci Paritec

En PJ un fichier d'exemple

 

[Pierrot93]

Re : Inserer nb lignes selon le nombre d'onglets

Bonsoir Condor, Papou

regarde peut être ceci :

    Rows("12:" & 12 + (Sheets.Count - 2)).Insert Shift:=xlDown

bonne soirée
@+

 

[condors.s]

Re : Inserer nb lignes selon le nombre d'onglets

Merci Pierrot93.
Je ne vois pas ou insérer ton code. Peux tu me donner plus d'info stp.

 

[Pierrot93]

Re : Inserer nb lignes selon le nombre d'onglets

Re,

dans une macro, un module standard....

 

[condors.s]

Re : Inserer nb lignes selon le nombre d'onglets

.Ok merci beaucoup Pierrot93, ca marche très bien.

Pour le code de recopie de la formule de la ligne 11, j'ai le code suivant qui ne marche pas:

Sub Macro2()
' Recopie la formule
    Range("B10:K10").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)-1).Select
    Selection.FillDown
End Sub

Il bloque au niveau de

    Range(Selection, Selection.End(xlDown)-1).Select

Je crois que c'est le "-1" qui ne lui plait pas...

 

[condors.s]

Re : Inserer nb lignes selon le nombre d'onglets

Désolé à tous,
je sais que ca ne se fait pas, mais 2 fils sont en cours sur le meme sujet,
Je propose donc de tout rediriger vers 1 seul :
https://www.excel-downloads.com/threads/incrementer-les-noms-donglets.151553/