Autres Tri alphabétique liste d’une ComboBox, qui fonctionne mal

Jacky 17

XLDnaute Nouveau
Bonjour Forum

Je vous souhaite mes meilleurs vœux pour 2024



Tout d’abord je tiens à remercier les personnes qui m’ont déjà aidé

Dans les messages des forums j’ai trouvé des macros qui tri la liste d’une ComboBox

Celle que j’ai retenu sur XLD fonctionne, mais le seul problème :

Il y a deux listes une triée et une non triée

Comment faire pour n’avoir que la liste triée :

Dans recherche par désignation

L’enregistrement des outils n’est pas trié cela est fais au fur à mesure des enregistrements

Je tourne en rond depuis deux mois

Je ne connais toujours pas l’Anglais ni vraiment les Macro et VB,

Au petit bonheur la chance

Excel 2003

Merci d'avance pour votre aide si précieuse.

Je reste à votre disposition s’il manque des explications

Je vous souhaite une bonne fin de journée

Cordialement

Jacky



https://www.cjoint.com/c/NAlkk7f70Yf
 
Solution
Bon,
après examen plus approfondi,
Il suffit de supprimer la ligne ComboBox2.AddItem Cible
l SUB devient ainsi :
VB:
Private Sub UserForm_Initialize()
   
     Dim Cible As Range   ' ' '
   '  https://excel-downloads.com/threads/trier-une-liste-dans-un-combobox.113901/
Dim i As Byte, j As Byte
Dim temp As String
   For n = 2 To Sheets("stock").Range("B5000").End(xlUp).Row
  ComboBox2.AddItem Sheets("stock").Range("B" & n)
    Next n
With ComboBox2
    For i = 0 To .ListCount - 1
     For j = 0 To .ListCount - 1
      If .List(i) < .List(j) Then
        temp = .List(i)
        .List(i) = .List(j)
        .List(j) = temp
      End If
     Next j
    Next i
End With   ' ' '

 '...

Jacky 17

XLDnaute Nouveau
Je ne comprends pas le sens de cette phrase pour le moins étrange, mais je répète que le fichier que tu as posté sur cjoint ne fait pas 1,6 Mo, mais moins de 300 ko, donc il passait sans problème posté directement dans ton message initial. ;)
Re
Gégé-45550
Je fait un essai
effectivement il viens de passer
Encore Merci Merci Merci
Bonne soirée
Cordialement
Jacky
 

Pièces jointes

  • stock retour mag 383 Outils.zip
    139.3 KB · Affichages: 1

TooFatBoy

XLDnaute Barbatruc
Mes questions sur l'utilisation des trois dernières colonnes d'une feuille était pour savoir si tu pouvais mettre ces trois dernières colonnes dans d'autres colonnes (moins proches de la fin de la feuille) voire dans une autre feuille, car sur les anciennes versions d'Excel ça bouffait énormément de place pour rien, ce qui créait des fichiers beaucoup plus gros que nécessaire.

Sur ce, bonne soirée également.
🖖
 

Jacky 17

XLDnaute Nouveau
Mes questions sur l'utilisation des trois dernières colonnes d'une feuille était pour savoir si tu pouvais mettre ces trois dernières colonnes dans d'autres colonnes (moins proches de la fin de la feuille) voire dans une autre feuille, car sur les anciennes versions d'Excel ça bouffait énormément de place pour rien, ce qui créait des fichiers beaucoup plus gros que nécessaire.

Sur ce, bonne soirée également.
🖖
Re
j'en Prend note
Et encore Merci
bonne soirée
jacky 17
 

Statistiques des forums

Discussions
312 207
Messages
2 086 241
Membres
103 162
dernier inscrit
fcfg