Remplir combobox

Le
Jacques
Bonjour,

J'ai plusieurs Combobox qui doivent contenir la même liste.

cbo_a, cbo_B, cbo_C, , cbo_M

Comment alimenter toutes ces listes ?

J'ai essayé ceci mais sans succés :-(
Merci de vos réponses

Jacques

Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox

For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo

With CboCtrl
.AddItem "Coucou"
End With

Next
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5180761
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" %
Bonjour,

J'ai plusieurs Combobox qui doivent contenir la même liste.

cbo_a, cbo_B, cbo_C, ..., cbo_M

Comment alimenter toutes ces listes ?

J'ai essayé ceci mais sans succés :-(
Merci de vos réponses

Jacques

Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox

For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo

With CboCtrl
.AddItem "Coucou"
End With

Next





Jacques
Le #5180751
Bonjour,

Sur un UserForm

Merci

"Daniel.C" news:
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" %
Bonjour,

J'ai plusieurs Combobox qui doivent contenir la même liste.

cbo_a, cbo_B, cbo_C, ..., cbo_M

Comment alimenter toutes ces listes ?

J'ai essayé ceci mais sans succés :-(
Merci de vos réponses

Jacques

Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox

For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo

With CboCtrl
.AddItem "Coucou"
End With

Next









Daniel.C
Le #5180731
For Each cell In [A1:A10]
For Each ctrl In Me.Controls
If Left(ctrl.Name, 4) = "cbo_" Then
ctrl.AddItem cell.Value
End If
Next ctrl
Next
Daniel
"Jacques" %
Bonjour,

Sur un UserForm

Merci

"Daniel.C" news:
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" %
Bonjour,

J'ai plusieurs Combobox qui doivent contenir la même liste.

cbo_a, cbo_B, cbo_C, ..., cbo_M

Comment alimenter toutes ces listes ?

J'ai essayé ceci mais sans succés :-(
Merci de vos réponses

Jacques

Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox

For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo

With CboCtrl
.AddItem "Coucou"
End With

Next













Xavier powaga
Le #5180701
Suivant la technique de Daniel. C voici une autre version

A = [A1:A10]
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is ComboBox Then Ctrl.List = A
Next Ctrl

"Daniel.C"
For Each cell In [A1:A10]
For Each ctrl In Me.Controls
If Left(ctrl.Name, 4) = "cbo_" Then
ctrl.AddItem cell.Value
End If
Next ctrl
Next
Daniel
"Jacques" %
Bonjour,

Sur un UserForm

Merci

"Daniel.C" news:
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" %
Bonjour,

J'ai plusieurs Combobox qui doivent contenir la même liste.

cbo_a, cbo_B, cbo_C, ..., cbo_M

Comment alimenter toutes ces listes ?

J'ai essayé ceci mais sans succés :-(
Merci de vos réponses

Jacques

Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox

For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo

With CboCtrl
.AddItem "Coucou"
End With

Next

















Publicité
Poster une réponse
Anonyme