Créer une combo box avec les noms de toutes les feuilles d'un fichier excel, et [Résolu]

Signaler
Messages postés
5
Date d'inscription
mercredi 1 octobre 2008
Statut
Membre
Dernière intervention
9 octobre 2008
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Bonjour, je suis nouveau sur ce forum et également très débutant en VBA. J'arrive à utiliser l'enregistreur de macro, mais pas à faire l'opération dont j'ai besoin:
J'ai un fichier excel avec une série de feuilles. Je désire crééer une combo box dans laquelle je pourrais sélectionner les différentes feuilles de mon fichier. Et ensuite en cliquant sur un bouton "compute", le contenu de cette feuille sélectionnée serait copié dans ma feuille de travail. J'ai donc besoin de crééer la macro adéquate et la combo box également. Je n'ai pas trouvé de réponse à mon problème en parcourant les post précédents. Merci si qqun peut m'aider!

5 réponses

Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
bonjour
voila pour récupérer le noms de tes feuilles dans un combobox
Private Sub UserForm_Initialize()
combo1.Clear
For i = 1 To Sheets.Count
combo1.AddItem (Sheets(i).Name)
Next i
End Sub
Private Sub combo1_Click() ' clic pour aller sur la feuille
Sheets(ccombo1.Text).Select
End Sub

en espérant que cela t'aide
@ plus
petchy
Messages postés
5
Date d'inscription
mercredi 1 octobre 2008
Statut
Membre
Dernière intervention
9 octobre 2008

Bonjour Petchy,

merci pour ta contribution, c'est un début à mon problème. Si qqun peut m'aider pour la suite ce serait sympa!
Merci à tous d'avance!

Dgeof
Messages postés
5
Date d'inscription
mercredi 1 octobre 2008
Statut
Membre
Dernière intervention
9 octobre 2008

Je viens de créer une combo box à laquelle j'ai lié le code que tu m'as donné, mais rien ne se passe...?
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

Ce que t'a donné Petchy fonctionne tres bien  pour une combobox dans un formulaire(Userform). Mais evidemment pour une combobox dans une feuille
faudrat si prendre autrement ! Elle ou ta combobox ? Reflechis aussi au cas qui doivent mettre a jour cette combobox : apres ajout d'une feuille, suppression d'une feuille, ouverture du fichier etc.

Vas te falloir etre plus precis si tu veux de l'aide. En generale on ce lasse vite des gents a qui il faut tirer les vers du nez !
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
re
voila pour un combobox dans une feuille avec un controle activeX

Private Sub ComboBox1_Click()
Sheets(ComboBox1.Text).Select
End Sub


Private Sub Worksheet_Activate()
ComboBox1.Clear
For i = 1 To Sheets.Count
ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub
@plus