Microsoft 365 Duplication de feuilles suivant plusieurs modèles

gillmo

XLDnaute Occasionnel
Bonjour la communauté,

j'ai un fichier pour lequel je souhaite créer des feuilles suivant une liste se trouvant dans une feuille sommaire. Dans la colonne A, à partir de la cellule 3, se trouve la liste des feuilles que je souhaite créer. J'arrive à faire une macro qui me crée l'ensemble des feuilles suivant un modèle unique et qui renomme ces nouvelles feuilles avec les noms dans la colonne A de la feuille sommaire.

Là ou ça se complique (en tout cas pour moi), c'est que je voudrais créer des feuilles suivant plusieurs modèles.
Exemple :
En cellule A3, j'ai le nom Exemple 1 et en cellule B3 le nom Service, je voudrai créer une feuille appelé Exemple 1 et qui se base sur le modèle de la feuille Service, et ainsi de suite.
De plus, il ne faudrait pas qu'il crée la feuille si celle ci existe déjà.

voici le code que j'ai commencé
Code:
Sub AjouteFeuilles()
Dim J As Long
Dim Ws As Worksheet
Dim cell As Range
Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Application.Calculation = xlManual
  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row
  
    Set plage = Ws.Range("B3" & DernLigne)
    For Each cell In plage
    Select Case (cell)
    Case "Service"
    Sheets("Service").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Ws.Range("A" & J)
    Case "Action"
    Sheets("Action").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Ws.Range("A" & J)
    Case "Formalites"
    Sheets("Formalites").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Ws.Range("A" & J)
    
    End Select
    
    Next
  Next J
  Ws.Select
  Application.Calculation = xlAutomatic
End Sub

j'ai essayé de plusieurs façons, mais aucune n'a été concluante. Je vais tenter d'insérer une PJ pour un fichier test

Merci
 

gillmo

XLDnaute Occasionnel
Bonjour la communauté,

j'ai un fichier pour lequel je souhaite créer des feuilles suivant une liste se trouvant dans une feuille sommaire. Dans la colonne A, à partir de la cellule 3, se trouve la liste des feuilles que je souhaite créer. J'arrive à faire une macro qui me crée l'ensemble des feuilles suivant un modèle unique et qui renomme ces nouvelles feuilles avec les noms dans la colonne A de la feuille sommaire.

Là ou ça se complique (en tout cas pour moi), c'est que je voudrais créer des feuilles suivant plusieurs modèles.
Exemple :
En cellule A3, j'ai le nom Exemple 1 et en cellule B3 le nom Service, je voudrai créer une feuille appelé Exemple 1 et qui se base sur le modèle de la feuille Service, et ainsi de suite.
De plus, il ne faudrait pas qu'il crée la feuille si celle ci existe déjà.

voici le code que j'ai commencé
Code:
Sub AjouteFeuilles()
Dim J As Long
Dim Ws As Worksheet
Dim cell As Range
Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Application.Calculation = xlManual
  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row
 
    Set plage = Ws.Range("B3" & DernLigne)
    For Each cell In plage
    Select Case (cell)
    Case "Service"
    Sheets("Service").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Ws.Range("A" & J)
    Case "Action"
    Sheets("Action").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Ws.Range("A" & J)
    Case "Formalites"
    Sheets("Formalites").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Ws.Range("A" & J)
   
    End Select
   
    Next
  Next J
  Ws.Select
  Application.Calculation = xlAutomatic
End Sub

j'ai essayé de plusieurs façons, mais aucune n'a été concluante. Je vais tenter d'insérer une PJ pour un fichier test

Merci
 

Pièces jointes

  • test.xlsm
    32.5 KB · Affichages: 2

Statistiques des forums

Discussions
288 664
Messages
1 893 836
Membres
170 101
dernier inscrit
Lupinps
Haut Bas