XL 2016 Extraction texte à partir de la fin d'une chaine de caractère

Dugenou

XLDnaute Barbatruc

• 18 Septembre 2020

• #2

Bonjour,
Une solution "de bourrin" si la température est toujours mesurée 4 fois dans votre texte :
=CHERCHE("(Température,";A5;CHERCHE("(Température,";A5;CHERCHE("(Température,";A5;CHERCHE("(Température,";A5)+1)+1)+1).
Sinon, il faudra passer par du VBA.
Cordialement

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 18 Septembre 2020

• #3

Bonjour,
Salut DUGENOU,
Avec une fonction perso (VBA)
Voir fichier joint
@+ Lolote83

 

Pièces jointes

• Copie de LOULOURAV - Extraction fin.xlsm

  14.5 KB · Affichages: 7

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Septembre 2020

• #4

Bonjour loulourav, le fil,

Je propose le fichier ci-dessous.

VB:

Option Explicit

Function Température(chn$) As Double
  Dim p1%, p2%
  p1 = InStrRev(chn, "Température,", -1, 1): If p1 = 0 Then Exit Function
  p2 = InStrRev(chn, "C°,", -1, 1): If p2 = 0 Then Exit Function
  p1 = p1 + 12: Température = Val(Mid$(chn, p1, p2 - p1 - 1))
End Function

soan

 

Pièces jointes

• extract fin.xlsm

  15.2 KB · Affichages: 6

Vote positif 0 Vote négatif

L

loulourav

XLDnaute Occasionnel

• 18 Septembre 2020

• #5

Bonjour a tous et merci pour vos contributions
Malheureusement non les constantes ne sont pas prises tjs 4 fois cela peut être 0 comme x fois ...
Il n'existe donc pas de possibilité hors VBA ? La destination du fichier s'oriente vers des non initiés j'aurais préféré un formule ...

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Septembre 2020

• #6

Re,

Je ne vois pas de solution sans VBA ; celle que j'ai proposée dans mon post #4
est indépendante du nombre de fois car c'est la dernière Température qui est
prise en compte.

soan

 

Vote positif 0 Vote négatif

L

loulourav

XLDnaute Occasionnel

• 18 Septembre 2020

• #7

J'ai étudié vos propositions @soan et @Lolote83 je découvre que l'on peut déclarer des macros en tant que fonction et ca c'est cool ! je suis encore bien trop en retard sur le VBA !
bref en tout cas les 2 solutions fonctionnent, j'aurais tendance à préférer celle de Lolote83 que j'arrive plus facilement à comprendre ^^
histoire de fignoler, le nb de caractère des T° n'est pas toujours le même des fois je vais avoir 38.2 des fois je vais avoir 38 tout court, l'extraction sur 4 caractère ne renvoit donc pas des valeurs très propre :

38.2
38.7
39 C
38.0
38.1
38.9
38.2
38.2
38.1
38 C
38 C
38.2

est possible d'ajuster ?

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Septembre 2020

• #8

Tu as écrit : « le nb de caractère des T° n'est pas toujours le même »

ok, mais s'il y a toujours les 3 caractères "C°," après la température,
alors mon code VBA fournit les bons résultats, sans changement.

soan

 

Vote positif 0 Vote négatif

L

loulourav

XLDnaute Occasionnel

• 18 Septembre 2020

• #9

Effectivement elle fonctionne parfaitement !
pourrais tu stp m'expliquer le fonctionnement de : InStrRev et de Val(Mid$(chn, p1, p2 - p1 - 1))
je pense avoir compris mais je ne connais pas du tout ces fonctions ...

merci

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Septembre 2020

• #10

chn1 : chaîne de caractères où l'on fait la recherche ; ici : chn$ (le A5 transmis)
chn2 : chaîne de caractères cherchée ; ici : "Température," ; puis "C°,"

InStr() cherche dans chn1, à partir du début, chn2
InStrRev() cherche dans chn1, à partir de la fin, chn2

InStrRev est l'abréviation de InStringReverse : dans la chaîne inversée ; car
effectivement, ça inverse d'abord la chaîne avant d'y faire la recherche.

Mid$() est l'équivalent VBA de la fonction STXT() ; ça retourne une
chaîne de caractères ; d'où le Val() pour convertir en nombre.

soan

 

Vote positif 0 Vote négatif

L

loulourav

XLDnaute Occasionnel

• 18 Septembre 2020

• #11

Génial merci beaucoup soan !

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 19 Septembre 2020

• #12

Salut LOULOURAV, SOAN,
Afin de corriger dans la macro le fait que l'on ai pas toujours 4 caractères, voici un rectificatif
A remplacer dans le code initial

VB:

Function Coupe(xCell As Range)
    xDecoupe = Split(xCell, "(Température,")
    xValeur = UBound(xDecoupe)
    xDegre = InStr(1, xDecoupe(xValeur), "C°")
    Coupe = Left(xDecoupe(xValeur), xDegre - 2)
End Function

@+ Lolote83

 

Vote positif 0 Vote négatif