Tri dans une combobox

[tallia64]

Bonjour je souhaiterais trier les donnée dans ma combobox. Est ce vous pouvez m'aider s'il vous plait? voici le code :

Private Sub ComboBox1_Change()
index = ComboBox1.ListIndex + 3
Frame1.Visible = True

On Error Resume Next
TextBox1 = Format(ActiveSheet.Cells(index, 1), ">")
TextBox2 = Format(ActiveSheet.Cells(index, 2), ">")
TextBox3 = Format(ActiveSheet.Cells(index, 3), ">")
TextBox4 = Format(ActiveSheet.Cells(index, 4), ">")
TextBox5 = Format(ActiveSheet.Cells(index, 5), ">")
TextBox13 = Format(ActiveSheet.Cells(index, 6), "hh:mm")
TextBox7 = Format(ActiveSheet.Cells(index, 7), ">")
TextBox14 = Format(ActiveSheet.Cells(index, 8), "hh:mm")
TextBox9 = Format(ActiveSheet.Cells(index, 9), ">")
TextBox10 = Format(ActiveSheet.Cells(index, 10), ">")
TextBox11 = Format(ActiveSheet.Cells(index, 11), ">")
TextBox12 = Format(ActiveSheet.Cells(index, 12), ">")
End Sub

MERCI POUR VOTRE AIDE TALLIA 🙂

 

[excalibur]

Re : Tri dans une combobox

bonjour tallia64 le forum comme cela pas facile de comprendre exactement ce que tu veux faire zip un bout de ton fichier avec le resultat excompte

 

[tallia64]

Re : Tri dans une combobox

bonjour merci pour votre réponse. En fait dans ma combobox je fais une rechercher par rapport à un numéro de badge (1,2...) qui se situe dans mon tableau dans la colonne E. Et quand je clique sur ma combobox je souhaiterais que le tri se fasse sur le numéro du badge . Je vous mets ci joint le code de mon userform. J'espère avoir été assez claire dans mes propros. Un grand merci pour votre aide
TALLIA

Private Sub userform_initialize()
Frame1.Visible = False

'La combo sélectionne un à un
ComboBox1.RowSource = "service_general!e3:e3000"
ComboBox1.Value = ""
index = Range("e65536").End(xlUp).Row - 1 '2

End Sub

 

[BOISGONTIER]

Re : Tri dans une combobox

Bonjour,

Exemple:

Listes Triées

JB

 

[tallia64]

Re : Tri dans une combobox

bonjour merci beaucoup pour votre réponse je vais tester le code.
tallia

 

[tallia64]

Re : Tri dans une combobox

rebonjour j'ai essayé de l'adapter à mon code mais sans succés.
Merci pour votre aide.
tallia

 

[tallia64]

Re : Tri dans une combobox

Rebonjour à vous tous je viens de trouver le bon code pour trier ma combobox. Le voici si cela peut aider d'autres personnes. Un grand merci TALLIA

Private Sub userform_initialize()
Frame1.Visible = False
Range("F2").Select
Range("A2:L300").Sort Key1:=Range("E3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
'La combo sélectionne un à un
ComboBox1.RowSource = "service_general!e3:e3000"
ComboBox1.Value = ""
index = Range("e65536").End(xlUp).Row - 1 '2
End Sub

 

[Mosar3]

Re : Tri dans une combobox

Bonjour, j'ai essayé ce code en changeant le nom de la combobox et le row source mais ça ne marche pas.
J'imagine qu'il y a d'autres choses à changer mais comme je sais pas lesquelles j'y arrive pas!
Pouvez-vous m'aider svp??
Merci!
a bientôt

 

[tallia64]

Re : Tri dans une combobox

bonjour en fait le code que je vous ai envoyé il faut le placer dans votre userform_initialise. Dans votre userform dans votre combobox vous mettez le code suivant
Private Sub ComboBox1_Change()
index = ComboBox1.ListIndex + 3
Frame1.Visible = True
On Error Resume Next
TextBox1 = Format(ActiveSheet.Cells(index, 1), ">")
End Subet pour terminer dans mon userform j'ai rajouter un bouton pour valider dont voici le code:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Bon courage TALLIA

 

[Mosar3]

Re : Tri dans une combobox

Bonjour,
Ce code ne sert que à trier la source du combobox non?
En tout cas c'est ce qu'il me fait et c'est problématique car cette feuille ne doit pas être modifiée...

Frame1.Visible = False
Range("F2").Select
Range("A2:L300").Sort Key1:=Range("C4"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
'La combo sélectionne un à un
NomDesClients.RowSource = "vraiclientss!C4:C400"
NomDesClients.Value = ""
Index = Range("e65536").End(xlUp).Row - 1 '2

J'ai mis en rouge ce que j'ai changé au code, que par ailleur je n'ai pas compris lol.
Est-ce que j'ai changé les bonnes choses?
Y a t il d'autres choses à changer?
Est-ce que le code n'est pas adapté à mon cas?

Merci de vos réponses
A bientôt

Mosar3​

 

[tallia64]

Re : Tri dans une combobox

bonjour oui ce code sert à trier dans la combobox car je m'en sers pour trier des numéros de badge de 1 à.... dans mon userform. Par contre je ne comprends pas trés bien votre demande désolée.
Bon courage Tallia.

 

[Mosar3]

Re : Tri dans une combobox

Bonjour,
J'ai créé une userform qui mes sert de formulaire avec des cases à cocher en fonctions des choix des clients.
Sauf que je doit avoir le nom du client dont je rempli la commande quand je la rempli.
Je crée donc une combobox qui va chercher le nom des clients dans une feuille qui les contient. Le nom des clients est mis au court du temps dans cette feuille et chaque fois qu'il y en a un nouveau, on le rajoute à la suite. Ils ne sont donc pas triés. Et avec 300 noms de clients, quand j'en cherche un en particulier, il faut que les noms soient triés.
Mais je n'ai pas le droit de changer l'ordre des noms de clients dans ma feuille excel.

Il faut donc que je dise à ma combobox : prend les noms des clients de là à là, copie les, puis tri les.
Est-ce que c'est ce que fait ton code?
Si oui, comme ça ne le fait pas avec moi, c'est donc que je n'ai pas changé les bonnes choses dans le code. Est-ce le cas?
Merci de porter attention à mon problème
Bonne journée
Mosar3

 

[tallia64]

Re : Tri dans une combobox

bonjour je comprends mieux mais le problème est qu'avec mon code quand tu tries dans le userform automatiquement il trie dans la feuille excel. il faut surement changer dans le code la condition par rapport à l'ordre mais je ne sais pas comment l'adapter à ta situation. je vais regarger si je trouve je te renvoie un message.
Bon courage tallia

 

[Mosar3]

Re : Tri dans une combobox

Bonjour,
Merci beaucoup c'est très gentil mais je ne crois pas que ce soit possible j'ai vraiment beaucoup cherché dans beaucoup de forums.
Mais si tu trouve dit le moi stp lol!

Je vais essayer de me débrouiller en créant une copie de la feuille des clients sur laquelle je pompe les données...bref je vais voir ce que ça donne!

Merci beaucoup et bonne journée
Mosar3

 

[roro69]

Re : Tri dans une combobox

Bonjour à tous;bonjour mosar
Voici un exemple qui pourra peut etre t'aider
A++