pb affichage onglet ds combobox

[ben]

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


une fois que l'on a appuyé sur le bouton et le code précédent exécuté je fais ceci :



Private Sub ComboBox1_Enter()

Partie déclaration:
Dim Tableau(10) As Variant


Private Sub ComboBox1_Enter()

For i = 1 To ActiveWorkbook.Sheets.Count
Tableau(i) = Sheets(i).Name
Next i
ComboBox1.ColumnCount = 1
ComboBox1.List() = Tableau
End Sub

End Sub


Le pb est que je n'ai pas les bon onglets dans mon combobox j'ai ceux de mon classeur de ma macro
Comment puis je résoudre mon pb ?

merci pour votre aide

 

[sousou]

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

 

[ben]

j'ai essayé ca fonctionne pas il me met : variable objet ou variable de bloc with non défini dans les 2 cas...

 

[sousou]

Effectivement du te trouves dans des procédures private.

supprime private de tes procédures, et déclare en début de procédure l'objet classeur

dim classeur

sub CommandButton8_Click()
...

 

[ben]

ca a l'air de marché merci beaucoup !