COMBOBOX et ORDRE ALPHABETIQUE

Hulk

XLDnaute Barbatruc

• 30 Avril 2012

• #2

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 🙂

 

Pièces jointes

• Main.zip

  686 bytes · Affichages: 30
• Main.zip

  686 bytes · Affichages: 32
• Main.zip

  686 bytes · Affichages: 33

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 30 Avril 2012

• #3

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.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 30 Avril 2012

• #4

Re : COMBOBOX et ORDRE ALPHABETIQUE

Bonjour,

Listes Triées

JB

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 30 Avril 2012

• #5

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.

 

Pièces jointes

• XHUDI_1.xlsm

  54.1 KB · Affichages: 50
• XHUDI_1.xlsm

  54.1 KB · Affichages: 48
• XHUDI_1.xlsm

  54.1 KB · Affichages: 46

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 30 Avril 2012

• #6

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.

 

Pièces jointes

• XHUDI_1.xlsm

  54.1 KB · Affichages: 35
• XHUDI_1.xlsm

  54.1 KB · Affichages: 42
• XHUDI_1.xlsm

  54.1 KB · Affichages: 43

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 30 Avril 2012

• #7

Re : COMBOBOX et ORDRE ALPHABETIQUE

Voir PJ

Code:

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

 

Pièces jointes

• Copie de XHUDI_1.xls

  89 KB · Affichages: 58

Dernière édition: 30 Avril 2012

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 30 Avril 2012

• #8

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.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 8 Mai 2012

• #9

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.

 

Pièces jointes

• TIME_CONTROL_V4 - Copie.xlsm

  156.7 KB · Affichages: 40

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 9 Mai 2012

• #10

Re : COMBOBOX et ORDRE ALPHABETIQUE

Bonjour le forum,

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

 

Vote positif 0 Vote négatif