Discussion :

[cimbra55]

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 :

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

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

[Godzestla]

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.

[aalex_38]

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

[cimbra55]

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

[cimbra55]

bon effectivement avec ce code ça fonctionne

Code :

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

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 :

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

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 :

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

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
merci