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,

[gege765]

Re,

Les modifications n'ont pas l'effet escompté. La macro ne fonctionne pas chez moi.
Je ne comprend pas l'ajout de la feuille. Enfin ce n'ai pas le plus important.

J'ai fais un onglet souhait qui synthétise mon besoin

Ce que je souhaite c'est uniquement l'ajout de bloc autant de fois qu'il y a de feuilles.

[mercatog]

Traite les feuilles nommées "Onglet x"

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
Sub CopiePlage()
Dim i As Integer
 
Application.ScreenUpdating = False
With Worksheets("Ressources")
    For i = Sheets.Count To 2 Step -1
        If Worksheets(i).Name Like "Onglet *" Then
            .Rows("10:15").Copy
            .Rows(16).Insert
            Application.CutCopyMode = False
            .Cells(16, 2) = Worksheets(i).Name
        End If
    Next i
End With
End Sub

[gege765]

Bonsoir mercatog,

Parfait merci.
Il me reste à voir comment calculer automatiquement la Charge totale qui est la la somme de la charge des éléments ajoutés.

[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.

[mercatog]

Il me reste à voir comment calculer automatiquement la Charge totale qui est la la somme de la charge des éléments ajoutés.

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
20
21
22
23
24
25
Sub CopiePlageAvecFormule()
Dim i As Integer, j As Integer
Dim Frm As String
 
Application.ScreenUpdating = False
With Worksheets("Ressources")
    For i = Sheets.Count To 2 Step -1
        If Worksheets(i).Name Like "Onglet *" Then
            .Rows("10:15").Copy
            .Rows(16).Insert
            Application.CutCopyMode = False
            .Cells(16, 2) = Worksheets(i).Name
            j = j + 1
        End If
    Next i
    'Boucle pour constituer la formule
    If j > 0 Then
        Frm = "=H12"
        For i = 1 To j
            Frm = Frm & "+H" & 12 + 6 * i
        Next i
    End If
    .Range("H" & 13 + 6 * (j + 1)).Resize(1, 4).Formula = Frm
End With
End Sub

[gege765]

Merci.
Bon dimanche.

[nibledispo]

Bonjour Mercatog et Gege,

Gege : Comment cette procédure sera-elle mise en œuvre : Sera-ce un bouton sur la feuille ou autre moyen.
je pose la question car si cette procédure est actionnée volontairement ou malencontreusement plusieurs fois, les groupes sont à chaque fois recopiés. C'est tout de même ennuyeux non ?

Mercatog : Pour ma gouverne, existe t-il une événementielle qui permettrait de copier un groupe à chaque fois qu'une feuille est ajoutée ?
Cela me vient à l'esprit en pensant à ma proposition inverse qui créée automatiquement l'onglet à chaque fois qu'un groupe était copié.

Cordialement

[gege765]

Bonsoir nibledispo,

Non ce ne sera pas un bouton mais un traitement.
Il faudrait que je teste la présence du groupe avant de le créér.

Pour ma gouverne, existe t-il une événementielle qui permettrait de copier un groupe à chaque fois qu'une feuille est ajoutée ?

La réponse éventuelle m’intéresse également.

[Marc-L]

Pour ma gouverne, existe t-il une événementielle qui permettrait de copier un groupe à chaque fois qu'une feuille est ajoutée ?

Salut Paul !

Via l'évènement Workbook_NewSheet du classeur …

[nibledispo]

Bonsoir Marc,

Merci pour cette information. Je vais faire un essai sur le bout de code proposé.

Cordialement,