Dupliquer un groupe de données

Version imprimable

30/11/2013, 14h12
gege765

1 pièce(s) jointe(s)

Dupliquer un groupe de données

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.
30/11/2013, 16h44
nibledispo

1 pièce(s) jointe(s)

dupliquer un groupe

Bonjour,

Regarde si c'est cela que tu souhaites.

cordialement,

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:

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

30/11/2013, 19h44
nibledispo

dupliquer un groupe

Bonsoir,

La macro est dans la feuille VBA 'ressources'.

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

Cordialement,
30/11/2013, 20h13
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.

dupliquer un groupe

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:

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:

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,

30/11/2013, 21h57
gege765

1 pièce(s) jointe(s)

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.

Traite les feuilles nommées "Onglet x"

Code:

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

30/11/2013, 22h51
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.
30/11/2013, 23h01
nibledispo

dupliquer un groupe

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,
30/11/2013, 23h34
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.

Citation:

Envoyé par gege765

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

Code:

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

01/12/2013, 11h16
gege765

Merci.
Bon dimanche.
01/12/2013, 15h11
nibledispo

dupliquer un groupe

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
01/12/2013, 19h30
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.

Citation:

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.
01/12/2013, 19h51
Marc-L

Citation:

Envoyé par nibledispo

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 …
01/12/2013, 22h51
nibledispo

dupliquer un groupe

Bonsoir Marc,

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

Cordialement,