Formule pour extraire du texte d'une cellule Excel

Quel est le résultat que tu dois obtenir d'après la cellule A1 ?
Daniel

Le mercredi 14 Octobre 2015 à 15:08 par DanielCo :

Regarde le fichier : http://1drv.ms/1PsMEqi
La formule matricielle est en C1 et la formule VBA en E1 (cellules en jaune).
Daniel
Après mûre réflexion, simona a écrit :

Le mercredi 14 Octobre 2015 à 11:04 par Simona :

Bonjour,


J'ai un grand fichier Excel a traiter, 2015 lignes et environ 40 collonnes.
Je dois extraire une chaine de caractères qui se situe dans une
cellule et
généralement après une ) et avant .,
Le problème est que il y a plusieurs ., dans le texte.

Exemple: Anagnostopoulou, C., Tolika, K., Maheras, P., Classification of
circulation types: a new flexible automated approach applicable to NCEP and
GCM datasets (2009) Theor. Appl. Climatol., 96, pp. 3-15


Je dois extraire dans une cellule séparée: Theor. Appl.
Climatol


Quelle formule dois-je utiliser?


Merci énormément pour votre aide!

Simona

Merci Daniel, j'ai essayé les deux moyens, mais je suis probablement
très
novice en Excel, car aucune n'a donné de résultat.
Je dispose d'une version Excel 2007, c'est peut être de la que vient le
souci!

Please HELP!

C'est gentil de ta part de me répondre.
Dans E1 ou le VBA devrait être je ne vois que =Extrait_Texte(A1) et dans la cellule #NOM? apparait, ce qui veux dire que cela n'a pas marché?

Je ne comprends pas bien ou commence la formule VBA et ou elle finit.


(=Extrait_Texte(A1)) :
Function Extrait_Texte(C As Range) As String
Dim Txt As Variant
Application.Volatile
If C.Value = "" Then Exit Function
If InStr(1, C.Value, ") ") = 0 Then Exit Function
If InStr(1, C.Value, ".,") = 0 Then Exit Function
Txt = Split(Split(C.Value, ")")(UBound(Split(C.Value, ")"))), ".,")
Extrait_Texte = Txt(0)
End Function

C'est bien tout cela que je dois mettre dans la même cellule?

Regarde le classeur modifié (même adresse que précédemment).
Daniel

Si tu as utilisé mon classeur, tu dois voir ça :
https://onedrive.live.com/redir?resid–D5842B14D14FA4!6932&authkey=!AElyxQHwGScQISs&v=3&ithint=photo%2cPNG
Daniel

Re

ma proposition ne te convient pas ?
Jacques.



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"simona" a écrit dans le message de groupe de discussion :
GqudnVkibujjwIPLnZ2dnUU7982dnZ2d@giganews.com...

Le mercredi 14 Octobre 2015 à 15:08 par DanielCo :

Regarde le fichier : http://1drv.ms/1PsMEqi
La formule matricielle est en C1 et la formule VBA en E1 (cellules en
jaune).
Daniel
Après mûre réflexion, simona a écrit :

Le mercredi 14 Octobre 2015 à 11:04 par Simona :

Bonjour,


J'ai un grand fichier Excel a traiter, 2015 lignes et environ 40
collonnes.
Je dois extraire une chaine de caractères qui se situe dans une
cellule et
généralement après une ) et avant .,
Le problème est que il y a plusieurs ., dans le texte.

Exemple: Anagnostopoulou, C., Tolika, K., Maheras, P., Classification of
circulation types: a new flexible automated approach applicable to NCEP
and
GCM datasets (2009) Theor. Appl. Climatol., 96, pp. 3-15


Je dois extraire dans une cellule séparée: Theor. Appl.
Climatol


Quelle formule dois-je utiliser?


Merci énormément pour votre aide!

Simona

Merci Daniel, j'ai essayé les deux moyens, mais je suis probablement
très
novice en Excel, car aucune n'a donné de résultat.
Je dispose d'une version Excel 2007, c'est peut être de la que vient le
souci!

Please HELP!

C'est gentil de ta part de me répondre.
Dans E1 ou le VBA devrait être je ne vois que =Extrait_Texte(A1) et dans la
cellule #NOM? apparait, ce qui veux dire que cela n'a pas marché?

Je ne comprends pas bien ou commence la formule VBA et ou elle finit.


