C'est la premiere fois que je touche à Vba et je bloque sur un point : recuperer la liste des valeurs distinctes d'une colonne pour les mettres dans une combo.
Quelqu'un aurais la solution ?
Re : VBA Excel : Recuperation des valeurs distinctes d'une colonne
Bonjour,
Code:
Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
Next c
Me.ComboBox1.List = MonDico.items
End Sub
Re : VBA Excel : Recuperation des valeurs distinctes d'une colonne
Merci ça fonctionne tres bien.
Mais j'aurais une autre question
En fais mon fichier excel contient plusieurs onglets que j'ai mis en dur dans une combo, et en fais cette recherche dans la colonne dois dependre de le choix qu'on a fais dans la combo.
En gros parce que je sens que je suis pas clair.
J'ai une combo avec des valeurs A, B, C qui correspondent à 3 onglets.
Et je veux effectuer la recherche sur A si j'ai choisi A, B si j'ai choisi B ...
J'ai essayé
Dim Feuille As String
Feuille = CB_ONGL
Sheets(Feuille).Activate
Mais ça me dit que l'indice n'appartient pas à la selection
Re : VBA Excel : Recuperation des valeurs distinctes d'une colonne
Desole j'ai simplement fais une erreur en recopiant les noms des onglets en dur dans la combo, normal qui ne trouve pas l'onglet correspondant.
j'ai une derniere question
Comment est ce que je pourrais recuperer la valeur d'une colonne mais de la derniere ligne ecrite du fichier et l'ecrire sur la ligne d'en dessous ?