Récup de plusieurs valeurs sur un filtre automatique

Le
Eric549
Bonjour à tous

Merci à tous ceux qui m'ont apporté leur aide jusqu'à présent

J'ai un filtre automatique sur la colonne E:E avec les valeurs
suivantes

DRH
ECO
FIN

Je récupère la valeur lorsque qu'elle est filtrées avec la formule
matricielle suivante :

=INDEX(E13:E1000;EQUIV(1;(SOUS.TOTAL(3;INDIRECT("e"&LIGNE(13:1000))));
0))

exemple : Cette formule récupérer DRH si filtre sur DRH

Comment peux-ton lorsque le filtre est sur l'option Tous

Récupérer DRH+ECO+FIN dans une cellule

Merci pour vos réponses
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #21472591
Bonjour,

Fonction perso dans un module

Function ListeItems(col)
Application.Volatile
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Application.Index([_FilterDataBase].Offset(1), , col)
mondico(c.Value) = c.Value
Next c
For Each c In mondico.items
temp = temp & c & " "
Next c
ListeItems = Trim(temp)
End Function

=listeitems(5)


http://cjoint.com/?dFqhNkmBNS


JB



On 31 mar, 10:18, Eric549
Bonjour à tous

Merci à tous ceux qui m'ont apporté leur aide jusqu'à présent

J'ai un filtre automatique sur  la colonne E:E avec les valeurs
suivantes

DRH
ECO
FIN

Je récupère la valeur lorsque qu'elle est filtrées avec la formule
matricielle suivante :

 =INDEX(E13:E1000;EQUIV(1;(SOUS.TOTAL(3;INDIRECT("e"&LIGNE(13:1000))) );
0))

exemple : Cette formule récupérer DRH si filtre sur DRH

Comment peux-ton lorsque le filtre est sur l'option Tous

Récupérer DRH+ECO+FIN dans une cellule

Merci pour vos réponses
Eric549
Le #21476051
On 31 mar, 16:07, JB
Bonjour,

Fonction perso dans un module

Function ListeItems(col)
  Application.Volatile
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Application.Index([_FilterDataBase].Offset(1), , col)
    mondico(c.Value) = c.Value
  Next c
  For Each c In mondico.items
    temp = temp & c & " "
  Next c
  ListeItems = Trim(temp)
End Function

=listeitems(5)

http://cjoint.com/?dFqhNkmBNS

JB

On 31 mar, 10:18, Eric549
> Bonjour à tous

> Merci à tous ceux qui m'ont apporté leur aide jusqu'à présent

> J'ai un filtre automatique sur  la colonne E:E avec les valeurs
> suivantes

> DRH
> ECO
> FIN

> Je récupère la valeur lorsque qu'elle est filtrées avec la formul e
> matricielle suivante :

>  =INDEX(E13:E1000;EQUIV(1;(SOUS.TOTAL(3;INDIRECT("e"&LIGNE(13:1000) )));
> 0))

> exemple : Cette formule récupérer DRH si filtre sur DRH

> Comment peux-ton lorsque le filtre est sur l'option Tous

> Récupérer DRH+ECO+FIN dans une cellule

> Merci pour vos réponses



bonjour
merci pour cet excellent code
en en effet ce code permet de récupérer les champs voulus
sauf que j'utilise dans ce classeur
la formule suivante qui selon le filtre sélectionné , renvoie une
sélection en cel G1

=INDEX(E13:E1000;EQUIV(1;
(SOUS.TOTAL(3;INDIRECT("e"&LIGNE(13:1000))));

comment intégrer si je sélectionne l'option Tous , l'envoi de
plusieurs valeurs en G1
avec la formule citée plus haut et seulement la sélection lorsque un
choix est effectué
merci pour vos réponses
Publicité
Poster une réponse
Anonyme