OVH Cloud OVH Cloud

Selection.Find

11 réponses
Avatar
xyzDaniel M
Bonjour =E0 tou(te)s,
Je souhaite supprimer certains caract=E8res imprimables ou=20
non et en en conservant strictement un (Exemple : espace,=20
^p,...).
<With Selection.Find> avec ses param=E8tres me permet d'en=20
supprimer au premier passage.
Comment puis-je r=E9cup=E8rer le nombre de remplacement=20
effectu=E9 par cette ex=E9cution pour d=E9terminer si je dois=20
relancer ou non le remplacement ? Si >0 je relance, si =3D0,=20
j'arr=EAte.
Quel mot-clef contient cette information-l=E0 ?
Remerciements anticip=E9s =E0 ceux ou celles qui auraient une=20
piste.

10 réponses

1 2
Avatar
geo
Bonjour
-----Message d'origine-----
Bonjour à tou(te)s,
Comment puis-je récupèrer le nombre de remplacement
effectué par cette exécution


A cette question il a été répondu (de mémoire)
qu'il faut faire les remplacements un par un et les
compter.
C'est artisanal, mais il ne semble pas y avoir d'autre
solution.

A+

Avatar
Guy Moncomble
Bonjour à tous,
dans le message 00a701c3c32b$4763d1c0$,

| Bonjour
| A cette question il a été répondu (de mémoire)
| qu'il faut faire les remplacements un par un et les
| compter.
| C'est artisanal, mais il ne semble pas y avoir d'autre
| solution.
|
| A+

La question a été posée le 7 juin, ci-après copie de ma réponse :
Bonjour à tous,
dans le message : ,

| La question a déjà été posée, mais il y a un certain temps, en
| cherchant dans l'historique, peut-être ?
| Il me semble que la solution était une macro qui compte à chaque
| remplacement.

La question a déjà été posée, au moins le 7juin. Je n'ai pas essayé ce
que je proposais et je ne sais même plus pourquoi. Pour un retour, c'est
un retour !
--
A+

G.M. MVP Word
Avatar
xyzDaniel M
Bonjour,
Et merci pour vos réponses : je ne cherche donc plus ce
paramètre inexistant.
Cependant, vous semblez pouvoir remonter jusqu'au mois de
Juin ; je ne le peux qu'au mois de septembre : page 69,
sinon erreur.
D'où ma question. Mais peut-être qu'une astuce vous permet
de remonter aussi loin.
Merci en tout cas.

-----Message d'origine-----
Bonjour à tous,
dans le message 00a701c3c32b$4763d1c0$,

| Bonjour
| A cette question il a été répondu (de mémoire)
| qu'il faut faire les remplacements un par un et les
| compter.
| C'est artisanal, mais il ne semble pas y avoir d'autre
| solution.
|
| A+

La question a été posée le 7 juin, ci-après copie de ma
réponse :

Bonjour à tous,
dans le message : ,

| La question a déjà été posée, mais il y a un certain
temps, en

| cherchant dans l'historique, peut-être ?
| Il me semble que la solution était une macro qui compte
à chaque

| remplacement.

La question a déjà été posée, au moins le 7juin. Je n'ai
pas essayé ce

que je proposais et je ne sais même plus pourquoi. Pour
un retour, c'est

un retour !
--
A+

G.M. MVP Word

.



Avatar
Geo
Bonsoir xyzDaniel M,


Bonjour,
Et merci pour vos réponses : je ne cherche donc plus ce
paramètre inexistant.
Cependant, vous semblez pouvoir remonter jusqu'au mois de
Juin ; je ne le peux qu'au mois de septembre : page 69,
sinon erreur.
D'où ma question. Mais peut-être qu'une astuce vous permet
de remonter aussi loin.
Merci en tout cas.


