Recherche avec résultat multiple qui va s'afficher dans une seule cellule

Fermé
Oxmut1 Messages postés 2 Date d'inscription lundi 1 juin 2020 Statut Membre Dernière intervention 1 juin 2020 - 1 juin 2020 à 11:40
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 - 1 juin 2020 à 14:03
Bonjour,

je suis entrain de mettre en place avec un plan d'action sur excel.
J'ai défini des catégories, et pour chaque catégorie, il peut y avoir plusieurs actions.
Ex:
Colonne 1 et ligne 2 à 4: Catégorie 1
Colonne 2 et ligne 2 : Action 1
Colonne 2 et ligne 3 : Action 2
Colonne 2 et ligne 4 : Action 3
...
Dans une autre feuille, je voudrais faire une recherche sur la colonne 1 avec avec comme résultat la même cellule les informations qui sont dans les lignes 1 à 4.
Le but est d'avoir toutes les actions dans la même cellule sur base de la recherche.

Merci d'avance,
A voir également:

3 réponses

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
1 juin 2020 à 13:30
Bonjour

Un exemple à l'aide d'une fonction personnalisée
https://mon-partage.fr/f/bQbRHxjg/

Syntaxe de la fonction : = actions(cellule de la catégorie cherchée)

Cdlmnt
Via
0
Oxmut1 Messages postés 2 Date d'inscription lundi 1 juin 2020 Statut Membre Dernière intervention 1 juin 2020
1 juin 2020 à 13:35
Merci beaucoup, cependant comment puis-je afficher les actions l'un en dessous de l'autre sans les virgules mais plutôt avec des renvoie à la ligne entre chaque action?
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
1 juin 2020 à 14:03
Modifie ainsi la macro
Function actions(plage As Range)
cat = plage.Value
With Sheets("Feuil1")
For n = 1 To .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
If .Range("A" & n) = cat Then ac = ac & .Range("B" & n) & Chr(10)
Next
End With
actions = ac
End Function

Et coche Renvoyer à la ligne automatiquement dans le format de la cellule résultat

0