ouvrir et visualiser onglet via userform

bonjour a vs tous
je suis nouveau ici et j'ai besoin d'aide
je m'explique
j'ai un listbox qui affiche tous les onglets de mon classeur pa ordre alpha
par click le textbox prends le nom choisi jusque la c'est ok
serais t'il possible d'avoir un code vba pour que le nom de feuille affiché ds le textbox1 affiche la feuille excel pour que je puisse faire les corrections necessaires
j'ai tenté ceci

Code:

---

1 2 3

Private Sub cmdwork_Click() Sheets(TextBox1.Value).Select 'ou .Show 'ou .Visible End Sub

---

rien n'apparait quelqu'un peut m'aider et expliquer
merci:cry:

Bonjour,
ton code devrait marcher si :
1) il se trouve bien dans le userform (et pas dans une module ou dans une feuille)
2) si Textbox est bien le nom du contrôle qui contient lea sélection de la listbox, sans blanc ni rien d'autre (à vérifier par Debug.print).

.show se rapporte à un userform
.visible est pour cacher on rendre visible.

ou se trouve ton listbox dans un userform ou dans une feuille ?

il se trouve dans un userform que j'ai nommé frminfo
et cmd est dans le meme userform

bon effectivement avec ce code ça fonctionne

Code:

---

1 2 3 4

Private Sub cmdwork_Click() Sheets(TextBox1.Value).Select Unloadfrminfowork End Sub

---

par contre apres 1 ou 2 fois a l'initialisation du userform info il m'apparait ceci

Code:

---

erreur execution 13

---

il ne veux plus initialisé ouverture alpha dans le listbox
pourtant ça fonctionnais
voici code alpha listbox dans useform frminfo
en fait tous le code du userforminfo

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub cmdwork_Click() Sheets(TextBox1.Value).Select Unloadfrminfowork End Sub   Private Sub UserForm_Initialize() Dim tablo Dim i As Byte, j As Byte Dim temp As String   tablo = Range("o1:o" & Range("o65536").End(xlUp).Row)   For i = 1 To UBound(tablo) For j = 1 To UBound(tablo) If tablo(i, 1) < tablo(j, 1) Then temp = tablo(i, 1): tablo(i, 1) = tablo(j, 1): tablo(j, 1) = temp End If Next j Next i   ListBox1.list = tablo End Sub   Private Sub ListBox1_Click() Me.TextBox1.Value = Me.ListBox1 End Sub

---

besoin de comprendre
merci8O