Discussion :

[diss10]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?

[antonysansh]

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

Exemple de gestion d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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