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.

 

[herve62]

Bonsoir Jacquie
Il est tard , le vba m'a fatigué cet AM mais j'arrive encore à voir cela :

If choix = choix Then
        Me.ListBox1.List() = Mondico1.keys
    Else:
        Me.ListBox1.List() = Mondico2.keys
    End If

Y a pas un HIC ?? pour moi un chat est un chat !!!!! donc pas besoin de IF non ???
bonne nuit ....à méditer

 

[Jacquie]

Bonjour herve62,

merci pour votre retour.
C'est possible qu'il n'y est pas besoin de If mais vous m'avez déjà perdu
Le VBA m’intéresse énormément mais depuis le temps que je m'y intéresse, rentre péniblement.
J'arrive à "bricoler" un peu mais dès que ça devient un peu compliqué...

Pensez vous que ma demande est faisable?

Bonne journée!

 

[Eric C]

Bonjour le forum
Bonjour Jacquie, bonjour Herve62

Ceci pour débuter (je ne me plongerai pas dans tes codes, trop pointus pour moi). J'ai initialisé ton USF pour que tes différentes colonnes soient représentées.

Private Sub UserForm_Initialize()
Dim i As Byte
Dim WS As Worksheet

Set WS = ThisWorkbook.Worksheets("Données")

For i = 0 To 60
With Me.ListBox1
.ColumnCount = 8
.ColumnWidths = "65;50;45;50;60;50"
.AddItem WS.Range("C" & i + 2)
.Column(1, i) = WS.Range("D" & i + 2)
.Column(2, i) = WS.Range("E" & i + 2)
.Column(3, i) = WS.Range("F" & i + 2)
.Column(4, i) = WS.Range("G" & i + 2)
.Column(5, i) = WS.Range("H" & i + 2)
End With
Next i
End Sub

Bonne continuation et bonne après-midi à toutes & à tous

@+ Eric c

 

[Jacquie]

Bonjour Eric C,

merci je regarde ça ce soir.

Bon après midi.

 

[Jacquie]

Le code fonctionne quand je clic sur mon bouton définir mais ne fonctionne plus dès que je choisis une référence (une des 3 Optionbutton : "vis", "Écrou", "Rondelle".

 

[Jacquie]

Bonjour Herve62,

Ma demande semble compliquée à réaliser, est-ce que vous pensez pouvoir trouver une solution?

Bon après midi!

Jacquie.

 

[ChTi160]

Bonjour Jacquie
Bonjour le Fil
@Eric
Pourquoi dans la procédure ci dessus y'a t'il 8 colonnes pour une alimentation sur 6 colonnes
Depuis mon téléphone
Bonne journée
Jean marie

 

[Jacquie]

Bonjour ChTi160,

Il y a en effet 8 colonnes, les 2 premières servent de filtre pour afficher dans ma Listbox1 les 6 dernières colonnes de mon tableau de donnée.
Je cherche ensuite via une Combobox à trier la colonne choisie.
Je ne sais pas si c'est faisable, mais s'il y a un moyen différent pour y arriver pourquoi pas !
Merci

 

[ChTi160]

Rien compris ???? Lol
Mais l'important c'est que toi tu t'y retrouve ....
Bonne continuation
Jean marie

 

[ChTi160]

Re
J'ai fait ceux-ci à voir si ça peut aider Lol
Jean marie

 

[Jacquie]

Bonjour ChTi160,

merci beaucoup pour votre proposition qui pourra sûrement me servir pour autre chose mais malheureusement ce n'est pas ce que je cherche.

merci encore.
Bonne journée.

 

[ChTi160]

Bonjour Jacquie
il faudrait être plus précis .
Mets des explications avec exemples.
Bonne journée
Jean marie

 

[patricktoulon]

re
Bonjour
et jamais on pense a travailler avec un tableau structuré a fin de ne plus se torturer avec une recherche de colonne hein !!?????
demain tu rajoute des lignes (voir une/des colonnes) tu fait quioi ? tu rechange tout tes names ??!!

 

[ChTi160]

Bonjour mon Patrick
je vois que tu es en forme ! Lol
J'y pense souvent, mais peut-il les utiliser ? Lol
Bonne journée
Jean marie