Microsoft 365 Extraire des caractères

[julienha]

Bonjour,

Dans le fichier joint, j'aimerais extraire en, colonne B les caratères Tiers 1, Tiers 2 ou Tiers 3 des cellules de la colonne A.

Merci

 

[julienha]

avec le fichier

 

[eastwick]

Bonsoir... formule valable si vos informations en colonne A se terminent toujours de la même façon. Visiblement, c'est le cas

 

[sylvanu]

Bonjour Julienha,
Si "Tier 1" peut varier en longueur, peut être avec :

=STXT(A2;1+CHERCHE(">";A2);2+NBCAR(A2)-CHERCHE("</div>";A2))

 

[eastwick]

Autre formule, toujours fiable.
Bonne soirée

 

[Phil69970]

Bonjour @julienha

Formule non testée car je n'ai que excel 2010 mais qui devrait fonctionner sur 365
En B2 à tirer vers le bas

=TEXTE.AVANT(TEXTE.APRES(A2;">");"<")

 

[job75]

Bonjour à tous,

Ou encore en B2 :

=STXT(A2;TROUVE(">";A2)+1;TROUVE("</";A2)-TROUVE(">";A2)-1)

A+

 

[Hecatonchire]

Bonsoir à tous,

Ma proposition

=REGEX.EXTRAIRE(A2;"Tiers .")

Lire "Tiers" espace point

 

[julienha]

merci à tous pour vos propositions!

 

[JHA]

Bonjour à tous,

Il y a aussi Power Query pour extraire les "Tiers 1", "Tiers 2", "Tiers 3".

JHA

 

[job75]

Bonjour à tous,

Avec une fonction VBA :

Function Extract$(texte$, cherche$)
Dim p%
texte = Application.Trim(texte) 'SUPPRESPACE
p = InStr(texte, cherche)
If p = 0 Then Exit Function
Extract = cherche
If Mid(texte, p) Like cherche & "#*" Then Extract = cherche & Val(Mid(texte, Len(cherche) + p))
If Mid(texte, p) Like cherche & " #*" Then Extract = cherche & " " & Val(Mid(texte, Len(cherche) + p))
End Function

La 1ère occurrence est récupérée et la casse est respectée.

A+