Filtre élaboré et transposé

[fileofish]

Bonjour le forum,

Pouvez vous svp m'aider.
J'ai une liste de prénoms de A2:A21
Dans cette liste il peut y avoir des lignes vides et doublons

Je souhaiterais transposé cette plage A2:A21 en D22:W22 sans vides (les prenoms les uns à coté des autres) et sans doublons.

Cela ne me dérange pas qu'il y est une phase intermédiaire sur la feuille car cette feuille sera cachée.

Je joins un fichier cela sera peut être plus simple

Encore merci
Philippe

 

[R@chid]

Re : Filtre élaboré et transposé

Bonjour,
En D22,

=SIERREUR(INDEX($A2:$A21;EQUIV(0;SI($A2:$A21<>"";NB.SI($C22:C22;$A2:$A21));0));"")

@ valider par Ctrl+Maj+Entree
@ tirer vers la droite
@ + +

 

[fileofish]

Re : Filtre élaboré et transposé

Super thanks R@chid,

Bon week end
Philippe

 

[DoubleZero]

Re : Filtre élaboré et transposé

Bonjour, fileofish, R@chid 🙂, le Forum,

Une autre suggestion, par code :

Option Explicit
Sub Copier_transposer()
    Application.ScreenUpdating = False
    Range("a1:a21").Copy Destination:=Range("az1")
    Columns("az:az").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    [az1].Sort Key1:=[az2], Header:=xlGuess
    Columns("az:az").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("ba1"), Unique:=True
    Range("ba2:ba21").Copy
    Range("d22").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Columns("az:ba").Clear
    Range("d21").Select
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[fileofish]

Re : Filtre élaboré et transposé

Bonjour Double Zero,

Je ne t'ai pas remercié pour ton message et le temps que tu m'as consacré
Encore merci 🙂

 

[DoubleZero]

Re : Filtre élaboré et transposé

Bonjour, le Fil, le Forum,

Merci, fileofish, pour le retour 🙂.

A bientôt 🙂🙂

 

[fileofish]

Re : Filtre élaboré et transposé

Re-Bonsoir le Forum,
Suite à ma demande sans espace et doublons R@chid m'avait fait la formule suivante:
={SIERREUR(INDEX($A2:$A21;EQUIV(0;SI($A2:$A21<>"";NB.SI($C22:C22;$A2:$A21));0));"")}
Serait-il possible d'adapter la formule pour qu'elle accepte les doublons ?
Double zero m'avait proposé un code VBA mais comme le fichier est déjà mis en place cela n'est pas pratique.

Quelqu'un peut-il m'expliquer la formule de R@chid car la valeur cherchée (après equiv est 0)

Merci à tous
Philippe

 

[R@chid]

Re : Filtre élaboré et transposé

Bonsoir @ tous,
En D22,

=SIERREUR(INDEX($A2:$A21;EQUIV(PETITE.VALEUR(SI($A2:$A21<>"";NB.SI($A2:$A21;"<"&$A2:$A21));COLONNES($D:D));NB.SI($A2:$A21;"<"&$A2:$A21);0));"")

@ valider par Ctrl+Maj+Entree
@ tirer vers la droite
@ + +

 

[fileofish]

Re : Filtre élaboré et transposé

Merci R@chid,

Ça marche nickel 🙂
Est ce que je pourrais te prendre encore un peu de ton temps pour que tu m'explique les 2 formules ou 1 des 2 si tu n'as pas trop de temps.

Encore merci
Philippe

 

[R@chid]

Re : Filtre élaboré et transposé

@ supprimer
Merci

 

[fileofish]

Re : Filtre élaboré et transposé

Ca y est R@chid j'ai libéré de l'espace 🙂