condors.s
XLDnaute Occasionnel
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
Celui ci ne marche pas chez moi.
Quelqu'un a t'il une piste.
Merci à 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
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