Créer une combo box avec les noms de toutes les feuilles d'un fichier excel, etRésolu

Question

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!

Dgeof · Accepted Answer

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

cs_petchy · Answer

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

Dgeof · Answer

Je viens de créer une combo box à laquelle j'ai lié le code que tu m'as donné, mais rien ne se passe...?

bigfish_le vrai · Answer

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 !

cs_petchy · Answer

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

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

5 réponses

Votre réponse

Discussions similaires