Ordre alphabetique

[bobjean]

Bonjour a tous

voila j'ai essayer plein de formule que j'ai trouvé ici mais rien ne marche

pourriez vous m'aider? j'aimerai simplement que les nom en désordre se trouvant dans la colonne C soit remise dans l ordre dans la colonne A.
Et cela en effacant les cases vides et en effacant les doublons

Niveau doublons et espaces vides, je devrais savoir le faire, mais le plus important est la formule qui mettra tout par ordre alphabétique

merci

 

[BOISGONTIER]

Re : Ordre alphabetique

Bonjour,

Avec la fonction matricielle SansDoublonsTrié(), le temps de réponse est correct.

Function SansDoublonsTrié(champ As Range)
Set MonDico = CreateObject("Scripting.Dictionary")
temp = champ
For i = 1 To UBound(temp, 1)
If Not MonDico.Exists(temp(i, 1)) And temp(i, 1) <> 0 Then
MonDico.Add temp(i, 1), temp(i, 1)
End If
Next i
a = MonDico.items
j = UBound(a)
Call tri(a, 0, j)
SansDoublonsTrié = Application.Transpose(a)
End Function

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

 

[bobjean]

Re : Ordre alphabetique

Peut etre que pour toi le delai est raisonnable mais dans mon cas, j ai enormement de donnée

j'aimerai juste que la suppression des doublons et le tri ne se face que lorsque je clique sur un bouton de commande

est ce possible?

 

[bobjean]

Re : Ordre alphabetique

y a t il moyen d'activer l'ordre alphabétique et le retrait des doublons et des celulle vide lors d'un clique a un bouton?

merci