Bonsoir
je viens de trouver une macro qui réponds EN PARTIE à ma recherche
la voici
Option Explicit
Sub AjouteFeuilles()
Dim J As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Ws.Range("A" & J)
End If
Next J
Ws.Select
End Sub
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function
Cette macro permet de Dupliquer un Onglet MODELE d'après une liste ...
C'est une macro comme cela que je recherche mais avec une particularité
Je voudrais avoir plusieurs onglets modèles (1.2.3.4)
et dans une feuille nommée liste, dans la colonne A une liste de feuille à créer selon le modèle A en B une liste à créer selon le modèle B, ....
Cela complique ...
qui peut m'aider ???
je viens de trouver une macro qui réponds EN PARTIE à ma recherche
la voici
Option Explicit
Sub AjouteFeuilles()
Dim J As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Ws.Range("A" & J)
End If
Next J
Ws.Select
End Sub
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function
Cette macro permet de Dupliquer un Onglet MODELE d'après une liste ...
C'est une macro comme cela que je recherche mais avec une particularité
Je voudrais avoir plusieurs onglets modèles (1.2.3.4)
et dans une feuille nommée liste, dans la colonne A une liste de feuille à créer selon le modèle A en B une liste à créer selon le modèle B, ....
Cela complique ...
qui peut m'aider ???
