Créer des feuilles à partir d'une liste

Merci beaucoup pour cette solution, mais je voudrais que cela se fasse de façon automatique dans l'hypothèse ou j'aurai 250 feuilles à créer et aussi que ces feuilles se nomment en fonction de la liste...

Désolé je n'avais pas enregistré le fichier sous le bon format ci joint le bon lien !

https://www.dropbox.com/s/3nlpixqiuesmlry/note%20de%20stage%20essai.xlsm

Bonjour,

Il n'y a que le VBA pour traiter ta demande si tu as quelques notions

Private Sub CommandButton4_Click()
Dim M, i As Long
Dim k As Range
Dim erreur As Boolean
Application.ScreenUpdating = False
For Each k In Sheets("Contrôle").Range("A2:A100")
If k.Value <> "" Then
On Error GoTo erreur1
Sheets(k.Value).Select
If erreur = True Then Sheets.Add.Name = k.Value
erreur = False
End If
Next
Range("A1").Select
Exit Sub
erreur1:
erreur = True
Resume Next
Application.ScreenUpdating = True
End Sub

ce code peut être complété par un tri croissant des onglets

Re,

commence par enregistrer ton fichier sous et dans Type sélectionne soit Classeur Excel prenant en compte les macros (*.XLSM) ou avec l'ancienne extension XLS

sur ta feuille crée un bouton activeX (CommandButton1)

double clic sur le bouton qui ouvrira automatiquement les propriétés du bouton dans le visual

entre ces deux lignes

Private Sub CommandButton1_Click()

End Sub

colle ce code

Dim M, i As Long
Dim k As Range
Dim erreur As Boolean
Application.ScreenUpdating = False
For Each k In Sheets("Contrôle").Range("A2:A100")
If k.Value <> "" Then
On Error GoTo erreur1
Sheets(k.Value).Select
If erreur = True Then Sheets.Add.Name = k.Value
erreur = False
End If
Next
Range("A1").Select
Exit Sub
erreur1:
erreur = True
Resume Next
Application.ScreenUpdating = True

teste le. s'il ne fonctionne pas, il est possible que ton niveau de sécurité soit trop élevé. Baisse le niveau de sécurité voir je t'expliquerai plus tard comment relever le niveau de sécurité

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.