XL 2016 copier un morceau de phrase d'une cellule.

[Guillaumeg3]

Bonjour à tous.

Dans une colonne, j'ai différent textes.
J'aimerai pouvoir copier la première phrase qui se termine par un point de chaque cellule dans une autre cellule.
La difficulté c'est que la première phrase n'ont pas la même longueur dans chaque cellule de la colonne.
Si vous avez la solution...

En vous remerciant par avance!

 

[Victor21]

Bonjour.

Il suffit de trouver la position du premier point :
=TROUVE(".";A2)
Puis d'extraire les caractères du 1er jusqu'au point
=STXT(A2;1;TROUVE(".";A2))

 

[Guillaumeg3]

MERCI Victor21! Et dire que me prenais la tête avec une formule compliquée^^

Est ce que par hasard il est aussi possible de copié que le chiffre (dans l'exemple la date) situé dans cette première phrase?

 

[Victor21]

Re,

[...]Est ce que par hasard il est aussi possible de copié que le chiffre (dans l'exemple la date) situé dans cette première phrase?

Oui, et le hasard n'a pas grand chose à y voire :
=GAUCHE(DROITE(STXT(A2;1;TROUVE(".";A2));5);4)
Parlons plutôt ici de talent 🙂 😉 (Private joke @Rohazon)

 

[Staple1600]

Bonsoir le fil, le forum

En attendant mieux, ou le retour de Victor21
=SUBSTITUE(DROITE(STXT(A2;1;TROUVE(".";A2));5);".";"")

EDITION: Mon horloge s'est cogné dans le coude gauche de Murphy.
J'ai donc zappé le retour de Victor.

NB:
"Les grands artistes ont du hasard dans leur talent et du talent dans leur hasard"
a jadis écrit un autre fameux Victor 😉
(private joke bis)

 

[Victor21]

Re à tous.

Une autre (à condition que la date soit composée de chiffres) *
=1*STXT(A2;EQUIV(1;1*ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1));0);SOMME(1*ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))))
Validation matricielle .

* Ce qui me semble être la moindre des politesses pour une date qui se respecte un tant soit peu !

 

[Guillaumeg3]

Merci VICTOR21 et STAPLE1600.

La dernière formule est parfaite à une exception si j'ai une ou d'autres dates après la première phrase. Seule la date de la première phrase dans le texte m'intéresse.

 

[Victor21]

Re,

La dernière formule est parfaite à une exception si j'ai une ou d'autres dates après la première phrase. Seule la date de la première phrase dans le texte m'intéresse.

Non. Les formules sont parfaites. C'est la liste des exemples fournis qui ne l'était pas 😉
D'où l'importance de fournir un échantillon exhaustif des cas rencontrés...

 

[Staple1600]

Re

Les formules sont parfaites comme parfaitement invisible je suis depuis le post#5 😉
Du coup, ma private joke est tombée à l'eau 😉

 

[Victor21]

Re, JM

Meu non, t'es pas invisible, Peter Brady.
J'ai même repris ta proposition dans la pj (pièce jointe) du #6, et les pj (private jokes) tombent tellement dru qu'il faudrait abandonner les questions Excel pour y répondre à tous. Ce qui n'empêche en aucune façon de les apprécier à leur juste valeur.

 

[Guillaumeg3]

En effet

Re,


Non. Les formules sont parfaites. C'est la liste des exemples fournis qui ne l'était pas 😉
D'où l'importance de fournir un échantillon exhaustif des cas rencontrés...

Oui en effet^^ j'aime compliquer les choses.

 

[Staple1600]

Re

Du coup, maintenant que je suis rasséréné et rassuré, je peux, histoire de varier les plaisirs, et pour sortir de la matrice , proposer une autre formule. 😉
Si date au format 01/01/2018
=STXT(A2;MIN(TROUVE({0;1;2;3;4;5;6;7;8;9};A2&"0123456789"));10)*1
Si juste année sur 4 chiffres
=STXT(A2;MIN(TROUVE({0;1;2;3;4;5;6;7;8;9};A2&"0123456789"));4)*1

EDITION: Bonsoir mapomme, bonsoir job75

 

[mapomme]

Bonsoir à toutes et tous,

Avec une p'tite fonction personnalisée :

Function NiemeEntier(x, Optional n)
' X -> texte ; n -> rang entier à extraire
Dim i
   If IsMissing(n) Then n = 1
   For i = 1 To Len(x)
      Mid(x, i, 1) = IIf(Asc(Mid(x, i, 1)) >= Asc("0") And Asc(Mid(x, i, 1)) <= Asc("9"), Mid(x, i, 1), " ")
   Next i
   If n - 1 <= UBound(Split(Application.WorksheetFunction.Trim(x))) Then
      NiemeEntier = CLng(Split(Application.WorksheetFunction.Trim(x))(n - 1))
   Else
      NiemeEntier = ""
   End If
End Function

edit : Bonsoir @job75, @Victor21

 

[job75]

Bonjour Guillaumeg3, Patrick, JM, mapomme,

Avec le fichier joint c'est toujours le 1er nombre dans la cellule qui est récupéré.

A+

 

[Guillaumeg3]

Merci à vous 2 ca marche!!

Je vais pouvoir partir en soirée l'esprit tranquille^^