Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

 

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'hui1048
Hier2521
Cette semaine11462
Ce mois29542
Total depuis 200410764950

21
visiteurs actuellement en ligne