Discussion :

[Katan-Amn]

Bonjour à tous !

D'avance merci pour votre aide :-)

J'utilise word 365.

Dans mes documents, se trouvent des _ à l'endroit où je dois apporter des précisions manuelles.
J'ai crée un petit code dans un userform pour aider à compléter. Le userform est composé d'une textbox et d'un bouton. Quand j'appuie sur le bouton, le code recherche le _ le plus proche et le selectionne. J'indique alors ce que je souhaite modifier dans la textebox. Quand j'appuie sur le bouton, il remplace le _ par la valeur de la textbox. Il vide ensuite la textbox et recherche et selectionne le _ suivant. C'est super pratique pour compléter des documents et ne rien oublier derrière soi.

Par contre, pour le rendre encore plus efficace, j'aurais souhaité me passer du bouton. Et intégrer le code à la textbox elle même. C'est à dire, détecter le fait qu'on appuie sur "enter" et ensuite exécuter le code.

J'ai tenté avec "application.onkey" mais il doit y avoir quelque chose que je fais mal. J'aurais souhaité avoir un "if toucheEnterAppuyée = 1 then"...

Si vous avez une solution pour moi ?

En vous remerciant,

Katan

[E KERGRESSE]

Bonjour,

Si vous utilisez l'intellisense (une fois votre variable instanciée, un point derrière la variable, vous donne accès aux propriétés, méthodes et événements applicables à la variable).
Vous pourrez ainsi vérifier que Application.Onkey n'existe pas pour Word.

En revanche, vous pourriez contrôler la lancement de votre procédure avec l'événement TextBox1_Change. Il vous suffit de définir un caractère qui va déclencher l'événement s'il est saisi. Ici j'ai utilisé l'underscore.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_Change()
 
      If InStr(1, TextBox1, "_", vbTextCompare) > 0 Then
         'Suite du code
         TextBox1 = ""
      End If
 
End Sub

[Katan-Amn]

Effectivement, l'intellisense cela aurait dû me mettre la puce à l'oreille!

Merci pour le code, il fonctionne, ou du moins en partie !

Le texte ainsi encodé et détecté (ici l'underscore) est ajouté dans la textbox, et donc dans le word final également.
Il y a il moyen de retirer le fait que quand on appuie sur _, il le prend en compte?

[E KERGRESSE]

Il y a il moyen de retirer le fait que quand on appuie sur _, il le prend en compte?

?
Si vous avez besoin de l'underscore, choisissez un autre caractère pour lancer la procédure, mais je n'ai peut-être pas bien compris le problème.

[Katan-Amn]

J'ai changé par µ pour être sur de ne pas avoir de soucis.
Mais par exemple, je désire remplacer "_" par "DUBOIS". Je tape donc "Duboisµ" dans le textbox. Il remplace dans mon word et il y indique "DUBOISµ". Il faudrait un moyen d'isoler le dernier caractère de la textebox (le _ dans ton exemple et le µ dans le mien) et de ne pas l'inclure.

[E KERGRESSE]

Code :

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

Mid(TextBox1, 1, Len(TextBox1) - 1)

[Katan-Amn]

Ca fonctionne, c'est opérationnel ! Un grand merci