Bonjour, je pense que ton bouton doit changer le calsseur actif, utilise l'objet classeur pour travailler dans ta combobox
regarde dans la deuxième partie de ton code ce que je te propose:
pb affichage onglet ds combobox
Auteur: ben (81.80.37.---)
Date: 15-12-03 09:11
Bonjour le forum
j'ai toujours un tit pb concernant ceci :
j'ai le code suivant :
Private Sub CommandButton8_Click()
Selectsheets.Show 0
Dim Classeur As Workbook
For Each Classeur In Workbooks
If Classeur.path & "\" & Classeur.Name = TextBox3 Then
Classeur.Activate
Exit Sub
End If
Next Classeur
End Sub
Private Sub ComboBox1_Enter()
Partie déclaration:
Dim Tableau(10) As Variant
Private Sub ComboBox1_Enter()
---remplace en dessous activeworkbook par classeur--
-----ou mettre ici calsseur.activate--
For i = 1 To ActiveWorkbook.Sheets.Count
Tableau(i) = Sheets(i).Name
Next i
ComboBox1.ColumnCount = 1
ComboBox1.List() = Tableau
End Sub
End Sub