Nommer ma feuille à partir de 2 Textbox

Bonjour a tous :)

Voila donc , je souaite nommer ma feuil créé a partir de mon userform en combinant ma textbox2 et ma combobox1 .
voila mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10

'Création du modèle tableau dans la nouvel feuil nommé If Me.TextBox2 = "" Then Exit Sub On Error Resume Next Sheets(Me.TextBox2.Text).Visible = True existe = Err.Number On Error GoTo 0 If existe > 0 Then Sheets("Modele_sop").Select 'je selectionne mon model Sheets("Modele_sop").Copy after:=Worksheets(Worksheets.Count) 'je crée le nouvel onglet ActiveSheet.Name = Me.TextBox2 'Nom du SOP

---

Je voudrais par exemple que si la combobox = 5S et la textbox=22 avoir comme nom de feuil => 5S22


Voila ,

Merci beaucoup :)

Bonjour
Il ne te vient pas à l'idée de modifier tout simplement le nom de cette dernère feuille, par ajout de cette ligne de code toute bête :

Code:

---

Sheets(Worksheets.Count).Name = tacombo.list(tacombo.listindex) & tatextbox.text

---

?

Attention toutefois à faire attention que le nom de feuille ne soit pas déjà utilisé.

Exemple de gestion d'erreur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() On Error GoTo erreur 'Ton code ici fin: Exit Sub erreur: Select Case err.Number Case 1004 Debug.Print err.Number & " : " & err.Description Case Else '... End Select End Sub

---