point pavé numérique

Bonsoir
Est-il possible sous word, de transformer le point en virgule sur le
pavé numérique ?
Merci d'avance pour vos réponses.
Anna

je cherche aussi une réponse à cette question

j'ai consulté les posts sur ce sujet
http://groups.google.com/group/microsoft.public.fr.word/search?q=pav%C3%A9+virgule+point&start=0&scoring=d&

je souhaite controller ce qui est saisi dans un formulaire

il s'agit d'un champ texte de type nombre et je fais une macro à la sortie.
qui doit faire un calcul à partir de ce champ donc il faut une virgule et
non un point.

le replace(monchamp,".",",") ne fonctionne pas car 725.00 donne directement
72500,00 au démarrage de la macro.

comment également empécher le passage à la ligne en appuyant sur entrée dans
la saisie de ce champ ?


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjour !

'Oliv'' nous a écrit ...

je souhaite controller ce qui est saisi dans un formulaire
il s'agit d'un champ texte de type nombre et je fais une macro à la sortie.
qui doit faire un calcul à partir de ce champ donc il faut une virgule et
non un point.
comment également empécher le passage à la ligne en appuyant sur entrée dans
la saisie de ce champ ?

Il faut faire des macros détournant les touches. Voyez :
http://support.microsoft.com/kb/211219/en-us

[Les champs de formulaires Word sont de bien vieux machins,
mais bon c'est une autre histoire...]

Anacoluthe
« La raison n'est raison qu'autant qu'elle nous touche. »
- Philippe FABRE D'ÉGLANTINE

Bonjour !

'Oliv'' nous a écrit ...

je souhaite controller ce qui est saisi dans un formulaire
il s'agit d'un champ texte de type nombre et je fais une macro à la
sortie. qui doit faire un calcul à partir de ce champ donc il faut
une virgule et non un point.
comment également empécher le passage à la ligne en appuyant sur
entrée dans la saisie de ce champ ?

Il faut faire des macros détournant les touches. Voyez :
http://support.microsoft.com/kb/211219/en-us

[Les champs de formulaires Word sont de bien vieux machins,
mais bon c'est une autre histoire...]

Anacoluthe
« La raison n'est raison qu'autant qu'elle nous touche. »
- Philippe FABRE D'ÉGLANTINE

ExCELLENT c'est tout à fait l'info que je cherchais.
donc ca donne avec de petites modif pour executer la macro en sortie de
champ et pour modifier le point en virgule.

Sub AutoNew()
' ne pas protéger le modele contenant cette macros.
CustomizationContext = ActiveDocument.AttachedTemplate
' reaffecte ENTER key to EnterKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
' reaffecte le point key to PointKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyNumericDecimal), _
KeyCategory:=wdKeyCategoryMacro, Command:="PointKeyMacro"
' protége le document pour les formulaires.
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Sub AutoOpen()
' This macro will reassign the ENTER key when you open an existing
' Word form fields document.
CustomizationContext = ActiveDocument.AttachedTemplate
' reaffecte ENTER key to EnterKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
' reaffecte le point key to PointKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyNumericDecimal), _
KeyCategory:=wdKeyCategoryMacro, Command:="PointKeyMacro"
End Sub


Sub AutoClose()
CustomizationContext = ActiveDocument.AttachedTemplate
FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
' Disables prompt to save template changes.
Templates(1).Save
End Sub

Sub EnterKeyMacro()
' Check whether the document is protected for forms
' and whether the protection is active.
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _
Selection.Sections(1).ProtectedForForms = True Then
SendKeys "{TAB}"
Else
' If the document is not protected for forms,
' insert a tab stop character.
Selection.TypeText Chr(13)
End If
End Sub

Sub pointKeyMacro()
' Check whether the document is protected for forms
' and whether the protection is active.
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _
Selection.Sections(1).ProtectedForForms = True Then
SendKeys ","
Else
' If the document is not protected for forms,
' insert a tab stop character.

Selection.TypeText Chr(44)
End If
End Sub



--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjour !

'Oliv'' nous a écrit ...

ExCELLENT c'est tout à fait l'info que je cherchais.
donc ca donne avec de petites modif pour executer la macro en sortie de
champ et pour modifier le point en virgule.

Bravo et merci du retour !
Votre extension au point décimal est à conserver :-)

Anacoluthe
« La raison n'est raison qu'autant qu'elle nous touche. »
- Philippe FABRE D'ÉGLANTINE