Création d'une Fonction

Version imprimable

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:

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:

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 8O
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

Bonjour,

Quelques remarques à la volée:
- Vous n'avez pas besoin d'une fonction puisque vous ne retournez rien .... Une Sub est suffisante
- Vous ne dimensionnez aucune de vos variables, aie aie: utilisez l'option explicit! Par défaut, tout est en variant
- VBA ne fait pas les mêmes conversions implicites qu'Excel
- sur quelle ligne votre code plante?

Code:

Set ctrl = UserForm1.Controls("ComboBox" & NumeroCB

Vous faites de la concaténation entre une chaine et un nombre, donc

Code:

Set ctrl = UserForm1.Controls("ComboBox" & CStr(NumeroCB)

me semble plus propre (non testé)

Exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ' General options Option Explicit ' Global variables Public Subname As String Sub show_wbk_share_mode() '============================================================================= ' Show this workbook shared mode Dim Sharedwbk As Boolean Dim MsgPrompt As String, usr_status As Variant, cnt_usr As Integer On Error GoTo Err_show_wbk_share_mode

bonjour,
je ne sais pas si j'ai bien compris!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function RemplissageCB(Feuille, ColonneNbLigne, ColonneSource, LigneDebut, NumeroCB)
Set ctrl = Me.Controls("ComboBox" & NumeroCB)
ctrl.Clear
DernLigne = Sheets(Feuille).Cells(Rows.Count, ColonneNbLigne).End(xlUp).Row
ctrl.List = Sheets(Feuille).Range(Sheets(Feuille).Cells(LigneDebut, ColonneSource), Sheets(Feuille).Cells(DernLigne, ColonneSource)).Value
ctrl.ListIndex = -1
End Function
 
Private Sub UserForm_Initialize()
RemplissageCB "Feuil1", 1, "A", 3, 1
RemplissageCB "Feuil1", 1, 2, 3, 1
End Sub

En procédant comme vous me l'avez indiqué (déclaration des variables), ça fonctionne parfaitement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RemplissageCB(Feuille, ColonneNbLigne, ColonneSource, LigneDebut, NumeroCB)
Dim ctrl As Object
Dim Dernligne, i As Integer
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 Sub

Merci beaucoup

Comme dit vinc_bilb :

Citation:

- Vous ne dimensionnez aucune de vos variables, aie aie: utilisez l'option explicit! Par défaut, tout est en variant
Code:

1 2 3 4 5 6 7 Set ctrl = UserForm1.Controls("ComboBox" & NumeroCB) 'ctrl est une variable de type objet For i = LigneDebut To DernLigne ctrl = Sheets(Feuille).Range(ColonneSource & i) ' ctrl est devient une simple variable de type String ou Double. Ce n'est plus un objet If ctrl.ListIndex = -1 Then ' Erreur car ctrl n'a plus de propriete ListIndex
Il faut écrire ctrl.Text pour éviter toute confusion en attribuant la valeur à la propriété TEXT et non à la variable elle-même.

Code:

ctrl.Text = Sheets(Feuille).Range(ColonneSource & i)

Super!

Mon commentaire sur le dimensionnement s'applique également aux paramètres de la sub ou de la fonction, par exemple

Code:

Sub RemplissageCB(Feuille As String, ColonneNbLigne As Integer, ColonneSource As Integer, LigneDebut As Single, NumeroCB As Integer)

En plus, vous pouvez jouer avec les valeurs par défauts et les paramètres optionnels, comme ci-dessous, plus tester leur présence avec IsMissing
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub RefCheckScript() ' Check the scripting runtime reference is active for this project Call ReferencesCheck(RefName:="Microsoft scripting", DisplLogMsg:=True) End Sub Sub ReferencesCheck(Optional Wbk As Workbook, Optional RefName As String, Optional DisplLogMsg As Boolean = False) ' List the references attached to a workbook (this Workbook by default) Dim RefInd As Integer, FoundRef As Boolean Dim MsgHead As String, Msgtype As Variant 'Init If IsMissing(Wbk) Or (Wbk Is Nothing) Then Set Wbk = ThisWorkbook ' Parsding the project VBA references With Wbk.VBProject.References

02/12/2015, 10h21
Invité
Par défaut les variable sont variant, il peut être intéressant ne ne pas les typer (ou préciser As Variant) comme dans mon exemple précédant, le typage lui ferait planter le code!

mais pour l'obligation de déclarer ses variables oui!
Code:

1 2 RemplissageCB "Feuil1", 1, "A", 3, 1 RemplissageCB "Feuil1", 1, 2, 3, 1