Bonjour à tous,
J'ai un soucis dans la création d'une fonction.
Je suis entrain d'écrire un projet où je dois remplir pas mal de combobox. Du coup, j'aimerais me lancer dans la rédaction d'une fonction pour alléger le code.
J'ai donc écris la fonction suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function RemplissageCB(Feuille, ColonneNbLigne, ColonneSource, LigneDebut, NumeroCB)
Set ctrl = UserForm1.Controls("ComboBox" & NumeroCB)
DernLigne = Sheets(Feuille).Range(ColonneNbLigne & Rows.Count).End(xlUp).Row
For i = LigneDebut To DernLigne
    ctrl = Sheets(Feuille).Range(ColonneSource & i)
        If ctrl.ListIndex = -1 And ctrl <> "" Then
            ctrl.AddItem Sheets(Feuille).Range(ColonneSource & i)
        End If
Next i
ctrl.ListIndex = -1
End Function
J'appelle la fonction de la manière suivante dans mon userform à l'initialisation :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub UserForm_Initialize()
 
Call RemplissageCB("NumHCC", "A", "A", 2, 3)
 
End Sub
A l'exécution j'ai une erreur 424 Objet requis.
Je ne comprends pas d'où ça peut venir
Lorsque j'exécute le code "en dur" c'est à dire en remplaçant les variables par leur valeur, ça fonctionne.

D'avance merci pour votre aide.

Bonne journée