Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pb affichage onglet ds combobox

B

ben

Guest
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
 
S

sousou

Guest
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
 
S

sousou

Guest
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()
...
 

Discussions similaires

Réponses
6
Affichages
419
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…