Discussion :

[ppjack]

bonjour,
je cherche à créer des feuilles automatiquement depuis
une ou plusieurs feuilles modèle.
Je souhaite également ajouter une valeur dans chaque feuille crée

Voici le code pour créer les feuilles depuis une liste

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 AjouteFeuilles()
Dim J As Long
Dim Ws As Worksheet
 
  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  'pour éviter les messages
  Application.DisplayAlerts = False
  For J = 1 To Ws.Range("B" & Rows.Count).End(xlUp).Row
      If Not FeuilleExiste(Ws.Range("B" & J).Value) Then
      Sheets("ModelP").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("B" & J)
    End If
  Next J
 
  For J = 1 To Ws.Range("C" & Rows.Count).End(xlUp).Row
    If Not FeuilleExiste(Ws.Range("C" & J).Value) Then
      Sheets("ModelCA").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("C" & J)
    End If
  Next J
  Application.DisplayAlerts = True
  Ws.Select
End Sub

la feuille qui liste les feuilles à créer et à nommer est construite ainsi

paul paul_CA paul_P
jack jack_CA jack_P
eric eric_CA eric_P

la colonne B crée des onglets depuis le modèle "ModelP"
La colonne C crée des onglets depuis le modèle "ModelCA"

Cette partie fonctionne

Je souhaiterais lors de cette création d'onglets

copier la valeur de la colonne A dans la cellule G2 de l'onglet crée depuis "ModelP"

copier la valeur de la colonne A dans la cellule G3 de l'onglet crée depuis "ModelCA"

Il me manque quelques bases pour incorporer cette partie dans le code précédent

Espérant être assez explicite

[gFZT82]

Bonjour,

Pour copier la valeur de la colonne A dans la cellule G2 de l'onglet crée depuis "ModelP"

Code :

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

1
2
3
4
5
6
7
  For J = 1 To Ws.Range("B" & Rows.Count).End(xlUp).Row
      If Not FeuilleExiste(Ws.Range("B" & J).Value) Then
      Sheets("ModelP").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("B" & J)
      ActiveSheet.Range("G2") = Ws.Range("A" & J)
    End If
  Next J

Je te laisse deviner pour le reste.

Cordialement.

[ppjack]

merci gFZT82
c'est juste parfait