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
Fabien
Le #6348771
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



Salut

Essayes avec

Private Sub Form_Load()
Dim LC As Integer '
Dim NomCbo As String


For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & Chr(LC)
Me(NomCbo).RowSourceType = "Liste valeurs"

With Me(NomCbo)
.AddItem "Coucou"
End With

Next

End Sub

@+

Publicité
Poster une réponse
Anonyme