Creation et renome un onglet

Bonjour

voila ce code me permet a partir d'une liste immat qui se situe sur un onglet création en colonne a

de créer automatiquement les onglet

mon souci je voudrais que l'onglet s'appelle SAISI Go +i mmat et non immat car pour la même immat j'ai un 2 eme onglet qui doit s’appelle lui ventil + immat

en gros je ne connais pas la syntaxe pour introduire saisi go et ventil en dur dans le code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range
Dim ws As Worksheet
Dim Nom As String
5
For i = Sheets("creation").Range("a65536").End(xlUp).Row To 5 Step -1

If Target.Column <> 1 Then Exit Sub
On Error Resume Next
Nom = Sheets("creation").Cells(i, 1)
If Nom = "" Then Exit Sub
For Each ws In Worksheets
    If ws.Name = Nom Then
        Call MsgBox("La feuille avec ce nom existe déja.", vbCritical, "Impossible de créer une feuille")
        Exit Sub
    End If
Next ws

   'copy et renomme la feuille
    Sheets("saisi GO MODELE").Copy After:=Sheets(1)
    Sheets("saisi go MODELE (2)").Name = Nom
ActiveSheet.Name = Nom
Next
End Sub

est il possible de le transformerpour que celui ci s’exécute a partir d'un bouton

merci de votre aide

je joint est fichiers exemple

yannick

Bonjour,

Je ne vois pas de feuille jointe. Pour appeler une procédure par bouton, ça ne doit pas être un problème difficile à résoudre. Car en créant un bouton de commande et dans ce module appeler la procédure que tu as créée, c'est tout à fait possible. Mais je n'arrive pas bien saisir ta demande. Peut-être avec un fichier modèle et ce que tu veux obtenir expliqué dans ce fichier, ça sera possible.

Bonjour

une solution (Les forts en VBA feront une boucle)

Cordialement

Excuse moi Amadeus

j'ai du oublier de le joindre le fichier été trop gros

je rectifie cela tout de suite

j'ai regardé ce que tu à fait

sauf je doit créer mais feuille a partir de modèle

a plus

Yannick