Création d'une boucle pour remplissage de plusieurs combobox

Question

Bonjour,

j'essaye de créer une boucle me permettant de remplir plusieurs combobox avec les même données,

Etant novice en vba je n'arrive pas à trouver la bonne syntaxe,

Merci d'avance pour vote aide

jrivet · Answer

Salut,

Dim i As Integer

For i = 1 To 15
   Call NomCombo1.AddItem("Item " & CStr(i))
   Call NomCombo2.AddItem("Item " & CStr(i))
   Call NomCombo3.AddItem("Item " & CStr(i))
Next
, ----
[../code.aspx?ID=41455 By Renfield]

Si c'est pas cela soit un peu plus précis dans l'énoncé de ton problème.

@+: Ju£i€n
Pensez: Réponse acceptée

dedenet2 · Answer

Salut ,
Tes combobox doivent être nommés dans un certain ordre.
le 1èr:ComboBox1 , le 2ème:ComboBox2 ,.......etc
-----------------------------------------------------------------------
Dim c
Dim i
For Each c In UserForm1.Controls
    If c.Name Like "ComboBox*" Then
        i = i + 1
        Me.Controls("ComboBox" & i).Value = "Text"
    End If
Next
---------------------------------------------------------------------------
Je ne sais pas si ça peut te convenir
Bonsoir

cedricbollini · Answer

Bonjour,

Merci à vous 2 pour vos réponse,

la solution de dedenet2 me convient parfaitement

jrivet · Answer

Salut,
Si tu estimes que ton problème est résolu, penses à appuyer sur réponse acceptée sur le OU les posts qui t'ont aider à avancer.

@+: Ju£i€n
Pensez: Réponse acceptée

dedenet2 · Answer

Bonjour à tous ,
L'avantage pour celui qui propose une solution découvre aussi une autre
possibilité de programmation.
L'avantage pour celui qui demande de l'aide , c'est qu'il peut avoir
plusieurs possibilites.
Cedricbollini, pense a ce que dit jrivet.
A++

Création d'une boucle pour remplissage de plusieurs combobox

5 réponses

Votre réponse

Discussions similaires