XL 2010 listes et dépendances

[poipoi]

Bonjour toute l'équipe,
Voici mon souci du jour et mes capacités sont largement en deçà de ce que je voudrais trouver.
Dans le tableau joint, je voudrais avoir en L4:L... la liste des valeurs uniques, extraites de la liste Fournisseurs et correspondant au type inscrit en K4!!
j'espère que vous arriverez à comprendre c'est un peu brouillon comme explication, mais en gros: si en K4 je choisis "Matériel" je souhaiterais avoir en L4 "Décathlon" en L5 "Fnac" en L6 "Xtrem Sport"...
je m'y perds dans les formules imbriquant Index, Equiv....
Auriez-vous une idée? un grand merci déjà...

 

[djidji59430]

Bonjour à tous,

regarde si ça te convient :

 

[poipoi]

Bonjour à tous,

regarde si ça te convient :

Bonjour djidji59430

et merci beaucoup de t'être intéressé à ce post,
effectivement on s'approche du résultat sauf qu'en L5 je n'ai pas Fnac ou Xtrem Sport, en fait de L4 à L.. je souhaite les valeurs unique issues de D4😀.. si c'est possible bien sûr !

 

[job75]

Bonjour poipoi, djidji59430, le forum,

Formule matricielle en L4 :

=SIERREUR(INDEX(D:D;PETITE.VALEUR(SI((E$4:E$100=K$4)*ESTNUM(LN((LIGNE(D$4:D$100)=EQUIV(D$4:D$100;D$1:D$100;0))));LIGNE(D$4:D$100));LIGNE(L1)));"")

à valider par Ctrl+Maj+Entrée et tirer vers le bas.

La limite $100 est à adapter au tableau source.

A+

 

[poipoi]

Bonjour poipoi, djidji59430, le forum,

Formule matricielle en L4 :

=SIERREUR(INDEX(D:D;PETITE.VALEUR(SI((E$4:E$100=K$4)*ESTNUM(LN((LIGNE(D$4:D$100)=EQUIV(D$4:D$100;D$1:D$100;0))));LIGNE(D$4:D$100));LIGNE(L1)));"")

à valider par Ctrl+Maj+Entrée et tirer vers le bas.

La limite $100 est à adapter au tableau source.

A+

Bonjour Job75
Un grand merci c'est exactement ce que je voulais,
du coup mon samedi est tout ensoleillé!!

Portez vous bien.. et encore merci à tous ceux qui donnent de leur temps.

 

[poipoi]

re le forum,
au fait comment mettre "résolu" en entête de message, je ne m'en souviens plus

 

[job75]

A droite du post #4 il y a une coche verte, cliquez dessus pour que le post soit considéré comme solution.

 

[poipoi]

Désolé je reviens sur ce fichier car la solution proposée par Job75 m'a donnée une idée pour compléter mon tableau, j'explique:
je rajoute une colonne après L qui se nomme "Objet", du coup en M je voudrais selon le même principe avoir en M4:M... l'Objet qui correspond à chaque "Fournisseur". Ainsi, si Décathlon est en L4 , M4= "sac à dos"; M5="Casquette"; M6="housse..." ainsi de suite pour Décathlon, ensuite il y aura Fnac avec en M9=" Batterie..." etc..

mais depuis tout à l'heure mes capacités n'ont que très peu évoluées, alors s'il se trouve quelqu'un.e parmi vous qui veut s'y coller, j'ai de la rhubarbe au jardin et je lui fait une tarte rhubarbe-fraises.

 

[djidji59430]

Re
avec tableaux structurés
Ta nouvelle demande est contraire a ce que tu as demandé en premier "je souhaite les valeurs uniques issues de D4😀

 

[poipoi]

Merci Djidji59430
mais apparemment Excel refuse d'ouvrir ce fichier avec un message: il est en mode protégé et sa modif risque d'endommager le PC...

Tu as raison sur le 1er point, ma demande diffère dans le sens où maintenant je souhaite hiérarchiser les objets par fournisseurs, donc en K4 le Type de dépense, donc à partir de L4:L... le 1er Fournisseur, et en L...(+1) le 2e Fournisseur etc.., et en face de chaque fournisseur l'objet

mais si cela est trop ardu il faut laisser tomber !!

 

[job75]

Si j'ai bien compris, formule matricielle en M4, à tirer vers la droite et le bas :

=SIERREUR(INDEX($C:$C;PETITE.VALEUR(SI(($E$4:$E$100=$K$4)*($D$4:$D$100=$L4);LIGNE($D$4:$D$100));COLONNE(A4)));"")

Si ce n'est pas ça soyez plus clair.

 

[poipoi]

Si j'ai bien compris, formule matricielle en M4, à tirer vers la droite et le bas :

=SIERREUR(INDEX($C:$C;PETITE.VALEUR(SI(($E$4:$E$100=$K$4)*($D$4:$D$100=$L4);LIGNE($D$4:$D$100));COLONNE(A4)));"")

Si ce n'est pas ça soyez plus clair.

Oui je ne suis pas très explicite, voici une copie d'écran qui devrait permettre de comprendre:

 

[djidji59430]

et tu es toujours en excel 2010 ? avec sierreur() ???

Crdlmt

 

[poipoi]

et tu es toujours en excel 2010 ? avec sierreur() ???

Crdlmt

Oui...

 

[job75]

Bonjour poipoi, le forum,

Obtenir le résultat que vous souhaitez n'est pas évident par formules.

Avec cette macro dans le code de Feuil1 c'est relativement simple :

Private Sub Worksheet_Change(ByVal target As Range)
Dim critere$, dest As Range, tablo, i&
critere = [K4]
Set dest = [L3:N3] '3 colonnes
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With Range("B3:F" & Range("B" & Rows.Count).End(xlUp).Row)
    dest.Resize(Rows.Count - dest.Row + 1).ClearContents 'RAZ
    .AutoFilter 4, critere 'filtre automatique
    .Columns(3).Copy dest(1)
    .Columns(2).Copy dest(2)
    .Columns(5).Copy dest(3)
    .AutoFilter 4 'ôte le filtre
End With
With Range(dest, Cells(Rows.Count, dest.Column).End(xlUp))
    .Sort .Columns(1), xlAscending, Header:=xlYes 'tri sur la 1ère colonne
    tablo = .Value 'matrice, plus rapide
    For i = UBound(tablo) To 2 Step -1
        If tablo(i, 1) = tablo(i - 1, 1) Then tablo(i, 1) = ""
    Next
    .Columns(1) = tablo
    .Cells(.Rows.Count + 1, 3) = "=SUM(" & .Columns(3).Address(0, 0) & ")" 'total
    .Offset(.Rows.Count).Resize(Rows.Count - .Rows.Count - .Row + 1).Borders.LineStyle = xlNone 'effacement des bordures
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

A+