Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel 10 COMBOBOX et 1 listing

10 COMBOBOX et 1 listing

21 réponses
Avatar
GARAULT
Bonjours

Mon problème est expliqué dans le lien suivant.

merci

http://cjoint.com/?eepNeqUWQH
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
garnote
Bonjour à nouveau,

Au lieu d'écrire ton imposante liste dans le code,
tu pourrais la mettre, par exemple, dans la plage
A1:A102 et en récupérer une partie dans ton code :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = [A1:A102]
n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 6
With Controls("ComboBox" & n(i))
For j = 1 To 13
.AddItem liste(j, 1)
Next j
End With
Next i
End Sub

Serge

























"GARAULT" a écrit dans le message de news:

alors pourquoi cette formule bog ? elle est juste non ,

http://cjoint.com/?efoZiWyQRn




Bonjour,

Au Québec, les instructions de JB et Gilles
fonctionnent correctement.

Serge

"GARAULT" a écrit dans le message de news:

oui mais moi le "Me" me cause probléme, sa bug, il reconnait pas cette
fonction..


Private Sub UserForm_Initialize()
For Each c In Array(29, 4, 6, 7)
Me("ComboBox" & c).List = Array("aa", "bb", "cc")
Next c
End Sub

JB




On 4 avr, 20:20, "garnote" wrote:
Salut Garault,

