Boucle sur combobox

[GGPS58]

Re bonjour, c'est re moi avec re un problème.
J'ai un userform avec plusieurs combobox (voir fichier joint).
J'aimerais faire une boucle pour alimenter les combobox, mais j'ai un problème de syntaxe, je pense, est ce quelqu'un pourrait encore m'aider.
Je n'ai pas trouvé de fil qui puisse m'aider et mes diiférentes tentatives d'auto correction sont jusqu'à maintenant vaines.

Merci d'avance

 

[Spitnolan08]

Re : Boucle sur combobox

Bonjour,
essaie, mais je n'ai pas validé le foctionnement global de ta macro :

Private Sub UserForm_initialize()
Dim p As Range, MaPlage As Range
Dim x As New Collection
For i = 1 To 7
A = 4 * i
Controls("ComboBox" & A).Clear 
Set MaPlage = Sheets("Analyse").Range("h5:h" & Sheets("Analyse").Range("h65536").End(xlUp).Row)
For Each p In MaPlage
    On Error Resume Next
    x.Add p, CStr(p)
    If Err = 0 Then UserForm3.Controls("ComboBox" & A).AddItem (CStr(p)) 
    On Error GoTo 0
Next p
Next i
End Sub

Cordialement

 

[GGPS58]

Re : Boucle sur combobox

Merci de votre aide.
La première combobox se remplie maintenat correctement mais pas les suivantes ....
Si vous avez une idée ...
Je continue à chercher de mon coté.

 

[Pierrot93]

Re : Boucle sur combobox

Bonjour GGPS, Spitnolan

peut être en modifiant le code de comme ceci :

Private Sub UserForm_initialize()
Dim p As Range, MaPlage As Range
Dim x As New Collection
For i = 1 To 7
A = 4 * i
Controls("ComboBox" & A).Clear
Set x = Nothing
Set MaPlage = Sheets("Analyse").Range("h5:h" & Sheets("Analyse").Range("h65536").End(xlUp).Row)
For Each p In MaPlage
    On Error Resume Next
    x.Add p, CStr(p)
    If Err = 0 Then UserForm3.Controls("ComboBox" & A).AddItem (CStr(p))
    On Error GoTo 0
Next p
Next i
End Sub

il me semble avoir déjà vu ce code là quelque part...

bon après midi
@+

 

[GGPS58]

Re : Boucle sur combobox

Merci cela fonctionne !!!!!!🙂
Pour le code qu'il te semble avoir déjà vu .... ben il est tellement bien que j'en use énormément ...

Merci encore à tous les deux

 

[Pierrot93]

Re : Boucle sur combobox

Re

tu as raison, c'est fait pour ca😎 ... perso je l'aurais plutôt fait dans ce sens

Private Sub UserForm_initialize()
Dim p As Range, MaPlage As Range
Dim x As New Collection, y As Integer
Set MaPlage = Sheets("Analyse").Range("h5:h" & Sheets("Analyse").Range("h65536").End(xlUp).Row)
For Each p In MaPlage
    On Error Resume Next
    x.Add p, CStr(p)
    On Error GoTo 0
Next p

For i = 1 To 7
    A = 4 * i
    Controls("ComboBox" & A).Clear
    For y = 1 To x.Count
        UserForm3.Controls("ComboBox" & A).AddItem x.Item(y)
    Next y
Next i
End Sub

bon après midi