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.
A voir également:
- Liste déroulante pour choisir une feuille
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste code ascii - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
- Bruler feuille de laurier - Guide
5 réponses
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... :)
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:
tu remplace le MsgBox par ta variable
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:
ensuite tu te sers de ta variable monmois pour la placée où tu désires.
Je ne pourrais pas répondre avant lundi
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