Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel formule extraction texte

formule extraction texte

5 réponses
Avatar
serge
Bonjour,

j'aimerai extraire automtiquement la partie : "Q1 Week 11 15032005" mais
d'une facon automatique. (le répertoire peut changer

D:\Documents and Settings\LoiseH\My
Documents\Business\STK\reporting\projects web reporting\EAME ATS Product\Good
one\\AM product Q1 week 11 15032005.xls

donc je pensais utilisé la fonction find("Q";...
mais il me faudait cette formule qui part de la droite et non de la gauche
car Q pourrait exister dans le nom d'un repertoire...

merci d'avance,

serge
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques
Bonjour,

j'aimerai extraire automtiquement la partie : "Q1 Week 11 15032005" mais
d'une facon automatique. (le répertoire peut changer

D:Documents and SettingsLoiseHMy
DocumentsBusinessSTKreportingprojects web reportingEAME ATS ProductGood
oneAM product Q1 week 11 15032005.xls

donc je pensais utilisé la fonction find("Q";...
mais il me faudait cette formule qui part de la droite et non de la gauche
car Q pourrait exister dans le nom d'un repertoire...

merci d'avance,

serge


Bonjour,

En VBA, voir la fonction :
InstrRev(stringcheck, stringmatch[, start[, compare]])

--
Cordialement,

Jacques.

Avatar
papou
Bonjour
Pour compléter, voici comment retrouver ta partie texte :
Dim LaString$, posdeb&, posfin&
LaString = "D:Documents and SettingsLoiseHMy " & _
"DocumentsBusinessSTKreportingprojects web reporting" & _
"EAME ATS ProductGood oneAM product Q1 week 11 15032005.xls"
posdeb = InStrRev(LaString, "Q")
posfin = InStrRev(LaString, ".")
cequetuveux = Mid(LaString, posdeb, posfin - posdeb )
MsgBox cequetuveux

Cordialement
Pascal

"serge" a écrit dans le message de
news:
Bonjour,

j'aimerai extraire automtiquement la partie : "Q1 Week 11 15032005" mais
d'une facon automatique. (le répertoire peut changer

D:Documents and SettingsLoiseHMy
DocumentsBusinessSTKreportingprojects web reportingEAME ATS
ProductGood

oneAM product Q1 week 11 15032005.xls

donc je pensais utilisé la fonction find("Q";...
mais il me faudait cette formule qui part de la droite et non de la gauche
car Q pourrait exister dans le nom d'un repertoire...

merci d'avance,

serge


Avatar
serge
Merci pour vos réponses, mais je cherche une formule que je puisse mettre
dans une cellule... avez-vous une idée?

encore merci

"papou" wrote:

Bonjour
Pour compléter, voici comment retrouver ta partie texte :
Dim LaString$, posdeb&, posfin&
LaString = "D:Documents and SettingsLoiseHMy " & _
"DocumentsBusinessSTKreportingprojects web reporting" & _
"EAME ATS ProductGood oneAM product Q1 week 11 15032005.xls"
posdeb = InStrRev(LaString, "Q")
posfin = InStrRev(LaString, ".")
cequetuveux = Mid(LaString, posdeb, posfin - posdeb )
MsgBox cequetuveux

Cordialement
Pascal

"serge" a écrit dans le message de
news:
Bonjour,

j'aimerai extraire automtiquement la partie : "Q1 Week 11 15032005" mais
d'une facon automatique. (le répertoire peut changer

D:Documents and SettingsLoiseHMy
DocumentsBusinessSTKreportingprojects web reportingEAME ATS
ProductGood

oneAM product Q1 week 11 15032005.xls

donc je pensais utilisé la fonction find("Q";...
mais il me faudait cette formule qui part de la droite et non de la gauche
car Q pourrait exister dans le nom d'un repertoire...

merci d'avance,

serge







Avatar
AV
Merci pour vos réponses, mais je cherche une formule que je puisse mettre
dans une cellule... avez-vous une idée?


Validation matricielle (ctrl+maj+entrée)
=STXT(A1;NBCAR(A1)-EQUIV("Q";STXT(A1;NBCAR(A1)-LIGNE(INDIRECT("1:"&NBCAR(A1)))+1
;1);0)+1;9^9)

AV

Avatar
Daniel.M
Bonjour,

Il y a cette matricielle-ci (Ctrl-Maj-Entrée) :

=STXT(A1;EQUIV(2;1/("Q"=STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1));1);8^8)

Salutations,

Daniel M.

"serge" wrote in message
news:
Merci pour vos réponses, mais je cherche une formule que je puisse mettre
dans une cellule... avez-vous une idée?

encore merci

"papou" wrote:

Bonjour
Pour compléter, voici comment retrouver ta partie texte :
Dim LaString$, posdeb&, posfin&
LaString = "D:Documents and SettingsLoiseHMy " & _
"DocumentsBusinessSTKreportingprojects web reporting" & _
"EAME ATS ProductGood oneAM product Q1 week 11 15032005.xls"
posdeb = InStrRev(LaString, "Q")
posfin = InStrRev(LaString, ".")
cequetuveux = Mid(LaString, posdeb, posfin - posdeb )
MsgBox cequetuveux

Cordialement
Pascal

"serge" a écrit dans le message de
news:
Bonjour,

j'aimerai extraire automtiquement la partie : "Q1 Week 11 15032005" mais
d'une facon automatique. (le répertoire peut changer

D:Documents and SettingsLoiseHMy
DocumentsBusinessSTKreportingprojects web reportingEAME ATS
ProductGood

oneAM product Q1 week 11 15032005.xls

donc je pensais utilisé la fonction find("Q";...
mais il me faudait cette formule qui part de la droite et non de la gauche
car Q pourrait exister dans le nom d'un repertoire...

merci d'avance,

serge