Tri dans un ListBox..?

[SherKanPacha]

Bonjour à vous les Excelleux.
Voilà. J'ai un UserForm dans lequel ma ListBox1 est en RowSource :Chronologie!b4:l3000a. Ma feuille a des boutons qui activent des tris automatiques de ma feuille excel. Comment fait on pour repercuter ces memes tris dans ma ListBox1. J'ai créer des boutons dans mon UserForm mais je ne sais pas quoi mettre comme formule pour trier. Je tourne en rond et me mords la queue (j'suis souple non?). 😕
Merci za vous.

 

[PascalXLD]

Re : Tri dans un ListBox..?

Bonjour

peut-être un petit tour ici

https://www.excel-downloads.com/thr...ans-doublons-et-par-ordre-alphabetique.81048/

 

[SherKanPacha]

Re : Tri dans un ListBox..?

Vouaui....C'est pas mal ça...mais je te joins une image de ce que je fais et je crois que tu verras exactement ce que je cherches.

En cliquant sur le bouton "Touche" par exemple, j'aimerai que ma listBox1 m'extracte que les touches un peu comme les filtres automatique de la feuille d'ou j'ai extrait ma ListBox...Vois tu..?
Pas simple... 😉

 

[PascalXLD]

Re : Tri dans un ListBox..?

re

cela serait du style avec le mot " touche " ecrit en colonne C

Listbox1.Clear
For x = 2 to range("A65536").end(xlup).row
if range("C" & x)="Touche" then
with listbox1
.AddItem Range("A" & x)
.List(.ListCount - 1, 1) = Range("B" & x)
.List(.ListCount - 1, 2) = Range("C" & x)
.List(.ListCount - 1, 3) = Range("D" & x)
.List(.ListCount - 1, 4) = Range("E" & x)
.List(.ListCount - 1, 5) = Range("F" & x)
.List(.ListCount - 1, 6) = Range("G" & x)
end with
end if
Next

 

[SherKanPacha]

Re : Tri dans un ListBox..?

Ok je vois que j'avais rien pompé dans ta 1er rep. je comprends mieux et j'essaye ça et je reviens vers toi pour te dire si c'est OK. pas de suite mais bientôt.
Re merci za toi.🙂

 

[SherKanPacha]

Re : Tri dans un ListBox..?

Ca marche point...!
J'ai coller ta formule dans mon bouton mais ca bug au niveau du ListBox1.Clear

 

[PascalXLD]

Re : Tri dans un ListBox..?

Re

Il faut que tu enleves ta rowsource.

Il faut que ta listbox soit toujours rempli avec la methode que je t'ai donné

 

[SherKanPacha]

Re : Tri dans un ListBox..?

Re

Il faut que tu enleves ta rowsource.

Il faut que ta listbox soit toujours rempli avec la methode que je t'ai donné

Ok J'essaye...!!!
Et Hop...!!! 🙂

 

[SherKanPacha]

Re : Tri dans un ListBox..?

Dans ta formule rien ne dit ou on doit aller chercher les Datas. Mon Classeur a plusieurs feuilles et la ou se trouve le tableau présenter dans mon UserForm dans la listbox1 provient de mon Onglet "Chronologie". est pour ça que rien ne se fait ?

 

[PascalXLD]

Re : Tri dans un ListBox..?

re

rajoutes

sheets("Chronologie") davant tous les range

exemple

For x = 2 to sheets("Chronologie").range("A65536").end(xlup).row
if sheets("Chronologie").range("C" & x)="Touche" then


etc

 

[SherKanPacha]

Re : Tri dans un ListBox..?

La Propriété de ma ListBox1

 

[SherKanPacha]

Re : Tri dans un ListBox..?

Ok...Je fais...!!

 

[SherKanPacha]

Re : Tri dans un ListBox..?

Private Sub CommandButton30_Click()
ListBox1.Clear
For x = 2 To Sheets("Chronologie").Range("A65536").End(xlUp).Row
If Sheets("Chronologie").Range("C" & x) = "Touche" Then

With ListBox1
.AddItem Range("A" & x)
.List(.ListCount - 1, 1) = Sheets("Chronologie").Range("B" & x)
.List(.ListCount - 1, 2) = Sheets("Chronologie").Range("C" & x)
.List(.ListCount - 1, 3) = Sheets("Chronologie").Range("D" & x)
.List(.ListCount - 1, 4) = Sheets("Chronologie").Range("E" & x)
.List(.ListCount - 1, 5) = Sheets("Chronologie").Range("F" & x)
.List(.ListCount - 1, 6) = Sheets("Chronologie").Range("G" & x)
End With
End If
Next

End Sub
Rien n'apparait...

 

[SherKanPacha]

Re : Tri dans un ListBox..?

CAYé...c'est moi qui est déconner.....La Colonne des phases n'est pas en C mais en D car j'avais scrapper une colonne dans la ListBox....
Ca marche et je crois que j'ai pigé....je vais pouvoir adapter tout ça sur mes différent boutons.
Merci za toi encore une fois et merci de ta patience...!!

 

[PascalXLD]

Re : Tri dans un ListBox..?

re

sinon tu en avais oublié un

.AddItem Range("A" & x)