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

J

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
J
Gégé-45550 à dit:
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   ' ' '

 '...
Cliquez pour agrandir...
Trier par date Trier par votes
Gégé-45550

Gégé-45550

XLDnaute Accro
Jacky 17 à dit:
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
Cliquez pour agrandir...
Bonjour,
un petit conseil si je peux me permettre et si vous voulez avoir plus de chances d'obtenir des réponses :
joignez directement votre fichier à l'aide de la fonction dédiée de ce forum plutôt que de mettre un lien cjoint que peu de gens ouvriront ... et si possible évitez les sauts de ligne intempestifs qui allongent inutilement votre message.
Cordialement,
 
Vote positif 0 Vote négatif
J

Jacky 17

XLDnaute Nouveau
Gégé-45550 à dit:
Bonjour,
un petit conseil si je peux me permettre et si vous voulez avoir plus de chances d'obtenir des réponses :
joignez directement votre fichier à l'aide de la fonction dédiée de ce forum plutôt que de mettre un lien cjoint que peu de gens ouvriront ... et si possible évitez les sauts de ligne intempestifs qui allongent inutilement votre message.
Cordialement,
Cliquez pour agrandir...
Re
D'abord merci d'avoir pris le temps d'analysé ma demande. Ecriture de ma demande dans Word les lignes sons les unes en dessous des autres. Et la pièce jointe fait 1.61Mo le forum est limité à 50Ko si cela na pas changer
Merci de m’avoir prévenu
Cordialement
Jacky 17
 
Vote positif 0 Vote négatif
J

Jacky 17

XLDnaute Nouveau
TooFatBoy à dit:
Bonjour,


Je crois c'est plutôt dans les environs de 1 Mo.
Le forum accepte aussi les fichiers .zip.

De toute façon, ton fichier ne fait que 297 ko. ;)


Est-ce normal qu'il y ait des données en IS1:IV1 ??? 🤔
Cliquez pour agrandir...
Re
Gégé-45550, TooFatBoy
Merci pour tous les renseignements pour les données en IS1:IV1 normal ce classeur fait parti de ma base de données Gestion stock outils prêt et retour
Merci de votre intervention
Cordialement
Jacky 17
 

Pièces jointes

  • CréaFiches Ajouter Modifier27_1.zip
    85.8 KB · Affichages: 3
Vote positif 0 Vote négatif
Gégé-45550

Gégé-45550

XLDnaute Accro
Jacky 17 à dit:
Re
Gégé-45550, TooFatBoy
Merci pour tous les renseignements pour les données en IS1:IV1 normal ce classeur fait parti de ma base de données Gestion stock outils prêt et retour
Merci de votre intervention
Cordialement
Jacky 17
Cliquez pour agrandir...
Re -
Bon, on avance ... doucement.
Maintenant, au moins, on a un fichier.
Celui-ci contient 2 usf, UserFi et UserForm1 contenant tous les deux des ComboBox.
La question est donc : De quel ComboBox de quel UserForm parle-t-on ?
Et les questions subsidiaires : quelles sont et où sont ces deux listes (triée et non triée) ?
Cordialement,
 
Vote positif 0 Vote négatif
J

Jacky 17

XLDnaute Nouveau
Gégé-45550 à dit:
Re -
Bon, on avance ... doucement.
Maintenant, au moins, on a un fichier.
Celui-ci contient 2 usf, UserFi et UserForm1 contenant tous les deux des ComboBox.
La question est donc : De quel ComboBox de quel UserForm parle-t-on ?
Et les questions subsidiaires : quelles sont et où sont ces deux listes (triée et non triée) ?
Cordialement,
Cliquez pour agrandir...
Re
Gégé-45550, TooFatBoy
Gégé-45550
Merci de t’intéresser à mon problème
J’ai oublié d’enlever l’UserForm1
Pour mon problème il se trouve dans UserFi recherche par désignation ComboBox2 position en haut a droite de l’UserForm merci d'avance pour toute aide avancé de ta part
Je vous souhaite une bonne fin de journée
Cordialement
Jacky 17
 
