Bonjour
j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52
je voudrais qu'en cliquant dans la listbox sur le numéro, cela me
sélectionne la page
exemple je clique sur semaine 3, la feuille 3 est sélectionnée
Merci
Private Sub UserForm_Initialize()
For x = 1 To 52
ListBox1.AddItem ("Semaine " & x)
Next
End Sub
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
anonymousA
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la
qualité de son travail) t'a déjà indiqué un lien pour visualiser des
exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure
évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change()
Sheets(Me.ListBox1.Value).Select
End Sub
A+
Bonjour
j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52
je voudrais qu'en cliquant dans la listbox sur le numéro, cela me
sélectionne la page
exemple je clique sur semaine 3, la feuille 3 est sélectionnée
Merci
Private Sub UserForm_Initialize()
For x = 1 To 52
ListBox1.AddItem ("Semaine " & x)
Next
End Sub
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
anonymousA
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de
son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la
qualité de son travail) t'a déjà indiqué un lien pour visualiser des
exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure
évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change()
Sheets(Me.ListBox1.Value).Select
End Sub
A+
Bonjour
j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52
je voudrais qu'en cliquant dans la listbox sur le numéro, cela me
sélectionne la page
exemple je clique sur semaine 3, la feuille 3 est sélectionnée
Merci
Private Sub UserForm_Initialize()
For x = 1 To 52
ListBox1.AddItem ("Semaine " & x)
Next
End Sub
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
Lionel B
Merci
"anonymousA" a écrit dans le message de news: 42e242e2$0$30247$
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
Merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42e242e2$0$30247$8fcfb975@news.wanadoo.fr...
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son
travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la
qualité de son travail) t'a déjà indiqué un lien pour visualiser des
exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure
évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change()
Sheets(Me.ListBox1.Value).Select
End Sub
A+
Bonjour
j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52
je voudrais qu'en cliquant dans la listbox sur le numéro, cela me
sélectionne la page
exemple je clique sur semaine 3, la feuille 3 est sélectionnée
Merci
Private Sub UserForm_Initialize()
For x = 1 To 52
ListBox1.AddItem ("Semaine " & x)
Next
End Sub
"anonymousA" a écrit dans le message de news: 42e242e2$0$30247$
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
Misange
tu as raison de nous associer sur ce coup là AnonymousA, nous sommes tous les deux nés le jour de la saint modeste ;-) (véridique)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 23/07/2005 15:15, :
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
tu as raison de nous associer sur ce coup là AnonymousA, nous sommes
tous les deux nés le jour de la saint modeste ;-) (véridique)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Le 23/07/2005 15:15, :
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de
son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la
qualité de son travail) t'a déjà indiqué un lien pour visualiser des
exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure
évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change()
Sheets(Me.ListBox1.Value).Select
End Sub
A+
Bonjour
j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52
je voudrais qu'en cliquant dans la listbox sur le numéro, cela me
sélectionne la page
exemple je clique sur semaine 3, la feuille 3 est sélectionnée
Merci
Private Sub UserForm_Initialize()
For x = 1 To 52
ListBox1.AddItem ("Semaine " & x)
Next
End Sub
tu as raison de nous associer sur ce coup là AnonymousA, nous sommes tous les deux nés le jour de la saint modeste ;-) (véridique)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 23/07/2005 15:15, :
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
anonymousA
me voilà informé pour le coup ! au fait comme je ne suis pas très Saint quelque chose, ca donne quel jour en fait ?
cordialement,
tu as raison de nous associer sur ce coup là AnonymousA, nous sommes tous les deux nés le jour de la saint modeste ;-) (véridique)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 23/07/2005 15:15, :
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
me voilà informé pour le coup ! au fait comme je ne suis pas très Saint
quelque chose, ca donne quel jour en fait ?
cordialement,
tu as raison de nous associer sur ce coup là AnonymousA, nous sommes
tous les deux nés le jour de la saint modeste ;-) (véridique)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Le 23/07/2005 15:15, :
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de
son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la
qualité de son travail) t'a déjà indiqué un lien pour visualiser des
exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure
évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change()
Sheets(Me.ListBox1.Value).Select
End Sub
A+
Bonjour
j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52
je voudrais qu'en cliquant dans la listbox sur le numéro, cela me
sélectionne la page
exemple je clique sur semaine 3, la feuille 3 est sélectionnée
Merci
Private Sub UserForm_Initialize()
For x = 1 To 52
ListBox1.AddItem ("Semaine " & x)
Next
End Sub
me voilà informé pour le coup ! au fait comme je ne suis pas très Saint quelque chose, ca donne quel jour en fait ?
cordialement,
tu as raison de nous associer sur ce coup là AnonymousA, nous sommes tous les deux nés le jour de la saint modeste ;-) (véridique)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 23/07/2005 15:15, :
erratum, ce n'est pas Misange ( mais ca n'enlève rien à la qualité de son travail) mais Modeste , l'étrangement mal nommmé.
A+
bonjour,
il me semble que Misange ( rendons grâce à cette migrateuse pour la qualité de son travail) t'a déjà indiqué un lien pour visualiser des exemples.
Pour le reste, ta question renvoie à l'utilisation de la procédure évenementielle Change de l'objet Listbox.
Private Sub ListBox1_Change() Sheets(Me.ListBox1.Value).Select End Sub
A+
Bonjour j'ai cette procédure j'ai également des feuilles de classeurs de 1 à 52 je voudrais qu'en cliquant dans la listbox sur le numéro, cela me sélectionne la page exemple je clique sur semaine 3, la feuille 3 est sélectionnée Merci
Private Sub UserForm_Initialize() For x = 1 To 52 ListBox1.AddItem ("Semaine " & x) Next End Sub
Modeste
Bonsour® anonymousA wrote:
me voilà informé pour le coup ! au fait comme je ne suis pas très Saint quelque chose, ca donne quel jour en fait ? voir là :
Modeste , l'étrangement mal nommmé. ??? c'est de l'ironie ou de la compassion ...
c'est quand même un pseudo plus réaliste que DarkVador, Goldorak ou the Best... Non ???
Comme le signale Flo, c'est simplement par atavisme eu égard mon saint patron de naissance. mais c'est difficile !!! ;o)))
Soit modeste ! C'est l'orgueil qui déplait le moins . (Jules Renard) -- http://viadresse.com/?94912042
anonymousA
bonjour,
Modeste , l'étrangement mal nommmé.
??? c'est de l'ironie ou de la compassion ... c'est quand même un pseudo plus réaliste que DarkVador, Goldorak ou the Best... Non ???
ni ironie ni compassion. Simplement le fait que tu l'es parfois trop compte tenu des réponses que tu apportes sur ce forum.c'était juste un jeu de mots que je voulais faire.
Cordialement,
Bonsour® anonymousA wrote:
me voilà informé pour le coup ! au fait comme je ne suis pas très Saint quelque chose, ca donne quel jour en fait ?
voir là : http://www.excelabo.net/xl/compteclic.php?nom=gd-calend
Modeste , l'étrangement mal nommmé.
??? c'est de l'ironie ou de la compassion ... c'est quand même un pseudo plus réaliste que DarkVador, Goldorak ou the Best... Non ???
Comme le signale Flo, c'est simplement par atavisme eu égard mon saint patron de naissance. mais c'est difficile !!! ;o)))
Soit modeste ! C'est l'orgueil qui déplait le moins . (Jules Renard)
bonjour,
Modeste , l'étrangement mal nommmé.
??? c'est de l'ironie ou de la compassion ...
c'est quand même un pseudo plus réaliste que DarkVador, Goldorak ou the
Best...
Non ???
ni ironie ni compassion. Simplement le fait que tu l'es parfois trop
compte tenu des réponses que tu apportes sur ce forum.c'était juste un
jeu de mots que je voulais faire.
Cordialement,
Bonsour®
anonymousA wrote:
me voilà informé pour le coup ! au fait comme je ne suis pas très
Saint quelque chose, ca donne quel jour en fait ?
voir là :
http://www.excelabo.net/xl/compteclic.php?nom=gd-calend
Modeste , l'étrangement mal nommmé.
??? c'est de l'ironie ou de la compassion ...
c'est quand même un pseudo plus réaliste que DarkVador, Goldorak ou the
Best...
Non ???
Comme le signale Flo, c'est simplement par atavisme eu égard mon saint
patron de naissance.
mais c'est difficile !!!
;o)))
Soit modeste ! C'est l'orgueil qui déplait le moins .
(Jules Renard)
??? c'est de l'ironie ou de la compassion ... c'est quand même un pseudo plus réaliste que DarkVador, Goldorak ou the Best... Non ???
ni ironie ni compassion. Simplement le fait que tu l'es parfois trop compte tenu des réponses que tu apportes sur ce forum.c'était juste un jeu de mots que je voulais faire.
Cordialement,
Bonsour® anonymousA wrote:
me voilà informé pour le coup ! au fait comme je ne suis pas très Saint quelque chose, ca donne quel jour en fait ?
voir là : http://www.excelabo.net/xl/compteclic.php?nom=gd-calend
Modeste , l'étrangement mal nommmé.
??? c'est de l'ironie ou de la compassion ... c'est quand même un pseudo plus réaliste que DarkVador, Goldorak ou the Best... Non ???
Comme le signale Flo, c'est simplement par atavisme eu égard mon saint patron de naissance. mais c'est difficile !!! ;o)))
Soit modeste ! C'est l'orgueil qui déplait le moins . (Jules Renard)
