XL 2019 Aide formule recherche texte

fl0uis

XLDnaute Nouveau
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.
 

Pièces jointes

  • test.xlsx
    9.4 KB · Affichages: 6

sousou

XLDnaute Barbatruc
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

XLDnaute Nouveau
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 ?
 

Statistiques des forums

Discussions
312 929
Messages
2 093 716
Membres
105 794
dernier inscrit
mallet