Probleme liste deroulante

[jrdubarry]

Bonjour

J'ai un ficher avec une base de donnée sur une autre feuille j'ai creer une fiche individuelle qui me permet de trouver toutes les infos du nom que j'ai selectionné. (Grace a votre aide et je vous en remercie)

Le probleme c'est que les noms sont dans l'ordre que j'ai rentré dans ma base de donnée.

Ma question est est ce que vous connaissez une solution pour les mettre dans l'ordre aphabetique..... Merci encore!!!!

 

[Paritec]

Re : Probleme liste deroulante

Bonsoir le forum JR dubarry
ton fichier en retour ( avec le bon fichier c'est mieux, je m'étais trompé!!)
a+
papou😱

 

[R@chid]

Re : Probleme liste deroulante

Bonsoir jrdubarry,
Bonsoir Paritec,
une solution par formule,
Voir PJ
Amicalement

 

[jrdubarry]

Re : Probleme liste deroulante

Merci beaucoup mais comment as tu fais ?

Car j'arrive a creer la liste deroulante mais apres c pas dans l'ordre alphabetique sauf si je la trie de AàZ dans ma base de donnée.

Merci

 

[Paritec]

Re : Probleme liste deroulante

Bonjour Rachid😱 jrdubarry
oui avec des colonnes en plus donc en modifiant la feuille, mais sans rien modifier??
je préfère de loin ma solution (c'est normal c'est la mienne)
a+
papou😱

 

[Paritec]

Re : Probleme liste deroulante

Re le forum
une version ou je n'ai pas oublié de remettre à zéro les valeurs ( si Jrdubarry ouvres mon fichier on ne sais jamais)
a+
papou😱

 

[BOISGONTIER]

Re : Probleme liste deroulante

Bonjour,

Voir PJ

Private Sub ComboBox1_Change()
  [B4] = Me.ComboBox1
End Sub

Private Sub ComboBox1_DropButtonClick()
  Dim temp()
  Set f = Sheets("2012")
  temp = Application.Transpose(f.Range("F3:F" & f.[F65000].End(xlUp).Row))
  Call Tri(temp(), LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
End Sub

Sub Tri(a(), gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < 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

JB