10 COMBOBOX et 1 listing

Le
GARAULT
Bonjours

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

merci

http://cjoint.com/?eepNeqUWQH
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
garnote
Le #4274081
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"
Bonjours

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

merci

http://cjoint.com/?eepNeqUWQH


JB
Le #4273811
Bonsoir,
On peut recopier une liste d'un combo dans une autre.

Private Sub UserForm_Initialize()
'--- premier combo
Me.ComboBox1.AddItem "aa"
Me.ComboBox1.AddItem "bb"
Me.ComboBox1.AddItem "cc"
'-- les autres
Me.ComboBox2.List = Me.ComboBox1.List
Me.ComboBox3.List = Me.ComboBox1.List
End Sub

JB


On 4 avr, 20:20, "garnote"
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"


Bonjours

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

merci

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


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



JB
Le #4271871
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"
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"


Bonjours

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

merci

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


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



garnote
Le #4271831
Ah ben ça alors !
Super.

Serge

"JB" 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"
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"



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 -



GARAULT
Le #4271581
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"
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"


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 -








Gilles MOUGNOZ
Le #4271491
Bonjour, Garault
Pas tout suivi mais, si cela fonctionne comme dans un formulaire Access,
essaie avec ceci:
Me.Controls("ComboBox" & c).List = Array("aa", "bb", "cc")
Enfin, je dis ça mais je n'y connais rien aux Userforms :-(
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
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
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 -








garnote
Le #4271411
Bonjour,

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

Serge

"GARAULT"
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"
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"



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 -










GARAULT
Le #4271401
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"
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"
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"



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 -















garnote
Le #4271341
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"

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"
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"
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"



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 -

















MichDenis
Le #4271331
| 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
Publicité
Poster une réponse
Anonyme