Deprecated: RegularLabs\Library\ArrayHelper::implode(): Implicitly marking parameter $last_glue as nullable is deprecated, the explicit nullable type must be used instead in /homepages/10/d550841420/htdocs/libraries/regularlabs/src/ArrayHelper.php on line 225
Comment obtenir une virgule en tapant sur la touche Point du clavier numérique ?

Recherche

 

 

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

France 72,3% France
Canada 5,3% Canada
Chine 3,7% Chine

Total:

154

Pays
018457999
Aujourd'hui: 184
Hier: 236
Cette semaine: 184
Semaine dernière: 2.729
Ce mois: 5.927