Bonjour à toutes et à tous,

Rechercher une sous chaîne

Soit la macro suivante:

'Sub Rechercher

rem Code11-04.swx bibli : Rechercher Module1

Option Explicit

Sub TrouverToutPartout()

Dim monDocument as Object

Dim jeCherche As Object, trouv As Variant

Dim x As Long

monDocument=ThisComponent

jeCherche=monDocument.createSearchDescriptor

with jeCherche

.SearchString= "=E9"

.SearchWords=true

end with

trouv=monDocument.findAll(jeCherche)

print "Nombre d'occurences: " & cstr(trouv.count)

for x=0 to trouv.count-1

trouv(x).CharBackColor=1234567 'Fond vert sombre

next

End Sub

Je l'utilise pour dénombrer les occurrences d'une sous chaîne

=20

=E9

=E8

....

dans le texte suivant

Deux blondes jouent aux =E9checs. Avant de commencer, la premi=E8re demande:= =20 - Tu as les r=E8gles en t=EAte?=20 - Pourquoi, je saigne du nez?=20

*****

Un Am=E9ricain et un Russe se retrouvent dans un bar.=20 L'Am=E9ricain jette une pi=E8ce en l'air, tire un coup de feu, et y fait deu= x=20 trous.=20

Il montre la pi=E8ce au Russe et dit :=20

Je constate que les occurrences de [=20] sont dénombrées correctement. Celles de [=E8], [=E9], ec.. ne le sont pas.

=20 se trouve toujours à la fin d'un mot, alors que les autres sous chaînes sont situées à l'intérieur d'un mot. Question Quelle modification dois-je apporter à la procédure pour qu'elle puisse
dénombrer des sous chaînes?

Avec mes remerciements

Cordialement

Papy