Extraction de texte.

[maxis6582]

Bonsoir,
je ne parviens pas à trouver sur le forum un sujet me permettant de résoudre mon problème.

Je souhaiterais extraire une partie d'un texte d'une cellule qui comporte plus de X caracteres, obligatoirement avec des phrases completes.
Exemple :
En A1 mon texte avec plusieurs phrases.
En B1 , je doit extraire le maximum de phrases jusqu'au point, mais sans jamais dépasser 250 caractères. (si la première phrase fait 150 caractères, et la deuxième 102 caractères, alors seule la première phrase sera prise en compte).

J'ai tester plusieurs formules sans succès, je pense qu'il faut utiliser VBA, mais je ne sais pas comment m'y prendre.

Merci par avance pour votre aide.

 

[Staple1600]

Re : Extraction de texte.

Bonsoir à tous

maxis6582
Tu peux joindre un fichier exemple avec des exemples de phrases, stp
Cela permettra de tester in situ.

 

[R@chid]

Re : Extraction de texte.

Bonsoir @ tous,
un essai avec colonnes intermédiaires,
Voir PJ
Amicalement

 

[ROGER2327]

Re : Extraction de texte.

Bonjour à tous,

Un essai avec une fonction en VBA.

Function coupe(t As String, l As Integer)
Const n% = 8
Dim i%, j%
Dim s, u$
ReDim z$(1 To n)
    s = Split(t & IIf(Right$(t, 1) = ".", "", "."), ".")
    For i = 0 To UBound(s) - 1
        j = j + 1
        If j > n Then ReDim Preserve z(1 To j)
        u = LTrim(s(i)) & IIf(s(i) = "", "", ".")
        Do While Len(u) + Len(s(i + 1)) <= l And i < UBound(s) - 1
            i = i + 1
            u = u & s(i) & "."
        Loop
        z(j) = WorksheetFunction.Trim(u)
        If Len(z(j)) > l Then z(j) = Left$(z(j), l - 1) & Chr(95)
    Next
    coupe = z
End Function

ROGER2327
#6272

Samedi 7 Sable 140 (Saint Birbe, juge - fête Suprême Quarte)
17 Frimaire An CCXXI, 1,4830h - cyprès
2012-W49-5T03:33:34Z

 

[maxis6582]

Re : Extraction de texte.

Merci pour vos réponses. J'ai opter pour la formule de Roger. Ça fonctionne parfaitement.
Merci encore