Extraire du texte dans une chaine de caractére

ricouvbx

XLDnaute Junior
Bonjour le Forum

Pourriez-vous m'indiquer quelles fonctions faut-il utiliser afin que je puisse isoler un texte dans une chaine de caractére.
Exemple : \\WKS-06584\LEXMARK E330 PS3 je veux extraire LEXMARK E330
\\WKS-10842\LEXMARK OPTRA S 1855 (MS) je veux extraire LEXMARK OPTRA S 1855

je vous remercie d'avance

cdlt

Eric
 

hoerwind

XLDnaute Barbatruc
Re : Extraire du texte dans une chaine de caractére

Bonjour, salut pierrejean,

Si, comme sous ton exemple, il faut toujours extraire à partir du 13ème caractère, sauf les 3 ou 4 derniers caractères, alors cette formule devrait le faire :
=GAUCHE(STXT(A1;13;30);NBCAR(A1)-16)

Si mes suppositions ne sont pas exactes, il faudra un ensemble d'exemples reprenant tous les cas de figure.
 

JNP

XLDnaute Barbatruc
Re : Extraire du texte dans une chaine de caractére

Bonjour le fil :),
Une fonction en passant par RegExp, mais il faudrait comme dit Hoerwind un peu plus d'exemple pour affiner le Pattern ;)
Code:
Function RechercheJNP(Plage As Range) As String
Application.Volatile
Dim Match, Matches, Cellule As Range
For Each Cellule In Plage
    With CreateObject("vbscript.regexp")
        .Global = True: .Pattern = "\\[A-Z ]+[0-9]{3,4}(?= [^0-9])"
        Set Matches = .Execute(Cellule)
        For Each Match In Matches
            RechercheJNP = RechercheJNP & Match
        Next
        RechercheJNP = Right(RechercheJNP, Len(RechercheJNP) - 1)
    End With
Next
End Function
Bonne journée :cool:
 

JNP

XLDnaute Barbatruc
Re : Extraire du texte dans une chaine de caractére

Re :),
Il s'agit d'une fonction personnalisée qui recherche le dernier "\" et presente tout ce qui suit
C'est que j'ai cru pouvoir deduire des 2 exemples proposés
dans l'exemple, il y avait aussi suppression de ce qui se trouvait après le N° de série, d'où mon Pattern, mais comme dit précédemment, il faudrait plus d'exemples pour affiner ;).
A + :cool:
 

pierrejean

XLDnaute Barbatruc
Re : Extraire du texte dans une chaine de caractére

Re

Merci JNP
J'avais été un peu trop rapide sur ce coup
Voici donc la fonction personnalisée qui extrait ce qui se trouve entre le dernier "\" et le dernier " " (s'il est placé derriere le "\")
 

Pièces jointes

  • ricouvbix.xls
    33 KB · Affichages: 249
  • ricouvbix.xls
    33 KB · Affichages: 269
  • ricouvbix.xls
    33 KB · Affichages: 272

Discussions similaires

Statistiques des forums

Discussions
312 512
Messages
2 089 186
Membres
104 059
dernier inscrit
@kheops7991