VBA créer des onglets selon 2 modèles

Bonjour,

J'ai besoin d'aide. J'ai un tableau général "liste" où je créer des lignes, j'arrive à créer automatiquement un onglet en fonction d'un modèle mais je n'y arrive pas avec 2 modèles :

chaque ligne créée ont la possibilité de venir d'un modèle macro ou d'un modèle micro

Ligne 1 (toutes les données) A1 (test1) et en B1, le choix : ex Macro

Ligne 2 (toutes les données) A2 (test 2) et en B2 le choix : ex Micro

Ligne 3 (toutes les données) A3 (test 3) et en B3, le choix : ex Macro

Je cherche à créer une macro qui en fonction de la cellule en B1, B2, B3 ... prend le bon modèle (soit Micro soit Macro) et me la nomme comme la cellule A2, A3, A4

Donc ma 1ère ligne renvoie à un modèle Macro et se nomme A1

Ma deuxième ligne est créé avec le modèle Micro et se nomme A2

Le but ensuite est de créé des lien hypertexte mais ça je pense savoir le faire

Merci pour votre aide

Bonjour kkc85, le forum,

Un petit fichier peut-être ?

Cordialement,

voici le fichier qu

i me créé sous ma trame M et j'aimerais en I pouvoir choisir le modèle de trame M ou T

Re,

Un essai:

Function WsExist(Nom$) As Boolean
 On Error Resume Next
 WsExist = Sheets(Nom).Index
End Function

Sub ajout_feuilles()
    Dim Nom As String, c As Range, modele As String

    Application.ScreenUpdating = False

  With Sheets("liste traiteur")
    For Each c In .ListObjects("Tableau1").ListColumns(1).DataBodyRange
           Nom = c.Offset(0, 3).Value
        modele = c.Offset(0, 7).Value
      If Nom <> "" And modele <> "" Then
         If WsExist(Nom) Then
            If MsgBox("La feuille  " & Nom & "  existe déjà ! Voulez-vous la remplacer ?", vbYesNo, "REMPLACEMENT") = vbYes Then
             Application.DisplayAlerts = False
             Sheets(Nom).Delete
              GoTo suite
            End If
         Else
suite:
            Application.DisplayAlerts = True
            Sheets(modele).Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = Nom
         End If
     End If
    Next c
   .Activate
  End With
End Sub

Cordialement,

franchement génial, ça fonctionne parfaitement.

Merci infiniment pour ton aide :)

sans trop abuser, comment puis-je faire pour rajouter le lien hypertexte dans la colonne E du nom de l'onglet ?

Re,

Je ne maitrise pas trop les liens hypertexte.....

Mais ceci semble fonctionner....

.Hyperlinks.Add Anchor:=c.Offset(0, 3), Address:="", SubAddress:= _
        Nom & "!A1", TextToDisplay:=Nom

Cordialement,

merci beaucoup !!! c'est top