onglet

[apdf1]

Bonjour,

Toujours besoin de vous, voilà j'ai fait un userform avec une listbox et un textbox et je voudrais changer le nom des onglets en l'envoyant de la listbox vers la textbox et valider avec le bouton.

Je joins mon fichier sa seras certainement mieux.

Cordialement

Max

 

[kjin]

Re : onglet

Bonjour,
Pas trop pigé mais bon...

Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
With Sheets(CStr(ListBox1))
    .Name = TextBox1
End With
IniLbx1
TextBox1 = ""

End Sub

Private Sub CommandButton2_Click()
Unload Me

End Sub

Private Sub ListBox1_Click()
TextBox1 = ListBox1.Value

End Sub

Private Sub UserForm_Initialize()
IniLbx1

End Sub

Sub IniLbx1()
Dim s As Worksheet
ListBox1.Clear
For Each s In Sheets
  ListBox1.AddItem s.Name
Next

End Sub

A+
kjin

 

[apdf1]

Re : onglet

Bonjour kjin ,

C'est exactement se que je voulais
Merci beaucoup

@+
Max