Vote positif 0 Vote négatif
J

Jacky 17

XLDnaute Nouveau
TooFatBoy à dit:
Du coup, ce que je voudrais savoir, c'est pourquoi aller mettre des données dans les trois dernières colonnes de la feuille, alors qu'il me semble qu'il y a des centaines de colonnes inutilisées avant ces trois colonnes.
Cliquez pour agrandir...
Re
Un autre oubli la macro pour le tri se trouve à la fin de la macro dans initialise de l’UserFi
Je veux bien joindre ma base de données pour voir la structure mais 148 ko en zip le forum m’avait aidé à la finir vers 2016
Cordialement
Jacky
 
Vote positif 0 Vote négatif
Gégé-45550

Gégé-45550

XLDnaute Accro
Jacky 17 à dit:
Re
Gégé-45550, TooFatBoy
Gégé-45550
Merci de t’intéresser à mon problème
J’ai oublié d’enlever l’UserForm1
Pour mon problème il se trouve dans UserFi recherche par désignation ComboBox2 position en haut a droite de l’UserForm merci d'avance pour toute aide avancé de ta part
Je vous souhaite une bonne fin de journée
Cordialement
Jacky 17
Cliquez pour agrandir...
bonsoir,
dans la Sub Initialize de UserFi
Soit, vous triez préalablement puisque vous avez une option de tri sur la colonne B, et dans ce cas, le code suivant suffit :
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
 AffImage
  End Sub
Soit vous ne triez pas et utilisez le code pour faire ce tri.
Dans ce cas :
Code: 
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
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   ' ' '

