M
Maguy
Guest
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
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