Discussion :

[beta1204]

Bonjour,

Je recherche le moyen de pouvoir faire une virgule dans Word en appuyant sur le « point » du clavier numérique.

Après plusieurs recherches, plusieurs disent qu’il faut passer par le panneau de configuration et les options des langues, mais cela ne fonctionne pas puisque le PC est sous un domaine et options modifiées sont effacées dès réouverture de la session.

Plusieurs recherches m’ont indiqué qu’ils étaient possibles de passé par des macros à insérer dans le fichier « normal.dotm », mais aucune des macros que j’ai trouvées ne fonctionnent.

Avez-vous une astuce pour moi SVP ??

Merci beaucoup pour votre aide !!

PS : Je suis sous Windows 7/Word 2010.

[carden752]

Bonjour,

Beaucoup de solutions sont envisageables plus ou moins complexes.

La première chose est de savoir si tu veux remplacer tous les caractères "." par des "," ou uniquement ceux qui sont situés entre des chiffres.
Si les chiffres sont tapés au clavier, on peut aussi intercepter l'appui sur la touche mais c'est plus compliqué.

Dans le premier cas (simple), l'idée pourrait être de faire une recherche générique et remplacer tous les caractères . situés entre 2 chiffres.
rechercher : "([0-9]@).([0-9]@)"
Remplacer : "\1,\2

Dans le deuxième cas, plus complexe, l'idée serait d'intercepter la touche tapée au clavier à l'aide d'une fonction comme GetasyncKeystate

[beta1204]

Merci pour la réponse,

La première méthode si elle fonctionne me convient parfaitement.
Pouvez-vous m'expliquer comment réussir à mettre ceci en macro :
rechercher : "([0-9]@).([0-9]@)"
Remplacer : "\1,\2
Je dois le mettre dans le « normal.dotm » pour qu’elle puisse être prise en compte directement ?

Pour information voici des macros que j’avais mais qui me retourne des erreurs à chaque fois :

Code :

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

1
2
3
4
Sub MAIN
OutilsPersonnaliserClavier .CodeTouche = 110, .Catégorie = 6, .Nom =
Chr$(44), .Ajouter, .Contexte = 0
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub PointOuVirgule() 
CustomizationContext = NormalTemplate 
If KeyBindings(1).Command = Chr(46) Then 
KeyBindings.Add KeyCategory:=wdKeyCategorySymbol, _ 
KeyCode:=BuildKeyCode(wdKeyNumericDecimal), Command:=Chr(44) 
StatusBar = "Virgule décimale activée" 
Else 
KeyBindings.Add KeyCategory:=wdKeyCategorySymbol, _ 
KeyCode:=BuildKeyCode(wdKeyNumericDecimal), Command:=Chr(46) 
StatusBar = "Point décimal activé" 
End If 
End Sub

Merci

[beta1204]

Est-ce que quelqu'un peut m'expliquer la démarche à suivre pour réussir à avoir une virgule à la place d'un point sur la pavé numérique ?
L'idée de carden752 est intéressante mais je ne sais pas comment la mettre en oeuvre.

Merci

[carden752]

Bonjour,

ce n'est pas une macro, un simple rechercher remplacer une fois le texte tapé.

[beta1204]

Très donc si je comprends bien je ne peux pas le mettre par défaut dans le normal.dotm pour que dès l'ouverture d'un fichier word, cela soit prit en compte ? Enfin je n'y arrive pas...

Sinon avons nous une autre solution SVP ?

Merci beaucoup pour votre aide

[beta1204]

Bonjour,

J'ai testé en vain de faire fonctionner la méthode proposée par carden752 mais je n'y arrive pas.

Pensez-vous qu'il serait possible de faire fonctionner les macros proposées ci-dessus sous word 2010, notamment celle proposée par Microsoft ICI. Elle m'indique toujours une erreur lors de son exécution.

Ou tout simplement une autre méthode ?

Merci

[beta1204]

Bonjour,
je recherche toujours une solution à mon problème.
J'essaye de comprendre comment faire pour utiliser la deuxième fonction proposée par carden752, "GetasyncKeystate", mais j'ai des difficultés à comprendre le principe.

Est-ce que quelqu'un peut m'expliquer comment utiliser cette fonction ?

Merci

[Heureux-oli]

Salut,

C'est une fonction Windwos qui surveille l'état des touches du clavier.
Si une touche est enfoncée ou relachée, Windows le signale.

L'inconvénient majeur avec ce type de fonction et qu'un morceau de code sera exéctuté pour toutes les touches du clavier et on n'intervient que pour une seule.
Le ralentissement sera très sensible.

Windows possède la barre de langue qui permet de changer la langue d'utilisation rapidement. En général, même en domiane, cette fonctionalité n'est pas désactivée.