Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
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
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


Avatar
JB
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" 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 d e news:



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 -



Avatar
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" 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 d e news:



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 -



Avatar
garnote
Ah ben ça alors !
Super.

Serge

"JB" a écrit dans le message de news:
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 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
Gilles MOUGNOZ
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 -








Avatar
garnote
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
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
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
| 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
1 2 3