Effectivement, dans Excel et avec un clavier français, l'appui sur la touche Point donne bien une virgule, mais pas dans Word. On peut utiliser la macro suivante. A chaque exécution de cette macro, la touche point basculera entre virgule et point. Si vous utilisez fréquemment cette fonction, mettez la macro sur une barre d'outils.

Cette macro est à mettre dans le normal.dotm :

 

Public Sub PointOuVirgule()

Dim Nouveau As Boolean
Dim Etat As String
Dim Separateur As String
Dim Contexte As String
Dim oRaccourci As KeyBinding
CustomizationContext = NormalTemplate
Contexte = NormalTemplate.Name
Nouveau = True
Separateur = Application.International(wdDecimalSeparator)
' si le raccourci du point numérique est déjà affecté on le désactive
For Each oRaccourci In KeyBindings
If oRaccourci.KeyCode = BuildKeyCode(wdKeyNumericDecimal) Then
oRaccourci.Clear:  Nouveau = False:  Etat = "désactivé"
End If
Next oRaccourci


' sinon on l'active avec le séparateur des options régionales

If Nouveau Then
KeyBindings.Add KeyCategory:=wdKeyCategorySymbol, _
KeyCode:=BuildKeyCode(wdKeyNumericDecimal), _
Command:=String(2, Separateur)
Etat = "activé"
End If
MsgBox "Séparateur décimal régional " & Separateur & vbCr & _
Etat & vbCr & "dans " & Contexte, vbInformation, "Pavé numérique"
Set oRaccourci = Nothing
End Sub

 

Statistiques

Aujourd'hui1865
Hier1967
Cette semaine5790
Ce mois30205
Total depuis 200410503171

10
visiteurs actuellement en ligne