' http://groupes.codes-sources.com/article-recuperer-valeur-incrementer-afficher-dans-textbox-504553.aspx
TextBox1.Value = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row) + 1
  For Each Cible In Range("B2:B" & Range("B5000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
ComboBox2.AddItem Cible
ComboBox3.RowSource = "Déroulants!D2:D50"
ComboBox4.RowSource = "Déroulants!E2:E50"
ComboBox5.RowSource = "Déroulants!C2:C10"
   Next 'Cible
 AffImage
  End Sub
Note : je n'ai pas vraiment examiné ce code en détail mais il semble fonctionnel.
Cordialement,
 
Vote positif 0 Vote négatif
J

Jacky 17

XLDnaute Nouveau
Gégé-45550 à dit:
bonsoir,
dans la Sub Initialize de UserFi
Soit, vous triez préalablement puisque vous avez une option de tri sur la colonne B, et dans ce cas, le code suivant suffit :
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
 AffImage
  End Sub
Soit vous ne triez pas et utilisez le code pour faire ce tri.
Dans ce cas :
Code: 
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
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   ' ' '

' http://groupes.codes-sources.com/article-recuperer-valeur-incrementer-afficher-dans-textbox-504553.aspx
TextBox1.Value = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row) + 1
  For Each Cible In Range("B2:B" & Range("B5000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
ComboBox2.AddItem Cible
ComboBox3.RowSource = "Déroulants!D2:D50"
ComboBox4.RowSource = "Déroulants!E2:E50"
ComboBox5.RowSource = "Déroulants!C2:C10"
   Next 'Cible
 AffImage
  End Sub
Note : je n'ai pas vraiment examiné ce code en détail mais il semble fonctionnel.
Cordialement,
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Gégé-45550

Gégé-45550

XLDnaute Accro
Jacky 17 à dit:
Re
Gégé-45550
Merci pour les deux macros la première laisse les deux listes du ComboBox2. La deuxième aucune ouverture de l’UserForm UserFi, me met erreur d’exécution 6 dépassement de capacité
Bonne soirée
Cordialement
Jacky
Cliquez pour agrandir...
Re
La première fonctionne à la perfection chez moi (c'est la seule que j'avais testée)
Pour la seconde (qui figure à la suite de la première dans votre code d'origine, je suis d'accord, après test, elle renvoie une erreur.
Je regarderai ça de plus près.
Mais je répète, la première, la plus courte, fonctionne très bien et renvoie la liste triée si celle-ci l'a été auparavant via l'option sur la colonne B.
 
Vote positif 0 Vote négatif
Gégé-45550

Gégé-45550

XLDnaute Accro
Jacky 17 à dit:
Re
Gégé-45550
Merci pour les deux macros la première laisse les deux listes du ComboBox2. La deuxième aucune ouverture de l’UserForm UserFi, me met erreur d’exécution 6 dépassement de capacité
Bonne soirée
Cordialement
Jacky
Cliquez pour agrandir...
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   ' ' '

 ' http://groupes.codes-sources.com/article-recuperer-valeur-incrementer-afficher-dans-textbox-504553.aspx
TextBox1.Value = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row) + 1
  For Each Cible In Range("B2:B" & Range("B5000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
'ComboBox2.AddItem Cible
ComboBox3.RowSource = "Déroulants!D2:D50"
ComboBox4.RowSource = "Déroulants!E2:E50"
ComboBox5.RowSource = "Déroulants!C2:C10"
   Next 'Cible
 AffImage
  End Sub
Bonne soirée
 
Vote positif 0 Vote négatif
J

Jacky 17

XLDnaute Nouveau
Gégé-45550 à dit:
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   ' ' '

 ' http://groupes.codes-sources.com/article-recuperer-valeur-incrementer-afficher-dans-textbox-504553.aspx
TextBox1.Value = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row) + 1
  For Each Cible In Range("B2:B" & Range("B5000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
'ComboBox2.AddItem Cible
ComboBox3.RowSource = "Déroulants!D2:D50"
ComboBox4.RowSource = "Déroulants!E2:E50"
ComboBox5.RowSource = "Déroulants!C2:C10"
   Next 'Cible
 AffImage
  End Sub
Bonne soirée
Cliquez pour agrandir...
Re

Gégé-45550
Un énorme merci pour cette dernière macro qui affiche bien une seule liste dans le ComboBox2. Après un essai sur mon classeur définitif cela fonctionne très bien Avec UserFi et UserForm2 pour la sortie du matériel.une affaire rondement menée
J’aurais bien mis mon classeur a par CiJoint vu son poids
Encore Merci Merci
Bonne soirée
Cordialement
Jacky
 
Vote positif 0 Vote négatif
Solution

Discussions similaires

pompaero
  • Question
Microsoft 365 Liste déroulante avec tri
Réponses
3
Affichages
814
pompaero
pompaero
L
  • Résolu(e)
XL 2019 Transformer un score en note
Réponses
5
Affichages
2 K
soan
S
J
  • Question
XL 2016 Aide & Optimisation VBA...base de donnée
Réponses
7
Affichages
2 K
Julien1003
J
chaelie2015
  • Question
(RESOLU)liste de combobox qui depend d'autre combobox
Réponses
6
Affichages
916
Paritec
Paritec
Magic_Doctor
  • Question
Suppression “complexe” d’une ligne vide d’une liste
Réponses
11
Affichages
989
Magic_Doctor
Magic_Doctor
P
  • Question
Combobox qui ne se remplit pas
Réponses
5
Affichages
2 K
PierreJeanPierre
P
F
  • Question
Récupération automatique d'une feuille à l'autre
Réponses
2
Affichages
1 K
Fouinette17
F
E
  • Question
vba Excel afficher une liste triée dans une combobox
Réponses
6
Affichages
5 K
Bebere
B
B
  • Question
combobox triée ordre alphabétique
Réponses
3
Affichages
2 K
Blafi
B
B
  • Question
le challenge, lisez tous plz : )
Réponses
8
Affichages
2 K
between
B

Membres actuellement en ligne

14 membres et 77 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 206
Messages
2 086 226
Membres
103 159
dernier inscrit
FBallea