XL 2013 Problème de tri alphabétique avec scripting dictionary

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kiko_23

XLDnaute Junior
Bonsoir à tous,

Je tente vainement d'obtenir un tri par ordre alphabétique sur le chargement d'une ComboBox via un scripting dictionary.
J'ai utilisé pour cela le code écrit il y a bien longtemps maintenant par monsieur Boisgontier, mais après avoir tout (?) tenté, pour une raison qui m'échappe le tri ne semble se faire que sur certains items.

Je vous remercie par avance pour votre attention à mon problème et vos éventuelles lumières et joins ici le fichier qui me sert pour ce test.

PS : la ComboBox se charge dans "Sheet1" à l'activation de la dite feuille
 

Pièces jointes

Solution
patricktoulon
bonjour
on ira plus vite avec la mienne
rien ne sert de se balader avec des variables en byref si c'est pas utile
la fonction devient l'array (return )
VB: 
Sub nav()
    Set ComboBox_1 = ActiveSheet.Shapes.AddFormControl(xlDropDown, Left:=Cells(2, 2).Left, Top:=Cells(2, 2).Top, Width:=160, Height:=20)
    Set F = Sheets("Sheet2")
    Set plageCbb = F.Range("A1:A" & F.Range("A" & Rows.Count).End(xlUp).Row)
    Call chargementCbb
    ComboBox_1.ControlFormat.List = temp
End Sub

Sub chargementCbb()
    Set dataCbb = CreateObject("Scripting.Dictionary")
    a = plageCbb
    On Error Resume Next
    For i = LBound(a) To UBound(a)
        If a(i, 1) <> "" Then dataCbb(Trim(a(i, 1))) = ""
    Next i
    temp = OrderedArray(dataCbb.keys)...
Trier par date Trier par votes
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
Problème de tri alphabétique sur scripting dictionary
Réponses
2
Affichages
76
kiko_23
K
Magic_Doctor
  • Question Question
XL 2010 Tri avec mise en évidence en couleur des groupes d'items triés
Réponses
4
Affichages
617
sylvanu
sylvanu
B
  • Question Question
XL 2019 Problème de tri: alphabétique plutôt que croissant (nombre)
Réponses
4
Affichages
2 K
BobExcel
B
N
  • Résolu(e)
XL 2016 Comment filtrer une listbox a mesure qu'on saisie dans textbox (2 colonnes)
2
Réponses
21
Affichages
5 K
ChTi160
ChTi160
S
  • Question Question
[Résolu] Tri alphabétique dans cellule
Réponses
4
Affichages
677
Starkoala
S
Z
  • Question Question
Encore des problème de présentation de combobox tri alphabétique & suppr des doublons
Réponses
8
Affichages
2 K
Zoub
Z
V
  • Question Question
problème de tri dans une listbox
Réponses
3
Affichages
1 K
voldemort
V
Retour