J'aimerai à l'aide de ma ComboBox1 dans mon UserForm1
le code qui conviendrait pour que la liste déroulante
me propose à choisir de la cinquantaine de feuilles
dont est constitué mon classeur.
Vu le nombre de feuilles, il est tés pénible de
naviguer de la feuil1 par exemple à la feuil15
puis revenir à la feuile2 pour retourner à la
feuil50.
Cette liste déroulante dans ma ComboBox1 serait
bienvenue....
Dans l'attente......
Je vous souhaite à tous de bien continuer à
soigner votre foie et votre foi ;0))
Fr@ncis
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
On peut sélectionner les feuilles d'un classeur par un clic droit sur les flèches en bas à gauche du nom des feuilles.
Sinon, pour remplir le combobox1 '--------------- Private Sub UserForm_Initialize() Dim i As Long For i = 1 To Worksheets.Count Me.ComboBox1.AddItem Sheets(i).Name Next i End Sub '--------------- Pour activer la feuille '-------------- Private Sub ComboBox1_Change() Sheets(Me.ComboBox1.Value).Activate End Sub '-------------- -- Meilleurs voux JJ
"" a écrit dans le message de news: 549e879a$0$12752$
Bonjour à tous.
J'aimerai à l'aide de ma ComboBox1 dans mon UserForm1 le code qui conviendrait pour que la liste déroulante me propose à choisir de la cinquantaine de feuilles dont est constitué mon classeur. Vu le nombre de feuilles, il est tés pénible de naviguer de la feuil1 par exemple à la feuil15 puis revenir à la feuile2 pour retourner à la feuil50. Cette liste déroulante dans ma ComboBox1 serait bienvenue....
Dans l'attente...... Je vous souhaite à tous de bien continuer à soigner votre foie et votre foi ;0))
Bonjour,
On peut sélectionner les feuilles d'un classeur par un clic droit sur les flèches en bas à gauche du nom des
feuilles.
Sinon, pour remplir le combobox1
'---------------
Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To Worksheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next i
End Sub
'---------------
Pour activer la feuille
'--------------
Private Sub ComboBox1_Change()
Sheets(Me.ComboBox1.Value).Activate
End Sub
'--------------
--
Meilleurs voux
JJ
"Fr@ncis" <gtoukc@free.fr> a écrit dans le message de news: 549e879a$0$12752$426a34cc@news.free.fr...
Bonjour à tous.
J'aimerai à l'aide de ma ComboBox1 dans mon UserForm1
le code qui conviendrait pour que la liste déroulante
me propose à choisir de la cinquantaine de feuilles
dont est constitué mon classeur.
Vu le nombre de feuilles, il est tés pénible de
naviguer de la feuil1 par exemple à la feuil15
puis revenir à la feuile2 pour retourner à la
feuil50.
Cette liste déroulante dans ma ComboBox1 serait
bienvenue....
Dans l'attente......
Je vous souhaite à tous de bien continuer à
soigner votre foie et votre foi ;0))
Fr@ncis
On peut sélectionner les feuilles d'un classeur par un clic droit sur les flèches en bas à gauche du nom des feuilles.
Sinon, pour remplir le combobox1 '--------------- Private Sub UserForm_Initialize() Dim i As Long For i = 1 To Worksheets.Count Me.ComboBox1.AddItem Sheets(i).Name Next i End Sub '--------------- Pour activer la feuille '-------------- Private Sub ComboBox1_Change() Sheets(Me.ComboBox1.Value).Activate End Sub '-------------- -- Meilleurs voux JJ
"" a écrit dans le message de news: 549e879a$0$12752$
Bonjour à tous.
J'aimerai à l'aide de ma ComboBox1 dans mon UserForm1 le code qui conviendrait pour que la liste déroulante me propose à choisir de la cinquantaine de feuilles dont est constitué mon classeur. Vu le nombre de feuilles, il est tés pénible de naviguer de la feuil1 par exemple à la feuil15 puis revenir à la feuile2 pour retourner à la feuil50. Cette liste déroulante dans ma ComboBox1 serait bienvenue....
Dans l'attente...... Je vous souhaite à tous de bien continuer à soigner votre foie et votre foi ;0))
