Bonjour,
Laisse nous respirer un peu: vacances= il fait chaud, un peu de nage, un peu de bronzage et en plus les Bleus ont perdu.
Bon bref de commentaires.
Je ne connais pas d'utilitaires et j'ai bien l'impression qu'il va falloir effectivement sortir un programme.
Tu es sur Word:
Sub Macro()
For i = 1 To nombre
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Next i
Selection.WholeStory
Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, _
NumRows:=385, AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
.Style = "Grille du tableau"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.Sort ExcludeHeader:=False, FieldNumber:="Colonne 1", _
SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _
LanguageID:=wdFrench, SubFieldNumber:="Paragraphes", SubFieldNumber2:= _
"Paragraphes", SubFieldNumber3:="Paragraphes"
End Sub
Ce code te permet de créer une colonne avec un mot par ligne (chaque mot du texte). En outre, la colonne est triée. Tu la copies et tu fais un collage sur Excel. Là, tu fais un tableau croisé dynamique.
Attention, je ne connais pas le nombre dans l'expression: For i=1 To...
Je le fais à tâtons. Si le texte n'est pas trop long, OK sinon, bon courage l'ami.
De plus, tu vas te trouver avec des lignes vides, des lignes contenant les signes de ponctuation...
