COMBOBOX et ORDRE ALPHABETIQUE

[xhudi69]

Bonjour le Forum,

dans le USF en onglet Contact j'aimerais que le COMBOBOX me donne les noms par ordre alphabétique sans pour autant modifier la base, est-ce possible ?

Autre question, au survole du pointeur de souris sur les boutons, j'aimerais qu'il se transforme en "main", je ne l'ai pas trouvé dans les propriétés.

Merci pour vos réponse 🙂

 

[Hulk]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Hello xhudi, Forum 🙂

Pour la ComboBox par ordre alphabétique tu as le choix en regardant la liste qui est proposée en bas de la page dans "Discussions similaires".

En ce qui concerne le pointeur c'est facile.

1) Click-Droit sur le bouton (ou autres objets) puis "Propriétés"
2) Dans la propriété "MousePionter" tu mets à 99
3) Dans la propriété "MouseIcon" tu vas chercher l'icône que tu veux.

Ensuite c'est bon.

Par contre la main n'est pas facile à trouver... Cadeau en fichier joint 🙂

 

[xhudi69]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Bonjour HULK,

merci pour le cadeau, en effet cela n'est pas facile.

je me fait les canines sur les liens ci dessous et reviens ASAP

merci encore.

 

[BOISGONTIER]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Bonjour,

Listes Triées

JB

 

[xhudi69]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Re:
bonjour BOISGONTIER et merci pour votre excellent lien, j'étais, depuis cetemps sur vos code, à essayer de les adapter: je me suis gauffrer 🙁 et n'étant pas assez fort en VBA je fais appel à vous pour me guider.
en pièce jointe mon fichier avec votre code dans l'USF, merci de me dire là ou j'ai fauté.

merci pour votre travail.

 

[xhudi69]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Re:
Monsieur BOISGONTIER, pourquoi ce second code parait-il fonctionné alors que le précédent, non?, je ne voudrais pas me coucher ce soir plus idiot que ce matin 😉.

est-il vrai que certain code de tri sont plus rapide que d'autres?
celui-ci l'est-il?
a terme la liste comprendra environ 1500 noms, est-ce préjudiciable?

merci pour vos éclaircissements.

 

[BOISGONTIER]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Voir PJ

Private Sub UserForm_Initialize()
  Set f = Sheets("BASE")
  temp = Application.Transpose(Range(f.[a2], f.[a2].End(xlDown)).Value)
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
End Sub

Sub Tri(a, gauc, droi) ' Quick sort
  ref = UCase(a((gauc + droi) \ 2))
  g = gauc: d = droi
  Do
    Do While UCase(a(g)) < ref: g = g + 1: Loop
    Do While ref < UCase(a(d)): d = d - 1: Loop
    If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = temp
       g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call Tri(a, g, droi)
  If gauc < d Then Call Tri(a, gauc, d)
End Sub

Pour 10.000 nombres, le temps de tri avec Quick-sort est de 0,04 seconde (linéaire).
Il ne faut pas utiliser les tris du type buble-sort (le temps de tri est proportionnel à N x N)

JB

 

[xhudi69]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Re:
merci infiniment pour ces explications et le code adapté, mon GANTT est quasiment terminé, c'est notre super commerciale qui vat être contente.
merci BOISGONTIER pour votre site très bien fait, vive les FREENAUTES.

 

[xhudi69]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Bonjour le forum,
j'ai voulu adapter le code pour les listes triées de BOISGONTIER, que je remercie encore une fois, sur un autre fichier (merci HAONV et ROBERT) qui a la même structure de listes que le précédant, mais voilà, à l'appel de UserForm1 j'ai un msgbox qui me dit
"erreur de compilation: tableau attendu" avec LBound surligné en bleu.
j'aimerais comprendre pourquoi.
Merci à tous.

 

[xhudi69]

Re : COMBOBOX et ORDRE ALPHABETIQUE

Bonjour le forum,

désolé pour le petit up mais j'aimerais comprendre le pourquoi, merci à vous tous.