Discussion :

[Mickaël77]

Bonjour à tous,

En cherchant des heures durant sur le Web, j'ai trouvé votre forum et j'ai pensé qu'il y aurait là peut-être quelqu'un pour m'aider.
Je dois insérer dans un texte de plusieurs centaines de pages un caractère spécial (le carreau noir, symbole décimal 168) plus une espace insécable avant plusieurs mots récurrents. Ce qui représente plusieurs milliers d'insertions. Or la fonction chercher/remplacer ne reconnaît pas ce symbole (qui en copier/coller dans la barre de remplacement devient un rond noir). Je suis donc parti sur l'idée de programmer une macro, mais je ne trouve pas comment faire. Tout ce que j'ai testé ne fonctionne pas. J'en suis arrivé à étudier la méthode insert.before, mais je ne dois pas savoir faire, ou alors c'est impossible de lui demander de reconnaître des chaînes de caractères déterminées.
Bref, s'il y avait quelqu'un pour m'aider, ce serait un grand soulagement.

[Heureux-oli]

Salut,

Pour la recherche et le remplacement, une piste là : http://heureuxoli.developpez.com/off...-et-remplacer/

On peut en lieu et place d'une chaîne, utiliser la fonction Chr() avec le code ASCII du caractère.

[Mickaël77]

Merci. Je vais essayer d'y trouver mon bonheur et reviendrai pour en donner le résultat.

[Mickaël77]

Bon, je reviens directement parce que je n'y arrive pas (même si le guide que j'ai lu est bien fait et intéressant !). Pour faire un remplacement qui inclut un caractère spécial, soit je mets son code en dehors des guillemets du texte de remplacement et alors le programme me signale une erreur de rédaction, soit je l'intègre dans les guillemets et le remplacement affiché dans le texte comprend le code en toutes lettres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "TRUC."
        .Replacement.Text = "ChrW(9830)^sTRUC."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
 
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Là on l'occurrence, je cherche à remplacer tous les "TRUC." de mon texte par un carreau noir (c'est le bon code, cela fonctionne si je fais une manipulation pour remplacer ce symbole par du texte par exemple), suivi d'un espace insécable et en conservant mon mot "TRUC.". Mais tout ce que cela donne, c'est dans le texte en toutes lettres : "ChrW(9830) TRUC."
Bref, si quelqu'un a quelques lumières sur la question...

[Heureux-oli]

Salut,

Chr et ChrW étant des fonction, il ne faut pas les mettre entre ".
Si on les met entre ", VBA les considère comme du simple texte.

[Mickaël77]

Oui, mais si je mets ChrW(9830)"^sTRUC.", cela me répond "Erreur de compilation Attendu : fin d'instruction"...

[Heureux-oli]

Salut,


Si ChrW() renvoie un String, pour combiner deux strings, il faut utiliser un opérateur de concaténation &

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChrW(9830) & "^sTRUC."

[Mickaël77]

Ça fonctionne ! Merci beaucoup ! Ce matin, j'avais pensé à quelque chose, mais c'était beaucoup plus tordu (des remplacements de remplacements, par passages successifs). Là, c'est limpide.
Bonne journée.