Couper des phrases

Bonjour,

Je voudrais couper des phrases tous les 6 à 8 mots.

que chacun des bouts de phrases obtenu se termine par </p>|

et que chaque bout de phrase commence par <p>

Est-ce que quelqu'un pourrais m'aider

Je ne sais pas comment faire peut-être avec une macro...

J'ai mis un fichier joint pour l'exemple

Merci beaucoup

Max

Bonjour,

Tu pourrais commencer par créer un module (ALT-F11) avec :

Function FindWord(Source As String, Position As Integer)
Dim arr() As String
Application.Volatile
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

et l'utiliser ainsi :

=GAUCHE(A2;CHERCHE(FindWord(A2;7);A2;1)-1)&"</p>"

Ensuite,

Function FromTo(Source As String, Position As Integer, Longueur As Integer)
Dim arr() As String
arr = VBA.Split(Source, " ")
For i = 1 To Longueur
  K = K & arr(Position - 1) & " "
  Position = Position + 1
Next i
FromTo = K & "</p>"
End Function

à utiliser ainsi :

=FromTo(A2;1;6)

="<p>"&FromTo($A$2;13;6)

Excusez moi mais je n'arrive pas à créer la Fonction avec Alt+F11

ça me met des erreur comme quoi il attend End Sub

Je suis sous Excel 2007

Est que vous pourriez me l'indiquer dans le fichier joint s'il vous plait

Merci beaucoup

Max

On ne peut pas imbriquer de la sorte les fonctions.

Ça marche comme ça :

Sub Proc1()
End Sub

Function A()
  A=3+3
End Function

Sub Proc2()
  Call ProC1()
End Sub

Sub Proc3()
  resultat = A() '6
End Sub

Ci-joint

Merci beaucoup pour votre aide

Max