formule recherche texte

[DjeDje]

Bonjour,

Voici mon problème: sous excel j'ai les valeurs suivantes dans les cases

A1 : toto
A2 : Tutu
A3 : toto

B1 : Grp1
B2 : Grp2
B3 : Grp3

ca donne :
A B
1 toto Grp1
2 tutu Grp2
3 toto Grp3

Je vroudrai une formule (ou autre) qui me donne dans une case toutes les valeur de la colonne B quand la valeur la colonne A est égale a un certain critère.

Par exemple:
Si le critére de recherche est toto la valeur retournée doit être : Grp1,Grp3
Si le critère de récherche est tutu la valeur retournée doit être : Grp2.

Merci de votre aide car je galère vraiment.
DjeDje

 

[sousou]

Bonjour.

Quand la fonction n'existe pas ile ne faut pas hésiter à l'inventer.
La fonction conc() va faire ce que tu cherches, tu devras certainement l'adapter à tes feuilles mais cela devrait t'aider.


déclare la fonction conc dans vb

Function conc(zone, var)
For Each i In zone
If i = var Then conc = conc & i.Offset(0, 1) & ","
Next

End Function

ce type de fonction est utilisable comme n'importe quelle autre fonction.
Zone représente la zone sur laquelle s'éffectue la recherche.
var la variable recherchée, (une valeur ou une cellule)
Dans ta feuille écrit
=conc(A1:A3;"toto")

 

[DjeDje]

Ok j'essaye de la faire, mais quand je met j'appelle la fonction vb, j'ai le résultat : #NOM?

 

[sousou]

Voila un l'exemple qui fonctionne sur mon poste.

la réponse ,#nom signifie qu'excel ne voit pas la déclaration de la fonction
Regarde le code vb de l'exemple.

 

[DjeDje]

Merci ))))))
ca marche, comme une grosse tanche, dans VB, j'avais mis la fonction dans ThisWorkbook au lieu de créer un nouveau module.

En tout cas merci beaucoup, j'étais coïncé depuis ce matin ))))

Dje