Appel fonction création combobox depuis un Private Sub UserForm_Initialize

Version imprimable

Bonjour,

Je voudrais faire appel à une fonction pour gérer plusieurs COMBOBOX similaires
Comme d'habitude ma requête est floue. Donc je vais mettre la procédure qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'Private Sub UserForm_Initialize()
'
'    Me.ComboExercice.Clear
'
'    With Worksheets(2)
'        For Each C In Range(Cells(DEBLIG + 4, DEBCOL + 5), Cells(DerLig, DEBCOL + 5).End(xlDown))
'            ComboExercice = C
'            If ComboExercice.ListIndex = -1 And ComboExercice <> "" Then ComboExercice.AddItem C
'        Next C
'    End With
'    On Error Resume Next
'
'    With ComboExercice
'        For i = 0 To .ListCount - 1
'            For j = 0 To .ListCount - 1
'                If .List(i) < .List(j) Then
'                    Temp = .List(i)
'                    .List(i) = .List(j)
'                    .List(j) = Temp
'                End If
'            Next j
'        Next i
'
'        .ListIndex = -1
'
'    End With
'
'End Sub

la fonction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function AppelForm(NomCombo, Colonne, Ligne)
 
    Me.Controls("Combo" & NomCombo).Clear
 
    With Worksheets(2)
        For Each C In Range(Cells(Ligne, Colonne), Cells(DerLig, Colonne).End(xlDown))
            Me.Controls("Combo" & NomCombo) = C
            If Me.Controls("Combo" & NomCombo).ListIndex = -1 And Me.Controls("Combo" & NomCombo) <> "" Then Me.Controls("Combo" & NomCombo).AddItem C
        Next C
    End With
    On Error Resume Next
 
    With Me.Controls("Combo" & NomCombo)
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then
                    Temp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = Temp
                End If
            Next j
        Next i
 
        .ListIndex = -1
 
    End With
 
End Function

et ce que je voudrais obtenir :

Code:

1
2
3
Private Sub UserForm_Initialize()
    Call AppelForm(Exercice, 6, 5)
End Sub

Exercice est le nom de ma combox box
6 est la colonne
5 est la ligne

lorsque je lance j'obtiens une erreur de compilation.....

07/10/2014, 15h20
Nico Chg

Bonjour,

Tu obtiens une erreur de compilation à quelle ligne ?
Il faut te mettre en mode pas à pas et avancer avec F8, sinon tu l'auras sur la ligne 2 de ta procédure.

Ensuite je te suggère de bannir On Error Resume Next qui ne fait que masquer les erreurs, et donc les problèmes de conceptions. (C'est un peu comme mettre un sparadrap sur une fracture ouverte, ça fait au mieux que de masquer le bazar)

Ensuite, lorsque tu appelle un Range, (et ton erreur vient peut être de la), tu dois écrire

Code:

.range(.cells(...))

et pas

Code:

range(cells(...))

Dans le premier cas, tu récupère le range et la cellule liée à ton "With Worksheets", dans le second cas, tu récupère le range de la feuille active.
08/10/2014, 08h29
franck87

Bonjour Nico Chg

J'obtiens une erreur de type :

Erreur de compilation
Utilisation du mot clé Me

Quand je rentre dans la fonction AppelForm.
08/10/2014, 09h22
Nico Chg

Bonjour,

Ce qui me laisse croire que ta fonction n'est pas dans un Userform, mais dans un module standard.
Essaie de déplacer ta fonction dans ton userform.
09/10/2014, 15h18
franck87

Bonjour,

Justement c'est ce que je veux éviter , cela me sert à rien si je dois mettre le code dans le userform.
Je veux pouvoir créer X userform en insérant juste dans le UserForm intialize l'appel à la fonction.

Franck 87

Et bien dans ce cas, n'utilise pas le Me ;)

Me. fait référence à l'objet dans lequel tu écris le code. Un module standard n'est pas un objet, donc Me ne référence rien du tout, d'ou ton erreur.

Je te suggère de modifier ta fonction pour inclure un argument supplémentaire, un Userform, qui va remplacer ton Me.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function AppelForm(NomCombo, Colonne, Ligne, UF as Userform)
 
    UF.Controls("Combo" & NomCombo).Clear
 
    With Worksheets(2)
        For Each C In Range(Cells(Ligne, Colonne), Cells(DerLig, Colonne).End(xlDown))
            UF.Controls("Combo" & NomCombo) = C
            If UF.Controls("Combo" & NomCombo).ListIndex = -1 And UF.Controls("Combo" & NomCombo) <> "" Then UF.Controls("Combo" & NomCombo).AddItem C
        Next C
    End With
 
'On Error Resume Next
'Cette ligne ne sert au mieux qu'a masquer les erreurs, un peu comme une autruche qui cache sa tête dans le sable
 
    With UF.Controls("Combo" & NomCombo)
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then
                    Temp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = Temp
                End If
            Next j
        Next i
 
        .ListIndex = -1
 
    End With
 
End Function

Code:

1
2
3
Private Sub UserForm_Initialize()
    Call AppelForm(Exercice, 6, 5, Me)
End Sub

10/10/2014, 08h24
franck87

ça fonctionne.....
Et là je dis RESPECT et MERCI à toi..Nico Chg
je ne connaissais pas le préfixe UF. à la place de Me
10/10/2014, 09h15
Nico Chg

Méfie toi, ce n'est pas un préfixe, mais un argument que j'ai déclaré dans la fonction, ça aurait pu être n'importe quoi !
10/10/2014, 14h01
franck87

D'accord pour l'argument.
Ce qui est dommageable c'est que je perds en rapidité de traitement.