Re,
Excel n'est pas très riche en fonction de traitement spécifique de valeurs texte. On a donc plus de facilité à opérer au moyen de fonctions personnalisées.
Function PARTIETEXT(txt As String, nstxt As Integer)
Dim ttxt
Application.Volatile
ttxt = Split(Replace(txt, Chr(10) & Chr(10), Chr(10)), Chr(10))
PARTIETEXT = ttxt(nstxt - 1)
End Function
Les arguments de la fonction sont le texte qu'on veut partager et le numéro d'ordre de la partie à extraire.
Utilisation de la fonction dans une formule :
=PARTIETEXT($A$1;COLONNE(A:A))
COLONNE(A:A) renvoie 1. En tirant vers la droite on aura sur chaque colonne successive, 2, 3, 4...
On pourrait opérer avec des fonctions classiques, la formule à construire serait nettement plus longue...
Cordialement.