(=Extrait_Texte(A1)) :
Function Extrait_Texte(C As Range) As String
Dim Txt As Variant
Application.Volatile
If C.Value = "" Then Exit Function
If InStr(1, C.Value, ") ") = 0 Then Exit Function
If InStr(1, C.Value, ".,") = 0 Then Exit Function
Txt = Split(Split(C.Value, ")")(UBound(Split(C.Value, ")"))), ".,")
Extrait_Texte = Txt(0)
End Function

C'est bien tout cela que je dois mettre dans la même cellule?


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com

Le mercredi 14 Octobre 2015 à 15:24 par Jacquouille :

Re
Avec ton texte en A1:

=STXT(A1;CHERCHE(")";A1;1)+2;CHERCHE(",";A1;176)-CHERCHE(")";A1;1)-2)

devrait te donner Clim. Dyn

Bonne chance
Jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"simona" a écrit dans le message de groupe de discussion :


Le mercredi 14 Octobre 2015 à 12:43 par Jacquouille :

Bonjour Simona

peux-tu, dans tes exemples, me souligner ou surligner en couleur, la
partie
de texte que tu désires dégager?
Je ne pratique pas le grand breton et cette approche me permettrait de
mieux
"voir" le texte à sortir.


Si impossible sur le forum, voici ma privée.
j/
où tu supprimera .tralala et remplacera j/t par j.t
Merci et bonne journée

jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"simona" a écrit dans le message de groupe de discussion :


Le mercredi 14 Octobre 2015 à 11:04 par Simona :

Bonjour,


J'ai un grand fichier Excel a traiter, 2015 lignes et environ 40
collonnes.

Je

dois extraire une chaine de caractères qui se situe dans une cellule
et
généralement après une ) et avant .,
Le problème est que il y a plusieurs ., dans le texte.

Exemple: Anagnostopoulou, C., Tolika, K., Maheras, P., Classification of
circulation types: a new flexible automated approach applicable to NCEP
and

GCM

datasets (2009) Theor. Appl. Climatol., 96, pp. 3-15


Je dois extraire dans une cellule séparée: Theor. Appl.
Climatol


Quelle formule dois-je utiliser?


Merci énormément pour votre aide!

Simona

Bonjour DanielCo,

Merci pour ta réaction. Effectivement
"e;généralement"e; pose problème dans
ma
question. Il s'agit des références bibliographiques en effet. Je
dois
extraire
le journal dans lequel ces articles ont été publiées. Le
titre du journal se
situe entre la ) et les ., suivant effectivement!

Je donne plusieurs exemples:

Belleflamme, A., Fettweis, X., Lang, C., Erpicum, M., Current and future
atmospheric circulation at 500 hPa over Greenland simulated by the CMIP3
and
CMIP5 global models (2013) Clim. Dyn., 41, pp. 2061-2080

Demuzere, M., Werner, M., van Lipzig, N., Roeckner, E., An analysis of
present
and future ECHAM5 pressure fields using a classification of circulation
patterns
(2009) Int. J. Climatol., 29, pp. 1796-1810

Hawkins, E., Sutton, R., The potential to narrow uncertainty in
projections
of
regional precipitation change (2011) Clim. Dyn., 37, pp. 407-418


Je viens d’éplucher mon fichier et je constate que le .,
après le titre
n'est
pas d’application partout. Il y a des références ou il n y
a que , après le
titre:


Exemple:

Fettweis, X., Reconstruction of the 1979-2006 Greenland ice sheet surface
mass
balance using the regional climate model MAR (2007) The Cryosphere, 1, pp.
21-40. , doi:10.5194/tc-1-21-2007

Gordon, C., Cooper, C., Senior, C.A., Banks, H., Gregory, J.M., Johns,
T.C.,
Mitchell, J.F.B., Wood, R.A., The simulation of SST, sea ice extents and
ocean
heat transports in a version of the Hadley Centre coupled model without
flux
adjustments (2000) Climate Dynamics, 16 (2-3), pp. 147-168


Cela se complique pas mal. Est-ce toujours possible d’extraire le texte
dont
j'ai besoin?

Merci!


---
L'absence de virus dans ce courrier électronique a été
vérifiée par le logiciel antivirus Avast.
http://www.avast.com

Bonjour jacques,

Je n'arrive pas a surligner sur le forum et je ne vois pas ton adressé
privée
non plus:

J'essaye autrement, par exemple dans cette référence qui est dans
une
cellule
Excel:

Belleflamme, A., Fettweis, X., Lang, C., Erpicum, M., Current and future
atmospheric circulation at 500 hPa over Greenland simulated by the CMIP3 and
CMIP5 global models (2013) Clim. Dyn., 41, pp. 2061-2080

