XL 2019 Aide formule recherche texte

[fl0uis]

Bonjour;
J'aurai besoin d'un coup de main avec un fichier Excel.
Mon problème c'est que j'ai une plage contenant du texte avec la mention "KO" et "OK" dans plusieurs cases.

(example : Facture(s)-KO( ) Frais de rejet-KO( ) Proposition CB Tiers-KO( ) Montant-OK/Motif rejet-OK/Sms de confirmation-OK/Délai de réactivation-OK/Cheque-OK/Virement-OK/)

Je souhaite avoir une formule qui me renvoie que les textes avec la mention "KO" de toutes les cases et les regroupe en une ligne

example :

Facture(s)-KO/ Frais de rejet-KO/ Proposition CB Tiers-KO/

je vous ai mis le fichier en PJ

.P.S : désolé pour mon français, ce n'est pas ma langue natale.

 

[sousou]

bonjour
Un fonction perso
appelée comme ceci par exemple =mafonction("KO";A3:A23)



Function mafonction(v, zone)
phrase = ""
For Each i In zone
phrase = phrase & anal(i.Value, v)

Next
mafonction = phrase
End Function

Function anal(valeur, v)
n = 1: nf = 1
While nf > 0
nf = InStr(n, valeur, v)
If nf > 0 Then p = p & Mid(valeur, n, nf - n + Len(v)) & "/"
n = nf + 2
Wend
If p <> "" Then anal = Right(p, Len(p) - 1)
End Function

 

[fl0uis]

Bonjour sousou,

Que doit-je faire pour l'integrer a mon fichier stp ?

 

[fl0uis]

bonjour
Un fonction perso
appelée comme ceci par exemple =mafonction("KO";A3:A23)



Function mafonction(v, zone)
phrase = ""
For Each i In zone
phrase = phrase & anal(i.Value, v)

Next
mafonction = phrase
End Function

Function anal(valeur, v)
n = 1: nf = 1
While nf > 0
nf = InStr(n, valeur, v)
If nf > 0 Then p = p & Mid(valeur, n, nf - n + Len(v)) & "/"
n = nf + 2
Wend
If p <> "" Then anal = Right(p, Len(p) - 1)
End Function

Bonjour sousou, que doit-je faire pour l'integrer a mon fichier stp ?

 

[sousou]

Ton fichier (xlsm)

 

[fl0uis]

Ton fichier (xlsm)

un grand merci à toi , c'est exactement ce quil me fallait.

Bonne journée.