Discussion :

[gege765]

Bonjour,

Je souhaite savoir si il est possible d'insérer une structure de tableau autant de fois qu'il y a d'onglet. Et si possible insérer le nom de l'onglet dans le titre du bloc.

Concrètement dans l'exemple je souhaite recopier n fois le bloc qui a pour titre onglet 1.
Est-ce possible ?

Merci.

[nibledispo]

Bonjour,

Regarde si c'est cela que tu souhaites.

cordialement,

[gege765]

Bonsoir,
Merci.
Oui c'est ce que je souhaite (en plus de l'actualisation de la somme).
Quel macro t'as permis d'obtenir ce résultat ?

Car dans le fichier je n'ai que ces macros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Sheets.Add After:=ActiveSheet
    Sheets("Onglet N").Name = "Onglet 6"
End Sub
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Sheets("Onglet N").Select
 
    Range("I30").Select
End Sub

[nibledispo]

Bonsoir,

La macro est dans la feuille VBA 'ressources'.

Le renommage de la cellule B est une formule au sein de ladite cellule.

Cordialement,

[gege765]

Oups désolé, je n'ai pas regardé les macros dans les feuilles.

Lorsque j'exécute la macro, j'ai l'erreur suivante :
Erreur d'exécution '1004' :
Erreur définie par l'application ou par l'objet

pour l'instruction lastlig.Offset(2, 0).EntireRow.Resize(6).Insert

Autre chose je ne comprend pas comment la macros récupère l'ensemble des onglets, je ne vois pas de boucle.

[nibledispo]

Re.....,

Ci-dessous le code à mettre en lieu et place.

L'erreur se produit si la feuille active n'est pas "resources". j'ai donc ajouté la ligne 6. (nota: en principe ressources)

De plus, la ligne 14 a été modifiée pour que l'onglet créé soit le dernier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub Macro3()
    Dim lastlig As Range
 
    Sheets("resources").Activate
    Set lastlig = Range("b65000").End(xlUp).Offset(0, 0)
    lastlig.Offset(2, 0).EntireRow.Resize(5).Insert
    lastlig.EntireRow.Resize(5).Copy
    lastlig.Offset(2, 0).EntireRow.Select
    ActiveSheet.Paste
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = lastlig.Offset(2, 0).Value
End Sub

edit : ci-dessous un code simplifié (deux lignes en moins)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub Macro4()
    Dim lastlig As Range
 
    Sheets("resources").Activate
    Set lastlig = Range("b65000").End(xlUp).Offset(0, 0)
    lastlig.EntireRow.Resize(5).Copy
    lastlig.Offset(2, 0).EntireRow.Insert
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = lastlig.Offset(2, 0).Value
End Sub

Cordialement,

[nibledispo]

re...,

je n'avais pas compris le problème.

Par contre en dehors de l'insertion de feuille (suppresion 2 dernières lignes code), je ne comprends pas pourquoi il ne créé pas un bloc chez toi.

De toute façon la solution Mercatog est parfaite.

Cordialement,

[gege765]

Re nibledispo,
Je m'en suis aperçu, c'est pour cela que j'ai reformulé.
Moi non plus je ne comprend pas.

En tout cas merci de ton aide tout de même.
Bonne fin de weekend.