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 :
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
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
A l'exécution j'ai une erreur 424 Objet requis.
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
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
Partager