XL 2016 Comment bien extraire la 1ère et la dernière ligne d'une cellule contenant 3 ou 4 lignes

[Webperegrino]

Bonjour Le Forum,

J'échoue dans mes tentatives d'extraction de la première et la dernière ligne de texte à multiples retours de ligne dans une cellule (2, 3 ou 4) là où je voudrais appliquer cette formulation.

Dans l'étude-test ci-jointe, la cellule B2 est en Liste-Validation de B16 à B19 pour étudier les résultats en B6, B9 et B12.
En effet, j'ai essayé avec trois méthodes : fonction par VBA, matricielle ou formule.
Les résultats ne sont glorieux...

Pouvez-vous me corriger afin que les trois méthodes fonctionnent parfaitement ?
Merci,

Webperegrino

 

[sylvanu]

Bonjour Webperegrino,
Un exemple en PJ avec :

Function F_Extract(Chaine, Position)
    T = Split(Chaine, Chr(10))
    If Position = 1 Then F_Extract = T(0) Else F_Extract = T(UBound(T))
End Function

 

[mapomme]

Bonsoir à tous ,

Avec formule "simple" en B3 et formule "matricielle" en C3 : vour classeur joint sur la feuille "Feuil2".

 

[Webperegrino]

Le Forum,
Bonsoir Sylvanu,
Bonsoir Mapomme,
C'est parfait, vos deux propositions remplissent parfaitement mes désirs de correction des formules.

Si bien que, Mapomme, je peux intégre ceci dans ma cellule de destination

{=GAUCHE(B2;TROUVE(CAR(10);B2&CAR(10))-1)&CAR(10)&SIERREUR(STXT(B2;1+MAX(SIERREUR((STXT(B2;LIGNE(INDIRECT("1:" & NBCAR(B2)));1)=CAR(10))*LIGNE(INDIRECT("1:" & NBCAR(B2)));""));999);"")}

Merci beaucoup et bon week-end
Webperegrino

 

[Webperegrino]

Le Forum,
Sylvanu, Mapomme,
Je viens d'appliquer vos deux solutions dans mon application et elles remplissent parfaitement ... leur fonction.
Merci beaucoup,
Webperegrino