Discussion :

[zire478]

Bonjour,
Dans mon user form j'ai une liste déroulante "combobox" mais j'aimerais supprimer les doublons dans cette liste:



Comment faire cela ?

pour info cette liste s'ajoute dans ma base de données...il peu y avoir plusieurs fois le même item dans ma base de données mais pas dans la liste déroulante que propose le useform

BAV.
Olivier.

[patricktoulon]

bonsoir
c'est quoi la source des données ???
il faut etre plus precis et complet dans tes questions sinon c'est pas gagné

[zire478]

Voici les étapes:
* j'encode les données via un userform (combobox2) qui se répercutent dans ma bases de données (colonne L) après avoir enregistrer via un bouton de commande

cette combobox doit donc permettent l'encodage des items ainsi que des nouveaux item si pas encore dans la liste
mais doit aussi reprendre les items sans doublons.

[patricktoulon]

re
en aucun cas tu me montre comment tu remplis ta combobox, mais bon en voyant le tableau en bas a gauche j'en conclu que tes données sont en colonne "L" de la ligne 2 a la derniere
c'est bien ca ?

[zire478]

je rempli directement dans la donnée "MCR" (=combobox2) de l'userform que je t'ai mis en copie...

[patricktoulon]

re

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
    Dim dico As Object, LC As Worksheet, a&
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets("Liste Chauffeurs")
        For a = 2 To .Cells(.Rows.Count, "L").End(xlUp).Row
            If Not dico.exists(.Cells(a, "L").Value) Then dico(.Cells(a, "L").Value) = "": ComboBox2.AddItem .Cells(a, "L")
        Next
    End With
End Sub

et par pitié arrete de posér des captures pour le code pose le code entre balide code plutot

[zire478]

ok je regarde a ta réponse...pour le code je fais un simple copier/coller ?

[patricktoulon]

oui en colant le code entre balise code (voir capture animée)

[zire478]

est il possible de trier cette combobox2 par ordre alphabétique ?

[patricktoulon]

oui c'est possible mais fait des recherches un peu tu a des exemple sur ce forums dans la faq et contributions

[zire478]

ah bon..ben ok je vais chercher...

tu veux bien m'aider pour afficher dans msgbox "il a le numéro ID" et reprendre donc l'info dans la colonne C mais celle-ci n'apparaît que quand l'enregistrement est effectué dans le tableau car c'est une formule dans la base de donnée:

Code :

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

=SI([Prénom]="";"";SI([Nom]="";"";MAJUSCULE(GAUCHE(C6;3)&GAUCHE(D6;3)&[N°])))

Merci d'avance.
BAT.
Olivier.

[zire478]

Bonjour je n'arrive toujours pas a trier ma combobox2 par ordre alphabétique..Qqn peut il m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Initialize()
    Dim dico As Object, LC As Worksheet, a&
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets("Liste Chauffeurs")
        For a = 2 To .Cells(.Rows.Count, "L").End(xlUp).Row
            If Not dico.exists(.Cells(a, "L").Value) Then dico(.Cells(a, "L").Value) = "": ComboBox2.AddItem .Cells(a, "L")
        Next
    End With
End Sub

Merci d'avance.
Olivier.

[patricktoulon]

cherche encore tu devrais pas avoir de mal a trouver des exemples ici il y en a des dizaines

[zire478]

Bonjour avec tout le respect que je vous dois, je cherche depuis ce matin et n'arrive pas a adapter ce code pour y ajouter cela..

si je demande de l'aide sur ce forum c'est que j'en ai besoin...

j'ai bcp avancer sur d'autre chose mais ce que je poste ici c'est les choses pour lesquelles je bloque et n'arrive pas a avancer...

Bien à vous.
Olivier.

[Transitoire]

Bonjour, pardonnez moi de m'immiscer dans cette conversation(Salut Patrick ).
En ce qui me concerne, j'effectuerai un tri de la liste avant de la charger dans le combobox. Ainsi elle apparaitrais trié par ordre alphabétique. Attention toutefois a avoir la possibilité de la remettre en ordre initial, si cela se révèle nécessaire.
Cordialement

[zire478]

bonjour étant novice pourriez vous m'aider svp ?

[Transitoire]

Re, Avez vous lu ce que j'ai dit plus haut?

En ce qui me concerne, j'effectuerai un tri de la liste avant de la charger dans le combobox. Ainsi elle apparaitrais trié par ordre alphabétique. Attention toutefois a avoir la possibilité de la remettre en ordre initial, si cela se révèle nécessaire.

Si vous triez votre base de données de manière alphabétique, quand vous allez charger votre Combobox, il se trouvera chargé de manière alphabétique.
J'imagine que vous devez savoir faire le tri d'un tableau, manuellement. Faites donc l'essai (sur un dossier sauvegardé) et voyez si le résultat vous convient. il ne restera plus qu'a automatiser le tri par VBA . Chose que vous pouvez réaliser tout seul avec l'enregistreur de macro lors du tri manuel. Ensuite si vous avez des problèmes, il y aura toujours quelqu'un pour vous aider.
Nous n'avons pas la structure du tableau ??????
Cordialement

[zire478]

je souhaiterais ne pas faire le tri du tableau mais uniquement de la combobox...est ce possible ?
Je souhaiterais garder le tableau dans l'ordre des entrées....

je suis nul en vba donc si vous pourriez me guider?

[Transitoire]

Re

je souhaiterais ne pas faire le tri du tableau mais uniquement de la combobox...est ce possible ?
Je souhaiterais garder le tableau dans l'ordre des entrées....

C'est ce que je craignais!!! Je ne sais pas faire le tri de la seule Combobox.
Par contre, face à ce problème, je pense que le plus simple pour vous consisteras à utiliser votre tableau comme une base de données, à faire une extraction de la ou des colonnes nécessaires, avec un filtre élaboré comprenant l'effacement des doublons, puis trier l'extraction et la charger dans la liste du combobox.
Cordialement

[patricktoulon]

re
te guider sera bien difficile si tu n'a pas les bases et surtout si tu ne fait pas de recherches comme je te l'ai précèdement conseillé ( chose que visiblement tu n'a pas fait )
il faudrait faire un peu plus d'efforts sur ce point
c'est un forum d'entraide on fait pas le boulot a la place des autres
le moteur de recherche de DEVELOPPEZ est si difficile que ca a employer ????
je sais pas moi tape dedans (doublons, tableau ,variable ,ordre ,sort,etc...) et regarde les repones que tu trouve

un exemple du plus basic et ceci sera ma derniere contribution a cette discussion vu le peu d'effort qui est fait

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
18
19
20
21
22
23
Private Sub UserForm_Initialize()
    Dim dico As Object, LC As Worksheet, a&
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets("Liste Chauffeurs")
        For a = 2 To .Cells(.Rows.Count, "L").End(xlUp).Row
            If Not dico.exists(.Cells(a, "L").Value) Then dico(.Cells(a, "L").Value) = "": ComboBox2.AddItem .Cells(a, "L")
        Next
    End With
    tri_en_ordre ComboBox2
End Sub
 
Private Function tri_en_ordre(ByRef combo As Object)
    Dim temp
    For i = 0 To combo.ListCount - 2
        For j = i To combo.ListCount - 1
            If combo.List(i) > combo.List(j) Then
                temp = combo.List(j)
                combo.List(j) = combo.List(i)
                combo.List(i) = temp
            End If
        Next j
    Next i
End Function

salut