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

1 réponse

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
GARAULT
merci sa marche


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