XL 2019 Affichage plusieurs colonne dans Listbox avec tri Combobox

[Jacquie]

Bonjour à tous,

je fais appel aux aguerris du VBA dans l'espoir de trouver une solution à mon problème.
Dans mon fichier joint que j'ai eu grâce à ce forum, j'ai actuellement un Userform qui me sert à filtrer un tableau qui se trouve dans ma feuille nommée "Données" et à récupérer dans ma "Feuil1" la sélection choisi.
Jusqu'ici tout fonctionne parfaitement.

Je voudrais pouvoir afficher dans ma ListBox1 les colonnes "dimensions, poids.." que j'ai nommé au dessus de celle-ci et trier la colonne choisi avec ma ComboBox1 du plus grand au plus petit.
A savoir que le contenu de ma liste de donnée peux être modifié et complété mais le nombre de colonne restera le même.

Quelqu'un a t-il une idée ?

Merci par avance pour votre aide.

 

[patricktoulon]

ben en fait tout le monde a la salle manie d'utiliser le dico pour trier les doublons d'un tablo d'une colonne
alors qu'il est possible de trier le tableau x colonne avec un dico
le dico sert simplement de controleur de la colonne en paramètre
tiens un exemple comme ça vite fait
un userform , une listbox , un bouton et un tableau structuré nommé"Tableau1" dans une feuille
et voila le tour est joué tu a ta liste sans doublons dans la colonne 1

Private Sub CommandButton1_Click()
    Dim a&, i&, dico As Object, tbl(), tablo
    tablo = Range("tableau1")
    Set dico = CreateObject("scripting.dictionary")
    For i = 1 To UBound(tablo)
        If Not dico.exists(tablo(i, 1)) Then
            dico(tablo(i, 1)) = ""    ' le dico sert juste a controler on ne se sert pas de son .keys ou .items
            a = a + 1: ReDim Preserve tbl(1 To UBound(tablo, 2), 1 To a)
            For c = 1 To UBound(tablo, 2): tbl(c, a) = tablo(i, c): Next
        End If
    Next
    With ListBox1
        .ColumnCount = UBound(tablo)
        .Column = tbl
    End With
End Sub

 

[patricktoulon]

re
bonsoir
tiens @ChTi160 c'est pour toi
tu a 3 exemples avec 3 userforms

 

[ChTi160]

Bonsoir Patrick
Merci
je regarde cela ! Lol enfin je vais étudier !
Bonne fin de Soirée
Jean marie

 

[patricktoulon]

Bonjour à tous
de bon matin le lundi à la fraîche je reprends cet userform
j'ouvre le module je fait un CTRL+A et touche Suppr
voila c'est propre
je l'arrange un peu (il me plait pas tout gris clair
je transforme cette plage en tableau structuré ( la moindre des choses sur une mini BDD comme ça )
j'ajoute une colonne (ligne) comme ça si exploitation plus approfondi de la la listproduit on a pas a aller chercher l'index de ligne si on a filtré au par avant

bon alors
1° les 3 OpTionbutton liste dans la listbox la liste complete selon l'Optionbutton
ils liste en même temps sans doublons les types dans la listbox type

2° le click sur list type va filtrer les type dans la listbox (listproduit)

et enfin
3° la combo tri va trier la listbox(listproduit ) en fonction de la colonne choisi dedans

4° le bouton ok renvoie la ligne sélectionnée et transposée dans la feuille "feuil1"

et voila

 

[Jacquie]

Bonjour patricktoulon,

Merci énormément, ç'est exactement ce que je cherchais.
Juste quelque réglage à faire si vous voulez bien :

- les valeurs renvoyées dans ma Feuil1 sont je pense au format texte car j'utilise ces valeurs dans des formules comme par exemple "cellule C11 + 10" et le résultat n'apparait pas.
- Il y a un petit bug lorsque je fais cette manip par exemple : clic sur Définir->Vis->Tête H, puis tri par poids ->je change par "Ecrou" puis tri par dimensions. une fenêtre d'erreur s'affiche :

- Comment régler la largeur de la première colonne pour lire la référence en entier (je n'ai pas le mot rondelle en entier par exemple).
- je souhaiterais si possible que les cellules ne s'efface pas lorsque je clic sur Définir et que l'Userform se ferme lorsque je clic sur Ok.

Merci par avance.
Jacquie

 

[patricktoulon]

re
bonjour je regarde ça toute à l'heure je suis sur un autre fichier d'un autre membre là

 

[Jacquie]

Bonjour Patricktoulon,

je me permet de revenir vers vous, est ce que vous auriez le temps de modifier au moins les valeurs renvoyées dans ma Feuil1 pour quelles soient reconnues dans mes formules excel? merci par avance.

Bon après midi!

 

[patricktoulon]

patiente j'ai presque terminé le projet d'alain
je peux pas tout faire

 

[Jacquie]

Pas de soucis je ne suis pas impatiente!

 

[patricktoulon]

re
tiens voilà normalement se sont des numeric qui sont injectés

 

[Jacquie]

une énorme merci Patricktoulon, heureusement que des gens comme vous sont là pour des gens comme moi!

Je n'y connais pas grand chose en VBA mais j'ai ajoutée " Unload Me" pour quitter la fenêtre après avoir cliquée sur OK et j'ai enlevée "[C8:C15].ClearContents" pour ne pas que les cellules s’effacent à l'ouverture.

Juste une chose que je n'arrive pas à faire : agrandir la première colonne pour lire "rondelle" en entier.
Quel est la démarche?

Bon après midi et bonne continuation!
Jacquie

 

[patricktoulon]

re
correction pour la colonne 1

 listProduit.ColumnWidths = "50;50;80;40;40;40;40;40;30;0": T = Split(listProduit.ColumnWidths, ";")

de rien c'est avec plaisir

 

[Jacquie]

Au risque d'abuser de votre sympathie, que dois je rajouter au code de mon bouton "Ok" pour éviter de générer un message d'erreur si j'ai oublié de sélectionner un des 3 paramètres?
par exemple si je sélectionne "écrou" et ma ligne " écrou borgne ..." sans cliquer sur type "borgne" avant.
Y a t-il possibilité d'afficher un message "Tous les paramètres ne sont pas remplis"?

 

[patricktoulon]

re
a mettre dans l'event du bouton avant le reste du code

if truc="" then  msgbox "tete plate!! tu a oublié de choisir un TRUC":exit sub

ou bien les deux

if truc="" or le_type="" then msgbox "double tete plate!! tu a oublié de choisir un TRUC":exit sub

ou bien les 3 avec la condition sélection effective dans la liste

if truc="" or le_type="" or listProduit.listindex=-1 then msgbox "triple tete plate!! tu a oublié de choisir un TRUC":exit sub

 

[Jacquie]

Super! encore merci!