Userform

[Maguy]

Bonjour à tous,

j'ai un userform mais lorsque je fais la compilation il ne fonctionne pas. Je vous inscrit le code et si quelqu'un peut m'aider ca serait très apprécié.

Un merci d'avance

Sub Worksheet_Activate()
USFListeFeuilles.Initialize
End Sub
Private Sub Cmb1_Change()
Dim WS As String
WS = Cmb1.Value
On Error Resume Next
If WS <> "SELECTIONNEZ" Then
Worksheets(WS).Select
Cmb1.Value = Cmb1.Text 'ActiveSheet.Name
Else
Exit Sub
End If
End Sub

Private Sub Cmb1_Click()
Dim WS As Worksheet
Cmb1.Clear
For Each WS In Worksheets
Me.Caption = ActiveWorkbook.Name
Cmb1.AddItem WS.Name
Next
Cmb1.Value = Tag
End Sub


Public Sub USFListeFeuilles_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
Me.Caption = ActiveWorkbook.Name
Cmb1.AddItem WS.Name
Next
Cmb1.Value = Tag
End Sub

 

[Eric C]

Bonjour le forum
Bonjour Maguy

Pourquoi faire simple quand on peut faire compliqué ????

Si j'ai bien compris ton problème, tu as tenté de lister les feuilles présentes dans ton classeur à travers ton ComboBox. Puis d'activer la feuille représentée par l'Item de ton Cbo si celle-ci ne porte pas le "nom" de SELECTIONNEZ, Isn't ???
Si c'est cela voilà la soluce sans fioriture et sans détour.
Au plaisir de te lire afin de savoir si je n'ai pas fait fausse route.

@ ++ Eric C

 

[Maguy]

Wow!

Un gros merci! C'est super.