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
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
A voir également:
- Recherche avec résultat multiple qui va s'afficher dans une seule cellule
- Aller à la ligne dans une cellule excel - Guide
- Recherche musique - Guide
- Excel cellule choix multiple - Guide
- Google recherche par image - Guide
- Verrouiller cellule excel - Guide
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
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
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
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
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?
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
1 juin 2020 à 14:03
Modifie ainsi la macro
Et coche Renvoyer à la ligne automatiquement dans le format de la cellule résultat
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