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

Carolus · 21 Septembre 2020

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 · 21 Septembre 2020

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

sylvanu · 21 Septembre 2020

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

VB:

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 · 21 Septembre 2020

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 · 21 Septembre 2020

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

Carolus · 21 Septembre 2020

Tout fonctionne comme je le souhaitais, merci !

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

Carolus

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Carolus

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Carolus

XLDnaute Nouveau

Discussions similaires