XL 2016 Détails d'une somme dans la cellule

[Carolus]

Bonjour à tous,

Je vais essayer d'expliciter au mieux ce que je voudrais obtenir dans une cellule. Je dispose d'un tableau en Feuil1 dans lequel j'ai une colonne 1 avec un type (A,B et C) qui peuvent renvoyer à une valeur différente (cf. pièce-jointe. Tableau 1). Dans un deuxième tableau en Feuil2 (cf. pièce-jointe. Tableau 2), je souhaiterais, dans la colonne "Détails", avoir les différentes valeurs de chaque type délimitées par un séparateur (ici "+", mais ça peut être un slash ou un tiret également).

Je vous remercie par avance du temps consacré à m'aider.

Bien à vous.

 

[sylvanu]

Bonjour Carolus,
En PJ un essai avec une fonction perso :

Function Détail(Valeur, Plage)
Dim tablo, Chaine As String, i As Integer
Chaine = "["
tablo = Plage
For i = 1 To UBound(tablo)
    If tablo(i, 1) = Valeur Then Chaine = Chaine & tablo(i, 2) & "-"
Next i
Détail = Mid(Chaine, 1, Len(Chaine) - 1) & "]"
End Function

Les fioritures [ ] et - sont évidemment modifiables.

 

[Carolus]

Merci beaucoup, cette fonction marche parfaitement !

J'aurais cependant besoin d'un petit complément. Lorsque la fonction ne trouve aucune valeur, la cellule renvoie l'erreur #VALEUR! . Dans ce cas, est-il possible de remplacer par la valeur 0 ?

 

[sylvanu]

Je ne trouve pas de cas avec #Valeur;
Quand il ne trouve rien il renvoie ]
J'ai modifié pour qu'il renvoie 0.

 

[Carolus]

Tout fonctionne comme je le souhaitais, merci !