Gorafisation générale

[han_solo]

Message précédent :

[Julien Despreux]

1 ) Si elle a été levée, c'est bien qu'elle existait !

2 ) C'est pas tout, mais qui va surveiller / s'occuper des poules, maintenant ? Que fait la SPA ?

[camions41]

Mais que fait la Police ?

[han_solo]

"Madame Bovary dans l'ordre", il réécrit le roman de Flaubert en classant tous les mots dans l'ordre alphabétique
https://france3-regions.franceinfo.fr/g ... 84506.html

[Funkyyy]

"Madame Bovary dans l'ordre", il réécrit le roman de Flaubert en classant tous les mots dans l'ordre alphabétique
https://france3-regions.franceinfo.fr/g ... 84506.html

Ah oui, comme Flaubert est le roi de la syntaxe, du style et du mot bien choisi, c'est tout à fait approprié.

Pourquoi ne pas plutôt faire subir tel traitement à Musso ou autres ?

[nexus4]

Au code pénal.

En fait, avec excel ou Word ca doit pas prendre beaucoup de temps.

[Nefertum]

Word ne sait pas faire. Excel doit pouvoir.
Mais ça doit pas être très lisible.
Comme un dico sans définitions

[fanche]

Pourquoi ne pas plutôt faire subir tel traitement à Musso ou autres ?

Vu le nombre de mots utilisés chez Musso tu pourrais quasi le faire de tête, nan là ce qui fascine c'est le côté algorithmique de l'exercice

[nexus4]

Il me semble bien qu'il y a une macro pour compter les occurrences des mots dans Word.

[nexus4]

Ah ben j'ai demandé à ChatGPT, il a répondu en 2s :

Sub CompterOccurrencesDesMots()
Dim docText As String
Dim wordArray() As String
Dim wordDict As Object
Dim word As String
Dim i As Long
Dim cleanedWord As String
Dim result As String

' Créer un dictionnaire
Set wordDict = CreateObject("Scripting.Dictionary")

' Extraire le texte du document
docText = ActiveDocument.Content.Text

' Nettoyer le texte (remplacer ponctuation par espace)
docText = Replace(docText, ".", " ")
docText = Replace(docText, ",", " ")
docText = Replace(docText, ";", " ")
docText = Replace(docText, ":", " ")
docText = Replace(docText, "!", " ")
docText = Replace(docText, "?", " ")
docText = Replace(docText, vbCr, " ")
docText = Replace(docText, vbLf, " ")

' Séparer en mots
wordArray = Split(docText)

' Compter les mots
For i = LBound(wordArray) To UBound(wordArray)
cleanedWord = Trim(LCase(wordArray(i)))
If cleanedWord <> "" Then
If wordDict.exists(cleanedWord) Then
wordDict(cleanedWord) = wordDict(cleanedWord) + 1
Else
wordDict.Add cleanedWord, 1
End If
End If
Next i

' Afficher les résultats
result = "Occurrences des mots dans le document:" & vbCrLf & vbCrLf
For Each word In wordDict.Keys
result = result & word & ": " & wordDict(word) & vbCrLf
Next word

MsgBox result, vbInformation, "Analyse des mots"
End Sub

RESULTAT :
Une boîte de dialogue s’affichera avec la liste des mots et leur nombre d’occurrences dans le document.

Tu veux que je t’aide à adapter cette macro pour ignorer certains mots (comme les articles ou prépositions), ou pour exporter les résultats dans un tableau Word ou Excel ?

Mais bien avant ChatGPT elle existait. Celle-ci ou une similaire.
Ce dont je ne me souviens pas c'est pourquoi j'en ai eu besoin un jour.