2 combobox pour 6 onglets

T

thierryastiti

XLDnaute Nouveau

• 15 Juillet 2009

• #2

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

 

Vote positif 0 Vote négatif

T

thierryastiti

XLDnaute Nouveau

• 15 Juillet 2009

• #3

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 ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2009

• #4

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 :

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

T

thierryastiti

XLDnaute Nouveau

• 15 Juillet 2009

• #5

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 ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2009

• #6

Re : 2 combobox pour 6 onglets

Re,

ce code fonctionne chez moi (Excel2003) :

Code:

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

@+

 

Vote positif 0 Vote négatif

T

thierryastiti

XLDnaute Nouveau

• 15 Juillet 2009

• #7

Re : 2 combobox pour 6 onglets

Voila

c'est tres frustrant de pas y arriver

ci joint

 

Pièces jointes

• Book1.xls

  24.5 KB · Affichages: 47
• Book1.xls

  24.5 KB · Affichages: 48
• Book1.xls

  24.5 KB · Affichages: 50

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2009

• #8

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...

 

Pièces jointes

• classeur1.xls

  27.5 KB · Affichages: 80
• classeur1.xls

  27.5 KB · Affichages: 73
• classeur1.xls

  27.5 KB · Affichages: 70

Vote positif 0 Vote négatif

T

thierryastiti

XLDnaute Nouveau

• 15 Juillet 2009

• #9

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2009

• #10

Re : 2 combobox pour 6 onglets

Re

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

Code:

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

@+

 

Vote positif 0 Vote négatif

T

thierryastiti

XLDnaute Nouveau

• 15 Juillet 2009

• #11

Re : 2 combobox pour 6 onglets

ben je revien au point de depart alors ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2009

• #12

Re : 2 combobox pour 6 onglets

Re

ou cela peut être ....

Code:

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

toujours à placer dans "thisworkbook"...

@+

 

Vote positif 0 Vote négatif