Grâce à la réponse de Garette (04//04/2007 13:44)
je peux te proposer une solution :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = Array("BUTEE DE PORTE", "Butée de porte basse", _
"Butée de porte haute", "Butée de porte lourde au sol")
n = Array(4, 6, 7, 8, 9, 13, 29)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 3
.AddItem liste(j)
Next j
End With
Next i
End Sub

Garneau

"GARAULT" a écrit dans le message de news:




Bonjours

Mon problème est expliqué dans le lien suivant.

merci

http://cjoint.com/?eepNeqUWQH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -

















Avatar
GARAULT
non sa viens pas de la ...........


Bonjour,

Je crois que c'est la boucle i qui cause problème.
For i = 0 To 7 à remplacer par :
For i = 0 to 6

Serge

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste=array(...............)
n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 13
.AddItem liste(j)
Next j
End With
Next i
End Sub



"GARAULT" a écrit dans le message de news:

alors pourquoi cette formule bog ? elle est juste non ,

http://cjoint.com/?efoZiWyQRn




Bonjour,

Au Québec, les instructions de JB et Gilles
fonctionnent correctement.

Serge

"GARAULT" a écrit dans le message de news:

oui mais moi le "Me" me cause probléme, sa bug, il reconnait pas cette
fonction..


Private Sub UserForm_Initialize()
For Each c In Array(29, 4, 6, 7)
Me("ComboBox" & c).List = Array("aa", "bb", "cc")
Next c
End Sub

JB




On 4 avr, 20:20, "garnote" wrote:
Salut Garault,

Grâce à la réponse de Garette (04//04/2007 13:44)
je peux te proposer une solution :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = Array("BUTEE DE PORTE", "Butée de porte basse", _
"Butée de porte haute", "Butée de porte lourde au sol")
n = Array(4, 6, 7, 8, 9, 13, 29)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 3
.AddItem liste(j)
Next j
End With
Next i
End Sub

Garneau

"GARAULT" a écrit dans le message de news:




Bonjours

Mon problème est expliqué dans le lien suivant.

merci

http://cjoint.com/?eepNeqUWQH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -






















Avatar
GARAULT
oui mais sa fais une erreure code 9

http://cjoint.com/?efqdMwpOFa



| alors pourquoi cette formule bog ? elle est juste non ,

*** Laisse le temps à garnote de prendre sa petite bière ...

n = Array(29, 4, 6, 7, 8, 9, 13)
Dans "array", tu as le numéro des index des différents contrôles
contenus dans ton formulaire...si ces contrôles n'existent pas ...
Combobox29 , combobox4 , combobox6 .... etc évidemment
la procédure va planter à toi d'y voir !

n = Array(29, 4, 6, 7, 8, 9, 13)
Comme ton exemple contient plutôt une liste à être affiché
dans un combobox

Comme ton array contient plutôt ceci :
liste = Array("BUTEE DE PORTE", "Butée de porte basse", "Butée de porte haute", "Butée de porte
lourde au sol", "Butée de porte lourde en plinthes", "", "PAUMELLES SUP", "Paumelles
supplémentaire", "", "POIGNEES", "KIT Bâton Maréchal 1 Uni", "KIT Bâton Maréchal 1 Paire", "KIT
Poignées demie-lune alu", "KIT Poignées demie-lune pvc", "Poignées demie-lune pvc paire", "",
"ANTI-PINCES DOIGTS", "KIT Anti-pinces doigts souple", "KIT Anti-pinces doigts mi-dur", "KIT
Anti-pinces doigts dur", "", "CREMONE POMPIER", "Crémone Pompier Alu", "Crémone Pompier Blanc",
"Crémone Pompier Noir", "", "FERME PORTE", "Ferme porte DORMA TS93", "Ferme porte DORMA TS92",
"Selecteur de fermeture", "", "BARRE ANTI-PANIQUE", "Barre Anti-Panique 1 point Série 89", "Barre
Anti-Panique 2 points haut et bas Série 89", "Barre Anti-Panique 3 points Série 89", "Manoeuvre ext
Béquille", _
"Manoeuvre ext Rotative", "Manoeuvre ext Bouton", "Manoeuvre ext Poignée fixe", "Barre Anti-Panique
1 point Argent", "Barre Anti-Panique 1 point Blanc", "Barre Anti-Panique 1 point Noir", "Barre
Anti-Panique 2 points Argent", "Barre Anti-Panique 2 points Blanc", "Barre Anti-Panique 2 points
Noir", "Barre Anti-Panique 3 points Argent", "Barre Anti-Panique 3 points Blanc", "Barre
Anti-Panique 3 points Noir", "", "PUCH ANTI-PANIQUE", "Puch Anti-Panique 1 point Série 90-900mm",
"Puch Anti-Panique 1 point Série 90-1200mm", "Puch Anti-Panique 2 points haut et bas Série 90",
"Puch Anti-Panique 1 point Argent", _
"Puch Anti-Panique 1 point Blanc", "Puch Anti-Panique 1 point Noir", "Puch Anti-Panique 2 points
Argent", "Puch Anti-Panique 2 points Blanc", "Puch Anti-Panique 2 points Noir", "", "PIVOT DE SOL",
"KIT pivot de sol", "KIT pivot de sol arrêt 90°", "", "FERME IMPOSTE", _
"KIT Ferme imposte levier strandard", "KIT Ferme imposte manivelle strandard", "KIT Ferme imposte
levier grande longueur", "KIT Ferme imposte manivelle grande longueur", "", "VENTOUSE", "ventouse
électro 300 kg en applique", "ventouse électro 500 kg en applique", "ventouse électro + plaque 300
kg encastrée", "Gaine flexible", "", "GACHE", "Gache electrique 12V emmission av tetiere", "Gache
electrique 12V rupture av tetiere", "Gache electrique 48V av tetiere", "Gache electrique 12V
emmission av tetiere + flexible", "Gache electrique 12V rupture av tetiere + flexible", "Gache
electrique 48V av tetiere + flexible", "Alimentation secourue 12V", "", "GALVA", "Appuis galva",
"Cornière 1pl 100/100", "Cornière 1pl 50/50", "", "COMPENSSATEUR", "Compenssateur bois 25*25",
"Compenssateur bois 50*50", "Compenssateur rupture therm. 50*50", "", "MUR RIDEAU", "TU & JJ",
"Renfort pour 7408", "Renfort pour 7407", "Renfort pour 7406", "Renfort pour 7405", "Renfort pour
7404", "Renfort pour 7403")

Si tu désires affiché cela dans un combobox, tu devras faire ceci :

With ComboBox1
.ColumnCount = 1
.ColumnWidths = "70"
.List = Application.Transpose(Liste)
End With

Et si tu en as plusieurs contrôles "combobox"

n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 7
With Controls("ComboBox" & n(i))
.ColumnCount = 1
.ColumnWidths = "70"
.List = Application.Transpose(Liste)
End With
Next i







Avatar
garnote
Un exemple à cette adresse :
http://cjoint.com/?efqpJybC0H

Serge



"GARAULT" a écrit dans le message de news:
non sa viens pas de la ...........


Bonjour,

Je crois que c'est la boucle i qui cause problème.
For i = 0 To 7 à remplacer par :
For i = 0 to 6

Serge

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste=array(...............)
n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 13
.AddItem liste(j)
Next j
End With
Next i
End Sub



"GARAULT" a écrit dans le message de news:


alors pourquoi cette formule bog ? elle est juste non ,

http://cjoint.com/?efoZiWyQRn




Bonjour,

Au Québec, les instructions de JB et Gilles
fonctionnent correctement.

Serge

"GARAULT" a écrit dans le message de news:

oui mais moi le "Me" me cause probléme, sa bug, il reconnait pas cette
fonction..


Private Sub UserForm_Initialize()
For Each c In Array(29, 4, 6, 7)
Me("ComboBox" & c).List = Array("aa", "bb", "cc")
Next c
End Sub

JB




On 4 avr, 20:20, "garnote" wrote:
Salut Garault,

Grâce à la réponse de Garette (04//04/2007 13:44)
je peux te proposer une solution :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = Array("BUTEE DE PORTE", "Butée de porte basse", _
"Butée de porte haute", "Butée de porte lourde au sol")
n = Array(4, 6, 7, 8, 9, 13, 29)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 3
.AddItem liste(j)
Next j
End With
Next i
End Sub

Garneau

"GARAULT" a écrit dans le message de news:




Bonjours

Mon problème est expliqué dans le lien suivant.

merci

http://cjoint.com/?eepNeqUWQH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -
























Avatar
MichDenis
Utilise plutôt une boucle comme ceci pour boucler sur tous les éléments de tableau (array)

For Each elt In n
With Me.Controls("ComboBox" & elt)
'Etc


end with
Next



"GARAULT" a écrit dans le message de news:


oui mais sa fais une erreure code 9

http://cjoint.com/?efqdMwpOFa



| alors pourquoi cette formule bog ? elle est juste non ,

*** Laisse le temps à garnote de prendre sa petite bière ...

n = Array(29, 4, 6, 7, 8, 9, 13)
Dans "array", tu as le numéro des index des différents contrôles
contenus dans ton formulaire...si ces contrôles n'existent pas ...
Combobox29 , combobox4 , combobox6 .... etc évidemment
la procédure va planter à toi d'y voir !

n = Array(29, 4, 6, 7, 8, 9, 13)
Comme ton exemple contient plutôt une liste à être affiché
dans un combobox

Comme ton array contient plutôt ceci :
liste = Array("BUTEE DE PORTE", "Butée de porte basse", "Butée de porte haute", "Butée de porte
lourde au sol", "Butée de porte lourde en plinthes", "", "PAUMELLES SUP", "Paumelles
supplémentaire", "", "POIGNEES", "KIT Bâton Maréchal 1 Uni", "KIT Bâton Maréchal 1 Paire", "KIT
Poignées demie-lune alu", "KIT Poignées demie-lune pvc", "Poignées demie-lune pvc paire", "",
"ANTI-PINCES DOIGTS", "KIT Anti-pinces doigts souple", "KIT Anti-pinces doigts mi-dur", "KIT
Anti-pinces doigts dur", "", "CREMONE POMPIER", "Crémone Pompier Alu", "Crémone Pompier Blanc",
"Crémone Pompier Noir", "", "FERME PORTE", "Ferme porte DORMA TS93", "Ferme porte DORMA TS92",
"Selecteur de fermeture", "", "BARRE ANTI-PANIQUE", "Barre Anti-Panique 1 point Série 89", "Barre
Anti-Panique 2 points haut et bas Série 89", "Barre Anti-Panique 3 points Série 89", "Manoeuvre
ext
Béquille", _
"Manoeuvre ext Rotative", "Manoeuvre ext Bouton", "Manoeuvre ext Poignée fixe", "Barre
Anti-Panique
1 point Argent", "Barre Anti-Panique 1 point Blanc", "Barre Anti-Panique 1 point Noir", "Barre
Anti-Panique 2 points Argent", "Barre Anti-Panique 2 points Blanc", "Barre Anti-Panique 2 points
Noir", "Barre Anti-Panique 3 points Argent", "Barre Anti-Panique 3 points Blanc", "Barre
Anti-Panique 3 points Noir", "", "PUCH ANTI-PANIQUE", "Puch Anti-Panique 1 point Série 90-900mm",
"Puch Anti-Panique 1 point Série 90-1200mm", "Puch Anti-Panique 2 points haut et bas Série 90",
"Puch Anti-Panique 1 point Argent", _
"Puch Anti-Panique 1 point Blanc", "Puch Anti-Panique 1 point Noir", "Puch Anti-Panique 2 points
Argent", "Puch Anti-Panique 2 points Blanc", "Puch Anti-Panique 2 points Noir", "", "PIVOT DE
SOL",
"KIT pivot de sol", "KIT pivot de sol arrêt 90°", "", "FERME IMPOSTE", _
"KIT Ferme imposte levier strandard", "KIT Ferme imposte manivelle strandard", "KIT Ferme imposte
levier grande longueur", "KIT Ferme imposte manivelle grande longueur", "", "VENTOUSE", "ventouse
électro 300 kg en applique", "ventouse électro 500 kg en applique", "ventouse électro + plaque 300
kg encastrée", "Gaine flexible", "", "GACHE", "Gache electrique 12V emmission av tetiere", "Gache
electrique 12V rupture av tetiere", "Gache electrique 48V av tetiere", "Gache electrique 12V
emmission av tetiere + flexible", "Gache electrique 12V rupture av tetiere + flexible", "Gache
electrique 48V av tetiere + flexible", "Alimentation secourue 12V", "", "GALVA", "Appuis galva",
"Cornière 1pl 100/100", "Cornière 1pl 50/50", "", "COMPENSSATEUR", "Compenssateur bois 25*25",
"Compenssateur bois 50*50", "Compenssateur rupture therm. 50*50", "", "MUR RIDEAU", "TU & JJ",
"Renfort pour 7408", "Renfort pour 7407", "Renfort pour 7406", "Renfort pour 7405", "Renfort pour
7404", "Renfort pour 7403")

Si tu désires affiché cela dans un combobox, tu devras faire ceci :

With ComboBox1
.ColumnCount = 1
.ColumnWidths = "70"
.List = Application.Transpose(Liste)
End With

Et si tu en as plusieurs contrôles "combobox"

n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 7
With Controls("ComboBox" & n(i))
.ColumnCount = 1
.ColumnWidths = "70"
.List = Application.Transpose(Liste)
End With
Next i







Avatar
garnote
*** Laisse le temps à garnote de prendre sa petite bière ...

Il est un tout petit peu trop tôt mais ça viendra ;-)

Moé
Avatar
GARAULT
bonne idée mais ou j'indique la feuil sur laquelle sera ma liste ?


Bonjour à nouveau,

Au lieu d'écrire ton imposante liste dans le code,
tu pourrais la mettre, par exemple, dans la plage
A1:A102 et en récupérer une partie dans ton code :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = [A1:A102]
n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 6
With Controls("ComboBox" & n(i))
For j = 1 To 13
.AddItem liste(j, 1)
Next j
End With
Next i
End Sub

Serge

























"GARAULT" a écrit dans le message de news:

alors pourquoi cette formule bog ? elle est juste non ,

http://cjoint.com/?efoZiWyQRn




Bonjour,

Au Québec, les instructions de JB et Gilles
fonctionnent correctement.

Serge

"GARAULT" a écrit dans le message de news:

oui mais moi le "Me" me cause probléme, sa bug, il reconnait pas cette
fonction..


Private Sub UserForm_Initialize()
For Each c In Array(29, 4, 6, 7)
Me("ComboBox" & c).List = Array("aa", "bb", "cc")
Next c
End Sub

JB




On 4 avr, 20:20, "garnote" wrote:
Salut Garault,

Grâce à la réponse de Garette (04//04/2007 13:44)
je peux te proposer une solution :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = Array("BUTEE DE PORTE", "Butée de porte basse", _
"Butée de porte haute", "Butée de porte lourde au sol")
n = Array(4, 6, 7, 8, 9, 13, 29)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 3
.AddItem liste(j)
Next j
End With
Next i
End Sub

Garneau

"GARAULT" a écrit dans le message de news:




Bonjours

Mon problème est expliqué dans le lien suivant.

merci

http://cjoint.com/?eepNeqUWQH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -






















Avatar
garnote
Un exemple :

Sub Choix()
Dim liste
liste = Sheets("Feuil2").Range("A1:A20")
MsgBox liste(10, 1)
End Sub

Serge


"GARAULT" a écrit dans le message de news:
bonne idée mais ou j'indique la feuil sur laquelle sera ma liste ?


Bonjour à nouveau,

Au lieu d'écrire ton imposante liste dans le code,
tu pourrais la mettre, par exemple, dans la plage
A1:A102 et en récupérer une partie dans ton code :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = [A1:A102]
n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 6
With Controls("ComboBox" & n(i))
For j = 1 To 13
.AddItem liste(j, 1)
Next j
End With
Next i
End Sub

Serge

























"GARAULT" a écrit dans le message de news:


alors pourquoi cette formule bog ? elle est juste non ,

http://cjoint.com/?efoZiWyQRn




Bonjour,

Au Québec, les instructions de JB et Gilles
fonctionnent correctement.

Serge

"GARAULT" a écrit dans le message de news:

oui mais moi le "Me" me cause probléme, sa bug, il reconnait pas cette
fonction..


Private Sub UserForm_Initialize()
For Each c In Array(29, 4, 6, 7)
Me("ComboBox" & c).List = Array("aa", "bb", "cc")
Next c
End Sub

JB




On 4 avr, 20:20, "garnote" wrote:
Salut Garault,

Grâce à la réponse de Garette (04//04/2007 13:44)
je peux te proposer une solution :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = Array("BUTEE DE PORTE", "Butée de porte basse", _
"Butée de porte haute", "Butée de porte lourde au sol")
n = Array(4, 6, 7, 8, 9, 13, 29)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 3
.AddItem liste(j)
Next j
End With
Next i
End Sub

Garneau

"GARAULT" a écrit dans le message de news:




Bonjours

Mon problème est expliqué dans le lien suivant.

merci

http://cjoint.com/?eepNeqUWQH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -
























Avatar
lSteph
Bonjour,
...

en complément:
'...
Select case elt
case is 29, 4, 6, 7, 8, 9, 13
.List = Liste
end select.
'....

;-)

lSteph




On 5 avr, 16:27, "MichDenis" wrote:
Utilise plutôt une boucle comme ceci pour boucler sur tous les élém ents de tableau (array)

For Each elt In n
With Me.Controls("ComboBox" & elt)
'Etc

end with
Next

"GARAULT" a écrit dans le message d e news:


oui mais sa fais une erreure code 9

http://cjoint.com/?efqdMwpOFa




| alors pourquoi cette formule bog ? elle est juste non ,

*** Laisse le temps à garnote de prendre sa petite bière ...

n = Array(29, 4, 6, 7, 8, 9, 13)
Dans "array", tu as le numéro des index des différents contrôles
contenus dans ton formulaire...si ces contrôles n'existent pas ...
Combobox29 , combobox4 , combobox6 .... etc évidemment
la procédure va planter à toi d'y voir !

n = Array(29, 4, 6, 7, 8, 9, 13)
Comme ton exemple contient plutôt une liste à être affiché
dans un combobox

Comme ton array contient plutôt ceci :
liste = Array("BUTEE DE PORTE", "Butée de porte basse", "Butée de porte haute", "Butée de porte
lourde au sol", "Butée de porte lourde en plinthes", "", "PAUMELLES S UP", "Paumelles
supplémentaire", "", "POIGNEES", "KIT Bâton Maréchal 1 Uni", "KIT Bâton Maréchal 1 Paire", "KIT
Poignées demie-lune alu", "KIT Poignées demie-lune pvc", "Poignée s demie-lune pvc paire", "",
"ANTI-PINCES DOIGTS", "KIT Anti-pinces doigts souple", "KIT Anti-pinces doigts mi-dur", "KIT
Anti-pinces doigts dur", "", "CREMONE POMPIER", "Crémone Pompier Alu" , "Crémone Pompier Blanc",
"Crémone Pompier Noir", "", "FERME PORTE", "Ferme porte DORMA TS93", "Ferme porte DORMA TS92",
"Selecteur de fermeture", "", "BARRE ANTI-PANIQUE", "Barre Anti-Panique 1 point Série 89", "Barre
Anti-Panique 2 points haut et bas Série 89", "Barre Anti-Panique 3 po ints Série 89", "Manoeuvre
ext
Béquille", _
"Manoeuvre ext Rotative", "Manoeuvre ext Bouton", "Manoeuvre ext Poign ée fixe", "Barre
Anti-Panique
1 point Argent", "Barre Anti-Panique 1 point Blanc", "Barre Anti-Paniqu e 1 point Noir", "Barre
Anti-Panique 2 points Argent", "Barre Anti-Panique 2 points Blanc", "Ba rre Anti-Panique 2 points
Noir", "Barre Anti-Panique 3 points Argent", "Barre Anti-Panique 3 poin ts Blanc", "Barre
Anti-Panique 3 points Noir", "", "PUCH ANTI-PANIQUE", "Puch Anti-Paniqu e 1 point Série 90-900mm",
"Puch Anti-Panique 1 point Série 90-1200mm", "Puch Anti-Panique 2 poi nts haut et bas Série 90",
"Puch Anti-Panique 1 point Argent", _
"Puch Anti-Panique 1 point Blanc", "Puch Anti-Panique 1 point Noir", "P uch Anti-Panique 2 points
Argent", "Puch Anti-Panique 2 points Blanc", "Puch Anti-Panique 2 point s Noir", "", "PIVOT DE
SOL",
"KIT pivot de sol", "KIT pivot de sol arrêt 90°", "", "FERME IMPOST E", _
"KIT Ferme imposte levier strandard", "KIT Ferme imposte manivelle stra ndard", "KIT Ferme imposte
levier grande longueur", "KIT Ferme imposte manivelle grande longueur", "", "VENTOUSE", "ventouse
électro 300 kg en applique", "ventouse électro 500 kg en applique", "ventouse électro + plaque 300
kg encastrée", "Gaine flexible", "", "GACHE", "Gache electrique 12V e mmission av tetiere", "Gache
electrique 12V rupture av tetiere", "Gache electrique 48V av tetiere", "Gache electrique 12V
emmission av tetiere + flexible", "Gache electrique 12V rupture av teti ere + flexible", "Gache
electrique 48V av tetiere + flexible", "Alimentation secourue 12V", "", "GALVA", "Appuis galva",
"Cornière 1pl 100/100", "Cornière 1pl 50/50", "", "COMPENSSATEUR", "Compenssateur bois 25*25",
"Compenssateur bois 50*50", "Compenssateur rupture therm. 50*50", "", " MUR RIDEAU", "TU & JJ",
"Renfort pour 7408", "Renfort pour 7407", "Renfort pour 7406", "Renfort pour 7405", "Renfort pour
7404", "Renfort pour 7403")

Si tu désires affiché cela dans un combobox, tu devras faire ceci :

With ComboBox1
.ColumnCount = 1
.ColumnWidths = "70"
.List = Application.Transpose(Liste)
End With

Et si tu en as plusieurs contrôles "combobox"

n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 7
With Controls("ComboBox" & n(i))
.ColumnCount = 1
.ColumnWidths = "70"
.List = Application.Transpose(Liste)
End With
Next i




Avatar
garnote
Pour le plaisir et en m'inpirant de JB, plus court :

Private Sub UserForm_Initialize()
Dim liste, n
Dim i As Integer
liste = Sheets("Feuil1").[A1:A102]
For Each n In Array(4, 6, 7, 8, 9, 13, 29)
For i = 1 To 13
Me("ComboBox" & n).AddItem liste(i, 1)
Next i
Next n
End Sub

Serge



"garnote" a écrit dans le message de news:
Bonjour à nouveau,

Au lieu d'écrire ton imposante liste dans le code,
tu pourrais la mettre, par exemple, dans la plage
A1:A102 et en récupérer une partie dans ton code :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = [A1:A102]
n = Array(29, 4, 6, 7, 8, 9, 13)
For i = 0 To 6
With Controls("ComboBox" & n(i))
For j = 1 To 13
.AddItem liste(j, 1)
Next j
End With
Next i
End Sub

Serge

























"GARAULT" a écrit dans le message de news:


alors pourquoi cette formule bog ? elle est juste non ,

http://cjoint.com/?efoZiWyQRn




Bonjour,

Au Québec, les instructions de JB et Gilles
fonctionnent correctement.

Serge

"GARAULT" a écrit dans le message de news:

oui mais moi le "Me" me cause probléme, sa bug, il reconnait pas cette
fonction..


Private Sub UserForm_Initialize()
For Each c In Array(29, 4, 6, 7)
Me("ComboBox" & c).List = Array("aa", "bb", "cc")
Next c
End Sub

JB




On 4 avr, 20:20, "garnote" wrote:
Salut Garault,

Grâce à la réponse de Garette (04//04/2007 13:44)
je peux te proposer une solution :

Private Sub UserForm_Initialize()
Dim n, liste
Dim i As Integer, j As Integer
liste = Array("BUTEE DE PORTE", "Butée de porte basse", _
"Butée de porte haute", "Butée de porte lourde au sol")
n = Array(4, 6, 7, 8, 9, 13, 29)
For i = 0 To 6
With Controls("ComboBox" & n(i)) 'Garette
For j = 0 To 3
.AddItem liste(j)
Next j
End With
Next i
End Sub

Garneau

"GARAULT" a écrit dans le message de news:




Bonjours

Mon problème est expliqué dans le lien suivant.

merci

http://cjoint.com/?eepNeqUWQH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -





















1 2 3