[résolu] quelle formule pour......

[dilack]

salut à tous,
je cherche à savoir quelle formule qui me premettrais de faire un tri sur une colone.

Eléments de base:
A1:RIRI
A2:RIRI
A3:FIFI
A4:LOULOU
A5: RIRI
A6: FIFI
A7:LOULOU

Résultat escompté dans colonne B:
B1: RIRI
B2:FIFI
B3: LOULOU

merci d'avance de vos réponses:

@+
Laurent

 

[haonv]

Re : quelle formule pour......

Bonjour,

Deux solutions par formules, suivant la version excel utilisée.

Amicalement

 

[dilack]

Re : quelle formule pour......

merci pour ta formule tu m'as mis sur la voix

@+
laurent

 

[R@chid]

Re : [résolu] quelle formule pour......

Bonsoir @ tous,
Une autre plus rapide et permet aussi le tri,
==> Sélectionner la plage B1:B7
==> Coller cette formule dans la barre de formule

=SIERREUR(INDEX(A1:A7;EQUIV(PETITE.VALEUR(SI(EQUIV(A1:A7;A1:A7;0)=LIGNE(A1:A7);NB.SI(A1:A7;"<"&A1:A7));LIGNE(A1:A7));NB.SI(A1:A7;"<"&A1:A7);0));"")

==> Valider par Ctrl+Maj+Entree

Voir ce lien

@ + +

 

[Dull]

Re : [résolu] quelle formule pour......

Salut le Fil,

Une autre façon de faire avec Macro

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dico As Object, C As Range, DerLig As Long
DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
        Range("H2:H" & DerLig).ClearContents
        Set Dico = CreateObject("Scripting.Dictionary")
        For Each C In Range("A1:A" & DerLig)
        Dico(C.Value) = ""
        Next C
        [H2].Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
        [H1].Sort Key1:=[H2], Order1:=xlAscending, Header:=xlYes
Application.ScreenUpdating = True
End Sub

Bonne Journée

 

[haonv]

Re : [résolu] quelle formule pour......

Bonjour à tous,

Merci Rachid pour le lien et les explications.Je me demandais pourquoi certaines matricielles étaient plus rapides que d'autres.
J'ai une réponse claire.
Reste à suivre le cheminement de la formule.

Amicalement