Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 wrote:
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 :
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,
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 <qmike...@gmail.com> wrote:
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 :
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 wrote:
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 :
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
On 31 mar, 16:07, JB wrote:
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 wrote:
> 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 :
> 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
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
On 31 mar, 16:07, JB <boisgont...@hotmail.com> wrote:
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 <qmike...@gmail.com> wrote:
> 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 :
> 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
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
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 wrote:
> 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 :
> 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
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