Macro excel pour ajouter une feuille nomée

[sehadhamza]

Bonjour
Je suis entrain de créer un petit programme de gestion commercial sur excel
Je suis bloqué sur une chose que j'espère trouver la réponse ici

Donc voila; pour ajouter mes clients a une base de donnée , j'utilise un userform jusque la tout marche bien
Je veux que quand j'ajoute un nom de client; une feuille excel sera crée automatiquement avec comme nom: Le nom de client que j'ai tapé; et si c'est possible avec une mise en forme que je choisirai

 

[Staple1600]

Re : Macro excel pour ajouter une feuille nomée

Bonjour à tous

Un petit exemple ci dessous (a mettre dans le code de l'userform)
Ici le nom de la feuille est renseigné dans TextBox1

Private Sub CommandButton1_Click()
If Len(TextBox1) > 0 Then
If Not existef(TextBox1) Then
Sheets.Add(after:=Sheets(Sheets.Count)).Name = TextBox1
End If
End If
End Sub

Public Function existef(ByVal wsn$) As Boolean
On Error Resume Next
existef = (Sheets(wsn).Name <> "")
On Error GoTo 0
End Function

PS:Il te restera à gérer les caractères interdits dans le nom d'une feuille
Tu trouveras des exemples dans les archives du forum (avec la loupe en haut à droite de l'écran)