Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Extraction de texte.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maxis6582
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

maxis6582

Guest
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.
 
Trier par date Trier par votes
Re : Extraction de texte.

Bonjour à tous,


Un essai avec une fonction en VBA.
VB: 
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
XL 2021 Retrouver l'assistant importation de texte quand on fait une extraction à partir d'un .CSV ?
Réponses
6
Affichages
661
cindynico38
C
R
  • Question Question
Microsoft 365 RESOLU : Aide formule extraction texte cellule
Réponses
3
Affichages
533
DJunqueira
D
A
  • Question Question
Microsoft 365 Extraire texte cellule Excel
Réponses
4
Affichages
456
patricktoulon
P
  • Question Question
Microsoft 365 extraction de valeur d'un tableau avec critère mois et année
Réponses
13
Affichages
878
JHA
J
R
  • Question Question
XL 2010 comparaison de plusieurs cellules
2 3
Réponses
30
Affichages
2 K
job75
W
  • Question Question
XL 2016 Extraction de la partie centrale de texte alphanumérique de cellules placées en colonne B
2
Réponses
15
Affichages
2 K
Webperegrino
W
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
  • Résolu(e)
XL 2010 Transfert / annulation de données de feuil1 vers feuil2 via Case à cocher
Réponses
10
Affichages
1 K
Seddiki_adz
S
E
  • Résolu(e)
XL 2013 Excel VBA - Extraire des valeurs numériques d'une cellule mélangeant texte et valeurs numériques
Réponses
2
Affichages
1 K
elio_30
E
S
  • Résolu(e)
XL 2016 VBA Tri de données
Réponses
6
Affichages
2 K
Serge6926
S
D
  • Question Question
Microsoft 365 Extraire lignes de caractères dans long texte
2
Réponses
26
Affichages
2 K
job75
L
  • Question Question
XL 2016 Extraction texte à partir de la fin d'une chaine de caractère
Réponses
11
Affichages
3 K
Lolote83
L
K
  • Résolu(e)
Microsoft 365 Extraire une date et une ville d'une de texte
Réponses
3
Affichages
1 K
koukou38200
K
S
  • Résolu(e)
XL 2016 Extraire un chiffre d'un nom de produits
Réponses
7
Affichages
2 K
Seven
S
R
  • Question Question
XL 2016 Manipulation de caractères....
Réponses
7
Affichages
1 K
Raoulshiro
R
F
  • Question Question
Microsoft 365 Extraction et trie de données
Réponses
13
Affichages
2 K
chris
S
  • Question Question
Microsoft 365 Copier depuis plusieurs pages d'un fichier une plage de colonnes entre deux cellules comportant un texte particulier
2 3
Réponses
37
Affichages
5 K
softy69
S
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
K
  • Question Question
XL 2010 Extraction de lignes d'un fichier texte selon un argument
Réponses
6
Affichages
2 K
micheldu52
A
  • Question Question
XL 2013 Conditionnement de données tableur en texte avec renommage défaillant
Réponses
1
Affichages
647
Alafolix
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…