Bonjour, La seule solution trouvée pour compter les mots à la fin de chaque ligne d'un texte de lecture pour enfant. Ce type de support est utilisé pour travailler la fluence de lecture... Word ne propose aucune solution, et j'en étais arrivée à la conclusion qu'en passant par Excel, on devait y parvenir. Bingo ! La bonne surprise est l'utilisation du VBA (je suis très très novice pour VBA) pour créer une fonction dédiée à cette formule. Il est ensuite facile d'utiliser une colonne de cumul. Il reste quelques adaptations à faire pour supprimer également les guillemets, les points de suspension, d'exclamations etc. J'espère ne pas m'y perdre à force d'ajouts !! En tous cas, merci pour ce tuto👌👍👍
Bonjour micropat, et merci pour ce message. Cela peut par exemple permettre à une restriction du nombre de mots à saisir dans une cellule, ou même par simple curiosité :)
Bonjour, effectivement ce cas de figure nécessite une adaptation de la formule pour supprimer les tirets : nombreMots = Application.Evaluate("=SUMPRODUCT(LEN(TRIM(SUBSTITUTE(SUBSTITUTE(" & plageCellules.Address & ",""-"",""""),"" ?"","""")))-LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(" & plageCellules.Address & ","" ?"","""")),""’"","" ""),""-"","" ""),"" "",""""))+1)") À bientôt !
@@ExcelFormation On y est presque Application.Evaluate("=SUMPRODUCT(LEN(TRIM(SUBSTITUTE(SUBSTITUTE(" & plageCellules.Address & ",""-"","""") dans le dernier ""-"","""" il convient je pense de glisser un espace ""-"","" "" Merci Supppppper utile les tutos
Bonjour,
La seule solution trouvée pour compter les mots à la fin de chaque ligne d'un texte de lecture pour enfant. Ce type de support est utilisé pour travailler la fluence de lecture...
Word ne propose aucune solution, et j'en étais arrivée à la conclusion qu'en passant par Excel, on devait y parvenir. Bingo !
La bonne surprise est l'utilisation du VBA (je suis très très novice pour VBA) pour créer une fonction dédiée à cette formule.
Il est ensuite facile d'utiliser une colonne de cumul.
Il reste quelques adaptations à faire pour supprimer également les guillemets, les points de suspension, d'exclamations etc. J'espère ne pas m'y perdre à force d'ajouts !!
En tous cas, merci pour ce tuto👌👍👍
Bonjour Alex : Merci pour ce tuto intéressant , mais à quoi peut servir cette fonction ?
Bonjour micropat, et merci pour ce message. Cela peut par exemple permettre à une restriction du nombre de mots à saisir dans une cellule, ou même par simple curiosité :)
Bonjour,
Résultat faux avec cette phrase
gkjjhhjk khjkhkjh hlk jjjll - hjhj-lmlmj ? donne 8 mots
merci
Bonjour, effectivement ce cas de figure nécessite une adaptation de la formule pour supprimer les tirets :
nombreMots = Application.Evaluate("=SUMPRODUCT(LEN(TRIM(SUBSTITUTE(SUBSTITUTE(" & plageCellules.Address & ",""-"",""""),"" ?"","""")))-LEN(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(" & plageCellules.Address & ","" ?"","""")),""’"","" ""),""-"","" ""),"" "",""""))+1)")
À bientôt !
@@ExcelFormation On y est presque
Application.Evaluate("=SUMPRODUCT(LEN(TRIM(SUBSTITUTE(SUBSTITUTE(" & plageCellules.Address & ",""-"","""") dans le dernier ""-"","""" il convient je pense de glisser un espace ""-"","" ""
Merci
Supppppper utile les tutos