Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

dynamique lisbox

14 réponses
Avatar
stef b
Bonjour

je dispose d un fichier excel 2003 dont certaines pages commencent par "P_",
je voudrais si possible que dans un userform il m'afficher la liste de ces
pages ( sous form de textbox ,dont le nombre peut etre variable avec à coté
une combobox .. est ce possible? merci.

10 réponses

1 2
Avatar
Jacky
Bonjour,

Testé avec
1 userform comprenant:
1 textbox (TextBox1)
1 combobox (ComboBox1)
'------------
Private Sub UserForm_Initialize()
For Each sh In ThisWorkbook.Worksheets
If UCase(Left(sh.Name, 1)) = "P" Then
Me.TextBox1.Value = Me.TextBox1.Value & sh.Name & Chr(10)
Me.ComboBox1.AddItem sh.Name
End If
Next
End Sub
'--------------

--
Salutations
JJ


"stef b" a écrit dans le message de news:
507150b9$0$18072$
Bonjour

je dispose d un fichier excel 2003 dont certaines pages commencent par "P_", je voudrais si possible que
dans un userform il m'afficher la liste de ces pages ( sous form de textbox ,dont le nombre peut etre
variable avec à coté une combobox .. est ce possible? merci.



Avatar
stef b
merci mais ce code je le connaissais deja , je voudrais qu'il m affiche dans
le userform autant de textbos et combobox que j ai de feuilles commencant
par "P_"
merci d'avance

"Jacky" a écrit dans le message de news:
k4rn2i$24c$
Bonjour,

Testé avec
1 userform comprenant:
1 textbox (TextBox1)
1 combobox (ComboBox1)
'------------
Private Sub UserForm_Initialize()
For Each sh In ThisWorkbook.Worksheets
If UCase(Left(sh.Name, 1)) = "P" Then
Me.TextBox1.Value = Me.TextBox1.Value & sh.Name & Chr(10)
Me.ComboBox1.AddItem sh.Name
End If
Next
End Sub
'--------------

--
Salutations
JJ


"stef b" a écrit dans le message de news:
507150b9$0$18072$
Bonjour

je dispose d un fichier excel 2003 dont certaines pages commencent par
"P_", je voudrais si possible que dans un userform il m'afficher la liste
de ces pages ( sous form de textbox ,dont le nombre peut etre variable
avec à coté une combobox .. est ce possible? merci.







Avatar
Jacky
Re...
Une piste...
'-------------
Private Sub UserForm_Initialize()
x = 50
For Each sh In ThisWorkbook.Worksheets
If UCase(Left(sh.Name, 1)) = "P" Then
Set obj = Me.Controls.Add("forms.TextBox.1")
Set Obj1 = Me.Controls.Add("forms.Combobox.1")
With obj
.Name = "Textbox" & sh.Name
.Object.Value = "Textbox" & sh.Name
.Left = 10
.Top = x
.Width = 60
.Height = 15
End With
With Obj1
.Name = "Combo" & sh.Name
.Object.Value = "Combo" & sh.Name
.Left = obj.Left + 10 + obj.Width
.Top = x
.Width = 70
.Height = 15
End With
x = x + obj.Height
End If
Next
End Sub
'-------------

--
Salutations
JJ


"stef b" a écrit dans le message de news:
50727fce$0$23473$

merci mais ce code je le connaissais deja , je voudrais qu'il m affiche dans le userform autant de textbos
et combobox que j ai de feuilles commencant par "P_"
merci d'avance

"Jacky" a écrit dans le message de news: k4rn2i$24c$
Bonjour,

Testé avec
1 userform comprenant:
1 textbox (TextBox1)
1 combobox (ComboBox1)
'------------
Private Sub UserForm_Initialize()
For Each sh In ThisWorkbook.Worksheets
If UCase(Left(sh.Name, 1)) = "P" Then
Me.TextBox1.Value = Me.TextBox1.Value & sh.Name & Chr(10)
Me.ComboBox1.AddItem sh.Name
End If
Next
End Sub
'--------------

--
Salutations
JJ


"stef b" a écrit dans le message de news:
507150b9$0$18072$
Bonjour

je dispose d un fichier excel 2003 dont certaines pages commencent par "P_", je voudrais si possible que
dans un userform il m'afficher la liste de ces pages ( sous form de textbox ,dont le nombre peut etre
variable avec à coté une combobox .. est ce possible? merci.











Avatar
Jacky
Re...
En exemple simple ici
http://cjoint.com/?BJimxaYa01w

--
Salutations
JJ


"Jacky" a écrit dans le message de news: k4u7nr$tor$
Re...
Une piste...
'-------------
Private Sub UserForm_Initialize()
x = 50
For Each sh In ThisWorkbook.Worksheets
If UCase(Left(sh.Name, 1)) = "P" Then
Set obj = Me.Controls.Add("forms.TextBox.1")
Set Obj1 = Me.Controls.Add("forms.Combobox.1")
With obj
.Name = "Textbox" & sh.Name
.Object.Value = "Textbox" & sh.Name
.Left = 10
.Top = x
.Width = 60
.Height = 15
End With
With Obj1
.Name = "Combo" & sh.Name
.Object.Value = "Combo" & sh.Name
.Left = obj.Left + 10 + obj.Width
.Top = x
.Width = 70
.Height = 15
End With
x = x + obj.Height
End If
Next
End Sub
'-------------

--
Salutations
JJ


Avatar
stef b
Merci ca marche super bien

le seul hic si je peux me permettre c est si j ai plus de 25 feuilles
faudrait pouvoir decaler et ca je sais pas comment faire.


"Jacky" a écrit dans le message de news:
k4u7nr$tor$
Re...
Une piste...
'-------------
Private Sub UserForm_Initialize()
x = 50
For Each sh In ThisWorkbook.Worksheets
If UCase(Left(sh.Name, 1)) = "P" Then
Set obj = Me.Controls.Add("forms.TextBox.1")
Set Obj1 = Me.Controls.Add("forms.Combobox.1")
With obj
.Name = "Textbox" & sh.Name
.Object.Value = "Textbox" & sh.Name
.Left = 10
.Top = x
.Width = 60
.Height = 15
End With
With Obj1
.Name = "Combo" & sh.Name
.Object.Value = "Combo" & sh.Name
.Left = obj.Left + 10 + obj.Width
.Top = x
.Width = 70
.Height = 15
End With
x = x + obj.Height
End If
Next
End Sub
'-------------

--
Salutations
JJ


"stef b" a écrit dans le message de news:
50727fce$0$23473$

merci mais ce code je le connaissais deja , je voudrais qu'il m affiche
dans le userform autant de textbos et combobox que j ai de feuilles
commencant par "P_"
merci d'avance

"Jacky" a écrit dans le message de news:
k4rn2i$24c$
Bonjour,

Testé avec
1 userform comprenant:
1 textbox (TextBox1)
1 combobox (ComboBox1)
'------------
Private Sub UserForm_Initialize()
For Each sh In ThisWorkbook.Worksheets
If UCase(Left(sh.Name, 1)) = "P" Then
Me.TextBox1.Value = Me.TextBox1.Value & sh.Name & Chr(10)
Me.ComboBox1.AddItem sh.Name
End If
Next
End Sub
'--------------

--
Salutations
JJ


"stef b" a écrit dans le message de news:
507150b9$0$18072$
Bonjour

je dispose d un fichier excel 2003 dont certaines pages commencent par
"P_", je voudrais si possible que dans un userform il m'afficher la
liste de ces pages ( sous form de textbox ,dont le nombre peut etre
variable avec à coté une combobox .. est ce possible? merci.















Avatar
Jacky
Re..
... ca je sais pas comment faire.


Insérer un compteur dans la boucle (par exemple)

Voir ici
http://cjoint.com/?BJioEwgrv16
--
Salutations
JJ
Avatar
stef b
merci jacky ca marche super bien sauf que ce ne sont pas des
combobox mais 2 fois des textbox

ensuite j'essaie deseperemment de creer une textbox avec obligation de
saisie numérique
et lorsque je saisir par exemple 2.5 dans cette textbox toutes les textbox
créées en deuxieme colonne sont egales à 2.5.

merci d avance pour ton temps


"Jacky" a écrit dans le message de news:
k4uh29$l4c$
Re..
... ca je sais pas comment faire.


Insérer un compteur dans la boucle (par exemple)

Voir ici
http://cjoint.com/?BJioEwgrv16
--
Salutations
JJ



Avatar
Jacky
Re....
merci jacky ca marche super bien sauf que.......


Heu.......
Et si tu nous disais l'objectif de cette construction?
J'ai l'impression que l'on part sur une mauvaise piste.
--
Salutations
JJ


"stef b" a écrit dans le message de news:
5072cff7$0$21261$


merci jacky ca marche super bien sauf que ce ne sont pas des
combobox mais 2 fois des textbox

ensuite j'essaie deseperemment de creer une textbox avec obligation de saisie numérique
et lorsque je saisir par exemple 2.5 dans cette textbox toutes les textbox créées en deuxieme colonne sont
egales à 2.5.

merci d avance pour ton temps


"Jacky" a écrit dans le message de news: k4uh29$l4c$
Re..
... ca je sais pas comment faire.


Insérer un compteur dans la boucle (par exemple)

Voir ici
http://cjoint.com/?BJioEwgrv16
--
Salutations
JJ







Avatar
stef b
alors je reprends tout
je voudrais que le userform me reprenne toutes les feuilles commencant par
"P_" en label.
Ensuite en listbox ( deuxieme colonne du userform), il me reprenne la
valeur qui se trouve en "f1" de chaque feuille commencant par "P_".
Ensuite j aurais une textbox fixe en haut ( ou je dois saisir un chiffre) et
que dans une troisieme colonne du userform il me face, pour chaque piece, le
produit de ce textbox en haut avec chaque nombre se trouvant en deuxieme
colonne.

ai je été clair ?

merci beaucoup d'avance


"Jacky" a écrit dans le message de news:
k4ukf0$tj8$
Re....
merci jacky ca marche super bien sauf que.......


Heu.......
Et si tu nous disais l'objectif de cette construction?
J'ai l'impression que l'on part sur une mauvaise piste.
--
Salutations
JJ


"stef b" a écrit dans le message de news:
5072cff7$0$21261$


merci jacky ca marche super bien sauf que ce ne sont pas des
combobox mais 2 fois des textbox

ensuite j'essaie deseperemment de creer une textbox avec obligation de
saisie numérique
et lorsque je saisir par exemple 2.5 dans cette textbox toutes les
textbox créées en deuxieme colonne sont egales à 2.5.

merci d avance pour ton temps


"Jacky" a écrit dans le message de news:
k4uh29$l4c$
Re..
... ca je sais pas comment faire.


Insérer un compteur dans la boucle (par exemple)

Voir ici
http://cjoint.com/?BJioEwgrv16
--
Salutations
JJ











Avatar
Jacky
Re...
Quelque chose comme ceci
http://cjoint.com/?BJitQey4UqK

--
Salutations
JJ


"stef b" a écrit dans le message de news:
5072e928$0$21213$



alors je reprends tout
je voudrais que le userform me reprenne toutes les feuilles commencant par "P_" en label.
Ensuite en listbox ( deuxieme colonne du userform), il me reprenne la valeur qui se trouve en "f1" de
chaque feuille commencant par "P_".
Ensuite j aurais une textbox fixe en haut ( ou je dois saisir un chiffre) et que dans une troisieme colonne
du userform il me face, pour chaque piece, le produit de ce textbox en haut avec chaque nombre se trouvant
en deuxieme colonne.

ai je été clair ?

merci beaucoup d'avance


"Jacky" a écrit dans le message de news: k4ukf0$tj8$
Re....
merci jacky ca marche super bien sauf que.......


Heu.......
Et si tu nous disais l'objectif de cette construction?
J'ai l'impression que l'on part sur une mauvaise piste.
--
Salutations
JJ


"stef b" a écrit dans le message de news:
5072cff7$0$21261$


merci jacky ca marche super bien sauf que ce ne sont pas des
combobox mais 2 fois des textbox

ensuite j'essaie deseperemment de creer une textbox avec obligation de saisie numérique
et lorsque je saisir par exemple 2.5 dans cette textbox toutes les textbox créées en deuxieme colonne sont
egales à 2.5.

merci d avance pour ton temps


"Jacky" a écrit dans le message de news: k4uh29$l4c$
Re..
... ca je sais pas comment faire.


Insérer un compteur dans la boucle (par exemple)

Voir ici
http://cjoint.com/?BJioEwgrv16
--
Salutations
JJ















1 2