Liste déroulante pour choisir une feuille
herbalau
Messages postés
29
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Je me lance en VBA et, évidemment, j'ai quelques questions. J'ai un classeur Excel avec 12 feuilles (1 par mois), plus une 13ème dans laquelle je vais copier des données issues d'1 des 12 premières feuilles, et j'aimerais proposer à l'utilisateur de choisir la feuille désirée plutôt que de lui demander de saisir son nom pour éviter de se tromper. Pour l'insant, j'ai une inputbox dans laquelle je demande de saisir le mois désiré.
Cela doit être possible, mais je n'ai pas trouvé de cas similaire dans les quelques forums que j'ai visités.
Merci d'avance pour votre aide.
Je me lance en VBA et, évidemment, j'ai quelques questions. J'ai un classeur Excel avec 12 feuilles (1 par mois), plus une 13ème dans laquelle je vais copier des données issues d'1 des 12 premières feuilles, et j'aimerais proposer à l'utilisateur de choisir la feuille désirée plutôt que de lui demander de saisir son nom pour éviter de se tromper. Pour l'insant, j'ai une inputbox dans laquelle je demande de saisir le mois désiré.
Cela doit être possible, mais je n'ai pas trouvé de cas similaire dans les quelques forums que j'ai visités.
Merci d'avance pour votre aide.
5 réponses
-
Bonjour,
Voici un exemple:
http://www.cjoint.com/c/EIwiQfYk4dQ
-
Bonjour Le Pivert,
Merci pour une réponse si rapide... Néanmoins, cela ne correspond pas tout à fait à mon besoin. En effet, je ne veux pas "sélectionner" une feuille, mais juste donner sa valeur à une variable (par ex.: mois = janvier) qui va servir à récupérer ses données par des boucles. Aujourd'hui, j'ai:
mois = InputBox("Saisir le mois :", "Mois à saisir")
mais je voudrais éviter de saisir le mois (qui correspond au nom de la feuille).
J'espère avoir été assez clair, mais ce n'est pas si facile d'expliquer... :) -
c'est très simple, avec l'exemple.
Mettre ceci:Private Sub Valider_Click() 'ListeDeroulante.Hide Index = SelectFeuille.ListIndex ChoixFeuille = SelectFeuille.List(Index) Dim Feuille As String Feuille = ChoixFeuille 'Sheets(ChoixFeuille).Select MsgBox ChoixFeuille End Sub
tu remplace le MsgBox par ta variable
-
Tu as mis cela:
mois = InputBox("Saisir le mois :", "Mois à saisir")
a la place de ça tu mets:Dim monmois As String Private Sub Valider_Click() 'ListeDeroulante.Hide Index = SelectFeuille.ListIndex ChoixFeuille = SelectFeuille.List(Index) monmois = ChoixFeuille End Sub
ensuite tu te sers de ta variable monmois pour la placée où tu désires.
Je ne pourrais pas répondre avant lundi
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Voici un exemple:
http://www.cjoint.com/c/EICjmxz18cQ
