2 combobox pour 6 onglets

[thierryastiti]

Boujour,

je souhaite pouvoir "naviguer" d'un onglet à un autre par l'intermediaire de 2 onglets :

exemple

combobox1 cafe
lait
the

combobox2 choco
pistacho
nougat

pour aller dans les onglets cafe, lait ... etc (enfin feuille cafe, feuille lait...)

cordialement 🙂

 

[thierryastiti]

Re : 2 combobox pour 6 onglets

en fait je cherche juste à rentrer "en dur" le nom des feuilles que je voudrais dans

chaque combobox.

merci de m'aider

 

[thierryastiti]

Re : 2 combobox pour 6 onglets

j'essaye un truc genre

ComboBox1.AddItem Worksheets("Sheet1").Range("A1")
ComboBox1.AddItem Worksheets("Sheet2").Range("A1")
ComboBox1.AddItem Worksheets("Sheet3").Range("A1")

mais je ne sais pas trop ou le mettre ...

 

[Pierrot93]

Re : 2 combobox pour 6 onglets

Re

essaye en le placant dans le module "thisworkbook", en utilisant l'événement "open", se déclenchera à l'ouverture du classeur :

Option Explicit
Private Sub Workbook_Open()
'ton code
End Sub

bonne soirée
@+

 

[thierryastiti]

Re : 2 combobox pour 6 onglets

En ayant ce code ci

Option Explicit
Private Sub Workbook_Open()
With Sheet1

.ComboBox1.AddItem Worksheets("Sheet1").Range("A1")
.ComboBox1.AddItem Worksheets("toto").Range("A1")
.ComboBox1.AddItem Worksheets("tata").Range("A1")



End With
End Sub






Private Sub ComboBox1_LostFocus()
ComboBox1.Value = ""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
Private Sub ComboBox1_Change()

On Error Resume Next
Sheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub

j'obtiens toujours un combobox vide ...

 

[Pierrot93]

Re : 2 combobox pour 6 onglets

Re,

ce code fonctionne chez moi (Excel2003) :

Option Explicit
Private Sub Workbook_Open()
With Sheets("Feuil1")
    .ComboBox1.AddItem Worksheets("Feuil1").Range("A1")
End With
End Sub

mets peut être un tout petit fichier exemple en pièce jointe représentant bien le problème

@+

 

[thierryastiti]

Re : 2 combobox pour 6 onglets

Voila

c'est tres frustrant de pas y arriver

ci joint

 

[Pierrot93]

Re : 2 combobox pour 6 onglets

Re

ton fichier en retour, code placé au bon endroit, module "ThisWorkbook" comme précisé dans mon post de 17h49...

 

[thierryastiti]

Re : 2 combobox pour 6 onglets

d'accord mais en fait j'ai plus d'onglets que ca et je ne veux pas tous les mettres dans

ma combobox ... et les feuilles n'ont pas de nom en commun donc c'est vraiment à moi de les mettre dans le code.

desole hehe

 

[Pierrot93]

Re : 2 combobox pour 6 onglets

Re

utilises ce type de code alors, mais placé au bon endroit....

With Sheets("Feuil1")
    .ComboBox1.AddItem Worksheets("Feuil1").Range("A1")
End With

@+

 

[thierryastiti]

Re : 2 combobox pour 6 onglets

ben je revien au point de depart alors ...

 

[Pierrot93]

Re : 2 combobox pour 6 onglets

Re

ou cela peut être ....

Sheets("Feuil1") .ComboBox1.AddItem "nomfeuille"

toujours à placer dans "thisworkbook"...

@+