XL 2010 recherche de nombre entre différents caratères

[thierry974]

Bonjour à tous,

Voila je travaille actuellement sur une formule qui marche mais pas tout le temps malheureusement. Alors le problème c'est que je recherche un nombre entre 2 caractères dans une cellule mais qui peut être placé à diffèrent endroit dans la cellule. Exemple dans une cellule j'ai:

25+15dr la je recherche le chiffre avant "dr" cad 15
mais quand j'ai 25+15dr+2pr la il y a problème tout en sachant que la formule peut être aussi 25+2pr+15dr mais moi je recherche toujours ce nombre 15 et il est pas forcement composé de 2 chiffres.

Merci dans tout les cas

 

[Staple1600]

Bonjour

Malheureusement ne fonctionne qu'à partir d'Excel 2013

=SUBSTITUE(FILTRE.XML("<t><s>"&SUBSTITUE(A1;"+";"</s><s>")&"</s></t>";"//s[contains(.,'dr')]");"dr";"")

Test OK sur mon Excel 2013

 

[Staple1600]

Re

Voila le résultat de mon test

EDITION: j'ai retesté en déplaçant la position du dr
16cr+25+15dr+23pr
25+155dr
48+pr25+1600dr+58+98
Cela fonctionne également
La seule contrainte c'est qu'il ne doit y avoir qu'une seule occurrence de dr dans la cellule.

 

[thierry974]

Re

Voila le résultat de mon test
Regarde la pièce jointe 1133548

merci beaucoup
marche très bien sur mon excel 2019 mais je dois le testé sur celui de mon taf qui est lui de 2010

 

[thierry974]

Bon après mon test ne marche pas sur excel 2010 dommage

 

[JHA]

Bonjour à tous,

Peut être un début de piste

=STXT(A6;CHERCHE("+";A6;(CHERCHE("DR";A6)-1)-4)+1;CHERCHE("DR";A6)-1-CHERCHE("+";A6;(CHERCHE("DR";A6)-1)-4))

JHA

 

[thierry974]

Pour info j'envoie le fichier comme exemple

 

[thierry974]

et merci c'est un bon début sauf qu'il faut que je le fasse sur les autres aussi

 

[thierry974]

Malheureusement pour moi mais Staple avait grave la solution mais comment le faire avec un excel 2010

 

[mapomme]

Bonjour à tous
Une autre formule qui doit fonctionner avec toutes les versions d'Excel.:

=CNUM(DROITE(SUBSTITUE(GAUCHE(A1;CHERCHE("dr";A1)-1);"+";REPT(" ";250));250))

 

[Jacky67]

merci beaucoup
marche très bien sur mon excel 2019 mais je dois le testé sur celui de mon taf qui est lui de 2010

Bonjour à tous
Sinon en fonction perso (toute version)

Function ChiffreAvantDR(cellule)
    Dim TMP, C
    TMP = Split(cellule, "+")
    For Each C In TMP
        If UCase(Right(C, 2)) = "DR" Then ChiffreAvantDR = Left(C, Len(C) - 2) * 1: Exit Function
    Next
End Function

Et dans une cellule

=ChiffreAvantDR(A1)

 

[thierry974]

Bonjour à toi et encore merci fonctionne parfaitement

 

[thierry974]

Merci encore à tout le monde vous m
'enlevez une grosse épine du pied la

 

[Jacky67]

Merci encore à tout le monde vous m
'enlevez une grosse épine du pied la

Certainement que mapomme a tiré très fort (sur l'épine)

 

[thierry974]

c'était un one shot la