Code à simplifier si possible (résolu)

[Cougar]

Bonjour le Forum,

Est-il possible de sélectionner un onglet en fonction du choix dans un combobox. Présentement j'ai cela comme code :

If ComboBox1 = "L-800" Then
Worksheets("L-800").Activate
Call Suite
Exit Sub
End If

If ComboBox1 = "CL-400" Then
Worksheets("CL-400").Activate
Call Suite
Exit Sub
End If

If ComboBox1 = "435-3035" Then
Worksheets("435-3035").Activate
Call Suite
Exit Sub
End If

If ComboBox1 = "Corruguer 7/8" Then
Worksheets("Corruguer 7/8").Activate
Call Suite
Exit Sub
End If

par quelque chose de plus simple ?

Merci

 

[Dranreb]

Re : Code à simplifier si possible

Bonsoir.
Mais comment peut il vous échapper l'évident Worksheets(ComboBox1.Text).Activate ?

 

[st007]

Re : Code à simplifier si possible

Bonsoir,
genre

Private Sub ComboBox1_Click()
If ComboBox1 = "" Then Exit Sub
Worksheets(CStr(Me.ComboBox1)).Activate
End Sub

 

[Cougar]

Re : Code à simplifier si possible

Bonjour Dranreb, st007,

Merci pour vos solutions.