Discussion :

[Vba14]

Bonjour à tous,

J'ai emprunté ce code à PatrickToulon et je l'en remercie. Ce code permet de supprimer les doublons d'un ComboBox
Toutefois je rencontre un problème avec le message suivant : "Variable non définie" sur la ligne en rouge.
Que n'ai-je pas bien fait ?
Merci pour vos réponses

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Me.Cmb_Fact.List = liste_sans_doublons("B6:B" & Range("B" & Rows.Count).End(xlUp).Row, "Feuil7")
Me.Labe_Info.Caption = Sheets(10).Range("D27").Value
End Sub

Private Function liste_sans_doublons(plage, Optional feuille As Variant = 1)
        Set D = CreateObject("Scripting.Dictionary")
    For Each Cel In Sheets("Ventes").Range("B6:B")
        D.Item(Cel.Value) = ""
    Next Cel
    liste_sans_doublons = D.keys
End Function

[a_diard]

Bonjour

Comme il te l'indique tu n'a pas déclaré tes variables


Tu peux supprimer Option Explicit pour tester

Puis je te conseille de le remettre Option Explicit et de déclarer tes variables.

[Vba14]

Bonjour a_diard,

Comment dois-déclarer cette variable, je suis un peu perdu !! Integer, Range, Variant, etc...

[MarcelG]

Bonsoir,

Si D est ton dictionnaire, alors
- Dans l'éditeur VBE, Menu Outils \ Références, cocher

Microsoft Scripting RunTime

- Dans la procédure,

Code :

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

Dim D as Scripting.Dictionary

Ce processus permet de saisir plus facilement les méthodes et propriétés inhérentes aux dictionnaires.

En fin de procédure,

Code :

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

1
2
3
4
'Pour vider le dictionnaire
D.RemoveAll
'Pour libérer la variable
Set D = Nothing

Pour te documenter sur les variables, tu peux consulter ce tutoriel

Bonne continuation.

[patricktoulon]

re
Bonjour Marcel

Code :

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

1
2
3
4
'Pour vider le dictionnaire
D.RemoveAll
'Pour libérer la variable
Set D = Nothing

je pense que

Code :

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

Set D=nothing

suffit a libérer l'espace la memoirealloué a D

[Vba14]

Merci beaucoup Marcel.
Je mets ça en place et je reviens vous dire quoi

[Vba14]

Alors voici le code que j'ai mis dans l'UF.
Pour la ligne en rouge j'ai le message suivant : "Type définit par l'utilisateur non définit"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Function liste_sans_doublons(plage, Optional feuille As Variant = 1)
Dim D As Scripting.Dictionary

        Set D = CreateObject("Scripting.Dictionary")
    For Each Cel In Sheets("Ventes").Range("B6:B")
        D.Item(Cel.Value) = ""
    Next Cel
    liste_sans_doublons = D.keys
    Set D = Nothing
End Function

Alors j'ai essayé ça : Mais j'ai un message d'erreur pour ce petit bout de code

Code :

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

1
2
3
4
 
Private Sub Cmb_Plus_Click()
UF_Livre.Show
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Function liste_sans_doublons(plage, Optional feuille As Variant = 1)
Dim D As ComboBox
Dim Cel As Variant
        Set D = CreateObject("Scripting.Dictionary")
    For Each Cel In Sheets("Ventes").Range("B6:B")
        D.Item(Cel.Value) = ""
    Next Cel
    liste_sans_doublons = D.keys
    Set D = Nothing
End Function