C Cougar XLDnaute Impliqué 10 Février 2016 #1 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 Dernière édition: 10 Février 2016
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 XLDnaute Barbatruc 10 Février 2016 #2 Re : Code à simplifier si possible Bonsoir. Mais comment peut il vous échapper l'évident Worksheets(ComboBox1.Text).Activate ? Vote positif 0 Vote négatif
Re : Code à simplifier si possible Bonsoir. Mais comment peut il vous échapper l'évident Worksheets(ComboBox1.Text).Activate ?
S st007 XLDnaute Barbatruc 10 Février 2016 #3 Re : Code à simplifier si possible Bonsoir, genre Code: Private Sub ComboBox1_Click() If ComboBox1 = "" Then Exit Sub Worksheets(CStr(Me.ComboBox1)).Activate End Sub Vote positif 0 Vote négatif
Re : Code à simplifier si possible Bonsoir, genre Code: Private Sub ComboBox1_Click() If ComboBox1 = "" Then Exit Sub Worksheets(CStr(Me.ComboBox1)).Activate End Sub
C Cougar XLDnaute Impliqué 10 Février 2016 #4 Re : Code à simplifier si possible Bonjour Dranreb, st007, Merci pour vos solutions. Vote positif 0 Vote négatif