Création d'un onglet avec formulaire pour nommer et lien

Bonjour à tous,

je suis nouveau en vba et particulièrement pour les UserForm.

J'ai un fichier avec un onglet "modèle" que je voudrais pouvoir, à l'aide d'un formulaire où je rentrerais le nom de mon client, copier ce modèle vers un nouvel onglet, nommer l'onglet avec le nom du client rentré dans le formulaire, insérer le nom en cellule B2 et indexer le nom dans un autre onglet "index" avec un lien hypertexte vers le nouvel onglet du client.

Je voudrais également que la liste des clients dans l'onglet "index" soit ordonnée alphabétiquement tout comme les onglets dans le document (excepté les 3 premiers "index" "modèle" et "nouveau client").

Je sais que tout ceci est possible mais je ne parviens pas à rédiger un code sans bug...

Si pourriez m'aider, je vous en serai très reconnaissant:)

Je joins le fichier souhaité.

Merci beaucoup.

Bàv,

Bonjour voici une petite macro qui remplit tout sauf le tri des onglets par ordre alphabétique

Sub tf()
  Dim f$
  Feuil2.Copy after:=Sheets(Sheets.Count)
  f = InputBox("Nom de la feuille")
  Sheets(Sheets.Count).Name = f
  Sheets(f).[B1] = f
  With Feuil1
  .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = f
  .Hyperlinks.Add anchor:=Feuil1.Cells(Rows.Count, 1).End(xlUp), Address:="", SubAddress:="'" & Sheets(f).Name & "'!A1", TextToDisplay:=f
  .[A1].Sort key1:=Feuil1.[A2], Order1:=xlAscending, Header:=xlGuess
End With
End Sub

Bonjour,

Pour compléter le code de Machin

un onglet avec les noms triés par ordre alphabétique

les deux codes sur le même fichier.

Amicalement

Pierrot

Merci à tous les deux

ça fonctionne parfaitement !

Amicalement,

Poleg