OVH Cloud OVH Cloud

Remplacement 1 caractere

2 réponses
Avatar
Baboune
Bonsoir,

je cherche le moyen de remplacer automatiquement un caractere par un autre
lorsqu'on le selectionne (en VBA).
Ces caracteres sont dans une zone de texte.

2 réponses

Avatar
Circé
Bonsoir,

Sachant que ta macro ne démarrera pas toute seule, à quoi peut-elle bien servir ?...
Il faudra positionner le curseur au bon endroit et lancer la macro... Ça me paraît aussi simple que de sélectionner le caractère
et retaper le bon...

Cela dit, tu n'as qu'à utiliser l'enregistreur de macro qui devrait donner quelque chose comme ça :

sub efface_remp()
with Selection
.Extend

'MoveRight pour sélection du caractère de droite ou MoveLeft pour celui de gauche
.MoveRight Unit:=wdCharacter, Count:=1
.TypeText Text:="ta lettre"
End with
End Sub

Bref, ça me paraît bien superfétatoire tout ça !!! :D A moins que tu ne nous aies pas tout dit !!! :-D


Circé
http://faqword.free.fr

Baboune a présenté l'énoncé suivant :
Bonsoir,

je cherche le moyen de remplacer automatiquement un caractere par un autre
lorsqu'on le selectionne (en VBA).
Ces caracteres sont dans une zone de texte.


Avatar
Baboune
Ne serai t’il pas possible de lancer une macro automatiquement au démarrage
de mon fichier ?
Cette macro pourrait détecter la sélection d’un caractère défini et le
remplacer par un autre. Ce caractère se trouve dans plusieurs zones de texte
(c’est un caractère Webdings). C’est pour contourner l’impossibilité pour
Word 2002 de placer une case à cocher dans une zone de texte.



Bonsoir,

Sachant que ta macro ne démarrera pas toute seule, à quoi peut-elle bien servir ?...
Il faudra positionner le curseur au bon endroit et lancer la macro... Ça me paraît aussi simple que de sélectionner le caractère
et retaper le bon...

Cela dit, tu n'as qu'à utiliser l'enregistreur de macro qui devrait donner quelque chose comme ça :

sub efface_remp()
with Selection
..Extend

'MoveRight pour sélection du caractère de droite ou MoveLeft pour celui de gauche
..MoveRight Unit:=wdCharacter, Count:=1
..TypeText Text:="ta lettre"
End with
End Sub

Bref, ça me paraît bien superfétatoire tout ça !!! :D A moins que tu ne nous aies pas tout dit !!! :-D