VBA extraction de caractères depuis la droite

[SwimCoachNico79]

Bonjour,
Je cherche à extraire une chaîne de caractère en vba depuis la droite.
Exemple :
NOM prénom (2001) résultat 2001
NOM2 prenom2 (1995) résultat 1995
Quelqu'un peut il m'aider ?
Merci.
SCN

 

[Victor21]

Re : VBA extraction de caractères depuis la droite

Bonjour.

Essayez (Texte en A1) :
=STXT(DROITE(A1;6);2;4)

Edit : Pas vu VBA, dsl !

 

[Jack2]

Re : VBA extraction de caractères depuis la droite

Bonjour tout le monde,

S'il s'agit toujours d'extraire une date entre parenthèses, une solution en VBA :

chaine = "NOM prénom (2001)"
chaine = Mid(chaine, InStr(chaine, "("), Len(chaine))

Edit : sans les parenthèses

Chaine = Mid(Chaine, InStr(Chaine, "(") + 1, 4)

Pas tous compris de la fonction ExtractionDate. Il va falloir cogiter
A +Jack2

 

[excfl]

Re : VBA extraction de caractères depuis la droite

Bonjour le forum,

=SI(ESTNUM(STXT(A1;CHERCHE("(*)";A1;1)+1;1)*1);STX T(A1;CHERCHE("(*)";A1)+1;CHERCHE(")";A1)-CHERCHE("(*)";A1)-1);"")

excfl

 

[excfl]

Re : VBA extraction de caractères depuis la droite

Re,

Si le texte entre parenthèses est alphanumérique :

=SIERREUR(STXT(A1;CHERCHE("(*)";A1)+1;CHERCHE(")";A1)-CHERCHE("(*)";A1)-1);"")

excfl

 

[JNP]

Re : VBA extraction de caractères depuis la droite

Bonjour
Pour le fun, une petite fonction RegExp

Function ExtractionDate(AExtraire As String) As String
Application.Volatile
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[0-9]{4}"
    ExtractionDate = .Execute(AExtraire)(0)
End With
End Function

Bonne suite

 

[Jack2]

Erreur !!!!!

J'ai raté le premier Edit. Comment supprimer ce post ?

 

[Paf]

Re : VBA extraction de caractères depuis la droite

Bonjour

une autre façon:

Resultat = Left(Right(Chaine, 5), 4)

A+