Combobox

[maval]

Bonjour

J'ai sur un formulaire une combobox avec une liste de 1 à 10 mon problème est que la liste est suivante 1, 10, 2, 3 ect.... Est-il possible de mettre l'ordre de 1, 2, 3, ect....

Je vous remercie de votre aide

Bon WE à tous

 

[Compte Supprimé 979]

Re : Combobox

Bonjour Maval

Tu trouveras la solution ici
Ce lien n'existe plus

A+

 

[Staple1600]

Re : Combobox

Bonjour à tous

Juste pour rappeler la section du forum nommée FAQ XLD ...
(bien que le lien vers la FAQ soit déjà dans ta signature BrunoM45 )
Donc voila ce qu'on trouve dans cette fameuse FAQ (souvent oubliée) à propos du tri d'une listbox
(C'est facilement transposable pour une ComboBox)
https://www.excel-downloads.com/thr...ans-doublons-et-par-ordre-alphabetique.81048/

 

[maval]

Re : Combobox

Bonjour Bruno

Je te remercie mais j'ai du faire une boulette, sa ne fonctionne pas?

@+

 

[Staple1600]

Re : Combobox

Re

maval:
Et le code VBA (voir le lien) de mon message précédent, il fonctionne ?

 

[mapomme]

Re : Combobox

Bonjour à tous

Un essai en modifiant un petit peu votre code:

Sub Unique_Sorted_ComboList(CbList As msforms.ComboBox, rg As Range)
    Dim Dict
    Dim c As Range
    Dim i As Long, j As Long
    Dim arrList As Variant, vTemp As Variant
    Dim mots, s As String
    
    'Créer une liste des valeurs unique avec un dictionnaire
    Set Dict = CreateObject("Scripting.Dictionary")
    Dict.CompareMode = vbTextCompare
    For Each c In rg
        If Not IsEmpty(c.Value) And Not Dict.exists(c.Value) Then
            mots = Split(c.Value): s = mots(UBound(mots))
            ReDim Preserve mots(UBound(mots) - 1)
            s = Join(mots) & String(10 - Len(s), "0") & s
            Dict.Add s, c.Value
        End If
    Next c
    
    'Trier la liste
    arrList = Dict.keys
    For i = LBound(arrList) To UBound(arrList) - 1
        For j = i + 1 To UBound(arrList, 1)
            If arrList(i) > arrList(j) Then
                vTemp = arrList(i)
                arrList(i) = arrList(j)
                arrList(j) = vTemp
            End If
        Next j
    Next i
    
    'Remplir la combobox avec des valeurs unique triées
    CbList.Clear
    For i = 0 To Dict.Count - 1
       CbList.AddItem Dict(arrList(i))
    Next i
End Sub

 

[maval]

Re : Combobox

Bonjour JM

Le problème est que moi j'ai déjà un code dans Userform_Initialize et je n'arrive a combiné les deux

 Dim c As Range  et  Dim rg As Range

Private Sub UserForm_Initialize()

Dim c As Range
Dim tablo()
Dim i As Integer, j As Integer
Dim temp As String
Dim present As Boolean

ReDim tablo(1 To 1)
tablo(1) = Cells(1, 1)
For Each c In Sheets("Feuil1").Range("A1:A" & Range("a65536").End(xlUp).Row)
    present = False
    For i = 1 To UBound(tablo)
        If tablo(i) = c Then present = True
    Next i
    If Not present Then
        ReDim Preserve tablo(1 To UBound(tablo) + 1)
        tablo(UBound(tablo)) = c
    End If
    For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
            If tablo(i) < tablo(j) Then
                temp = tablo(i)
                tablo(i) = tablo(j)
                tablo(j) = temp
            End If
        Next j
    Next i
Next c

ListBox1.List = tablo


    Dim rg As Range
 

    Set rg = Feuil2.Range("C3:C" & Feuil2.Range("C" & Rows.Count).End(xlUp).Row)
    Unique_Sorted_ComboList Me.ComboBox1, rg

End Sub

@+

 

[maval]

Re : Combobox

Bonjour Mapomme

Génial merci et bon WE

@+

 

[pierrejean]

Re : Combobox

Bonjour à tous

Un essai

 

[maval]

Re : Combobox

Re, Mapomme

Je viens de constater un petit au niveau du nombre de combobox.
Je m'explique sur le fichier définitif j'ai 4 Combobox et la sa coince c'est vrai que j'aurais peut le dire avant mais je ne penser pas qu'il y aurais un problème Excuse moi....
@+

 

[mapomme]

Re : Combobox

re maval,

Re, Mapomme
Je viens de constater un petit au niveau du nombre de combobox.
Je m'explique sur le fichier définitif j'ai 4 Combobox et la sa coince c'est vrai que j'aurais peut le dire avant mais je ne penser pas qu'il y aurais un problème Excuse moi....
@+

Un essai avec une fonction TrierComboBox(ctrlComboBox As Control) qui prend une combobox comme paramètre et trie ses éléments selon la valeur numérique située à la fin de chaque élément. Pour le tri, je ne me suis pas cassé la nenette , j'ai fait un tri par échange (on peut le remplacer par un quick sort si on veut)

Sub TrierComboBox(ctrlComboBox As Control)
Dim dico As New Scripting.Dictionary, tablo, mots
Dim ech As Boolean, aux, i As Long, s

  For i = 0 To ctrlComboBox.ListCount - 1
    mots = Split(ctrlComboBox.List(i)): s = String(10 - Len(mots(UBound(mots))), "0") & mots(UBound(mots))
    If Not dico.Exists(s) Then dico.Add s, ctrlComboBox.List(i)
  Next i
  
  tablo = dico.Keys
  Do
    ech = False
    For i = 0 To dico.Count - 2
      If tablo(i) > tablo(i + 1) Then
        aux = tablo(i): tablo(i) = tablo(i + 1): tablo(i + 1) = aux
        ech = True
      End If
    Next i
  Loop Until Not ech
  
  ctrlComboBox.Clear
  For i = 0 To dico.Count - 1
    ctrlComboBox.AddItem dico(tablo(i))
  Next i
End Sub

 

[maval]

Re : Combobox

Re Mapomme

Nickel je te remercie

@+

 

[Dranreb]

Re : Combobox

Bonsoir.
Ça sent les ComboBox liés ça…
Si c'est le cas, bon, mon module de classe ComboBoxLiés ne gère pas des contenus textes à classer selon un nombre qui les termine. Mais il y aurait quand même moyen de les lui faire avaler.
Si ça vous intéresse…

 

[maval]

Re : Combobox

Bonjour Dranreb

Je suis toujours admiratif devant vos code, et je ne dirai pas non.

@+

 

[Dranreb]

Re : Combobox

Dans l'attente, donc, d'un classeur sur lequel travailler, avec une liste et un Uf à plusieurs ComboBox…