Discussion :

[Tchebichef]

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

[vinc_bilb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

me semble plus propre (non testé)

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

Comme dit vinc_bilb :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vinc_bilb]

Super!

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tchebichef]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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