Je dois extraire Clim. Dyn qui se situe entre ) et .,

Anagnostopoulou, C., Tolika, K., Maheras, P., Classification of circulation
types: a new flexible automated approach applicable to NCEP and GCM datasets
(2009) Theor. Appl. Climatol., 96, pp. 3-15

dans celle ci c'est Theor. Appl. Climatol


Fettweis, X., Reconstruction of the 1979-2006 Greenland ice sheet surface
mass
balance using the regional climate model MAR (2007) The Cryosphere, 1, pp.
21-40. , doi:10.5194/tc-1-21-2007

et dans le troisième The Cryosphere qui se situe entre ) et ,

Merci!


---
L'absence de virus dans ce courrier électronique a été
vérifiée par le logiciel antivirus Avast.
http://www.avast.com

Merci Jacques,

LA formule fonctionne mais uniquement pour certaines cellules et pas pour toutes.Je ne comprends pas pourquoi.

Pour: Bindschadler, R., Hitting the ice sheets where it hurts (2006) Science, 311, pp. 1720-1721

la formule ne fonctionne pas.

Ni pour: Alexanderson, H.A., A homogeneity test applied to precipitation data (1986) International Journal of Climatology, 6, pp. 661-675

Ni pour : Allerup, P., Madsen, H., Vejen, F., A comprehensive model for correcting point precipitation (1997) Nord. Hydrol., 28 (1), pp. 1-20. , doi: 10.2166/nh.1997.001)

Il doit y avoir une explication...?????

Re:

Dans les 3 exemples que tu me donnes, il y a chaque fois une date entre
parenthèses (2013) , puis le nom à extraire, suivi par une virgule.
Je crois que ma formule fait cela.
Si, maintenant, tu as des cellules sans date entre parenthèses, ou si le nom
n'est pas suivi d'une virgule, la donne change .....

Essaie ceci:
=STXT(A1;CHERCHE(")";A1;1)+2;CHERCHE(",";A1;CHERCHE(")";A1;1))-CHERCHE(")";A1;1)-2)

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"simona" a écrit dans le message de groupe de discussion :
bsGdncAFDpBP8YPLnZ2dnUU798ydnZ2d@giganews.com...

Le mercredi 14 Octobre 2015 à 15:24 par Jacquouille :

Re
Avec ton texte en A1:

=STXT(A1;CHERCHE(")";A1;1)+2;CHERCHE(",";A1;176)-CHERCHE(")";A1;1)-2)

devrait te donner Clim. Dyn

Bonne chance
Jacques.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"simona" a écrit dans le message de groupe de discussion :
Belleflamme, A., Fettweis, X., Lang, C., Erpicum, M., Current and future
atmospheric circulation at 500 hPa over Greenland simulated by the CMIP3
and
CMIP5 global models (2013) Clim. Dyn., 41, pp. 2061-2080

Je dois extraire Clim. Dyn qui se situe entre ) et .,

Anagnostopoulou, C., Tolika, K., Maheras, P., Classification of
circulation
types: a new flexible automated approach applicable to NCEP and GCM
datasets
(2009) Theor. Appl. Climatol., 96, pp. 3-15

dans celle ci c'est Theor. Appl. Climatol


Fettweis, X., Reconstruction of the 1979-2006 Greenland ice sheet surface
mass
balance using the regional climate model MAR (2007) The Cryosphere, 1, pp.
21-40. , doi:10.5194/tc-1-21-2007

et dans le troisième The Cryosphere qui se situe entre ) et ,

Merci!


---
L'absence de virus dans ce courrier électronique a été
vérifiée par le logiciel antivirus Avast.
http://www.avast.com

Merci Jacques,

LA formule fonctionne mais uniquement pour certaines cellules et pas pour
toutes.Je ne comprends pas pourquoi.

Pour: Bindschadler, R., Hitting the ice sheets where it hurts (2006)
Science,
311, pp. 1720-1721

la formule ne fonctionne pas.

Ni pour: Alexanderson, H.A., A homogeneity test applied to precipitation
data
(1986) International Journal of Climatology, 6, pp. 661-675

Ni pour : Allerup, P., Madsen, H., Vejen, F., A comprehensive model for
correcting point precipitation (1997) Nord. Hydrol., 28 (1), pp. 1-20. ,
doi:
10.2166/nh.1997.001)

Il doit y avoir une explication...?????


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com