Il y a sur la page de garde de la faq de la webmistress marina
(où il y en plein d'autres bonnes choses aussi)
http://faq.ms.word.free.fr/
un accès à Google qui garde l'historique des forums.
On y retrouve quasiment tout.
Avec Outlook Express, il y a d'autres astuces pour garder des messages
des forums.
Enfin on garde dans sa boite à lettres ce qu'on veut, ainsi Guy a du
garder ses propres envoi vers le forum,
ou alors faire un dossier ou il conserve ce qui lui parait digne
d'intérêt.
--
A+

Avatar
Guy Moncomble
Bonjour à tous,
dans le message ,

| Il y a sur la page de garde de la faq de la webmistress marina
| (où il y en plein d'autres bonnes choses aussi)
| http://faq.ms.word.free.fr/
| un accès à Google qui garde l'historique des forums.
| On y retrouve quasiment tout.
| Avec Outlook Express, il y a d'autres astuces pour garder des messages
| des forums.
| Enfin on garde dans sa boite à lettres ce qu'on veut, ainsi Guy a du
| garder ses propres envoi vers le forum,
| ou alors faire un dossier ou il conserve ce qui lui parait digne
| d'intérêt.

Vrai pour les deux suppositions, mais sur ce coup, j'ai utilisé Google
sur les groupes.
--
A+

G.M. MVP Word
Avatar
Anacoluthe
Bonjour !

"xyzDaniel M" nous a écrit ...
Et merci pour vos réponses : je ne cherche donc plus ce
paramètre inexistant.


La réponse dans la FAQà http://faq.ms.word.free.fr/VBA/VBA.htm
basée sur le fait que la méthode .execute renvoie un booléen vrai
tant que la recherche est fructueuse.
et aussi pour les remplacements dans la FAQpasà US :
http://www.mvps.org/word/FAQs/MacrosVBA/GetNoOfReplacements.htm

D'où ma question. Mais peut-être qu'une astuce vous permet
de remonter aussi loin.


Vous consultez le groupe sur le WEB : utilisez un vrai lecteur
de news et voyez l'historique. C'est aussi dans la FAQà !

Anacoluthe
« Le progrès historique est vraiment lent.
Il faut parfois tout un siècle pour reculer de cinquante ans. »
- Paavo HAAVIKKO

Avatar
Geo
Bonsoir Anacoluthe,


Vous consultez le groupe sur le WEB : utilisez un vrai lecteur
de news


La difficulté, c'est qu'on a pas toujours le choix.
Au bureau je passe par ce !$£%$ de truc,
on n'a pas d'autre accès aux groupes.

Tiens , juste pour rire, vendredi le correcteur d'orthographe marchait
plus !

si si

J'ai passé 25 minutes au téléphone avec le support.


--

A+

Avatar
Anacoluthe
Bonjour !

"Geo" nous a écrit ...
J'ai passé 25 minutes au téléphone avec le support.


Et alorsse z'ont corrigé ton correcteur ?

;-)
A~

Avatar
Geo
Bonsoir Anacoluthe,


Bonjour !

"Geo" nous a écrit ...
J'ai passé 25 minutes au téléphone avec le support.


Et alorsse z'ont corrigé ton correcteur ?


Oui, quand même :-D
Réparation de Word.

Ils ne connaissent pas la faq

--

A+


Avatar
Guy Moncomble
Bonjour à tous,
dans le message ,

| La question a déjà été posée, au moins le 7juin. Je n'ai pas essayé ce
| que je proposais et je ne sais même plus pourquoi. Pour un retour,
| c'est un retour !

Ben, il suffit d'essayer, on lance la macro, on remplace puis on ferme
la boîte et hop !

Public Sub toto()
Dim a, b
On Error GoTo GestErr
Dialogs(wdDialogEditReplace).Display
GoTo Fin
GestErr:
a = Err.Number
b = Err.Description
MsgBox b, vbOKOnly, "Remplacements"
Resume Next
Fin:
End Sub

--
A+

G.M. MVP Word
1 2