XL 2016 Bloquer une saisie en chiffres

[dodineau]

Bonjour à toutes et tous.
Je voudrais pouvoir entrer dans une case uniquement des chiffres ou la virgule.
Est-il possible de bloquer le clavier en pavé numérique. La solution de validation de données ne me donne pas entièrement satisfaction.
Merci.
À+

 

[job75]

Bonjour dodineau,

Voyez le fichier joint et cette macro évènementielle dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, tablo, i&
Set r = Intersect(Target, Range("A2:A" & Rows.Count), UsedRange)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
For Each r In r.Areas 'si entrées/effacements multiples (copier-coller)
    If r.Count = 1 Then
        If r <> "" Then r.Value = Val(Replace(r, ",", "."))
    Else
        tablo = r.Value2 'matrice, plus rapide
        For i = 1 To UBound(tablo)
            If tablo(i, 1) <> "" Then tablo(i, 1) = Val(Replace(tablo(i, 1), ",", "."))
        Next i
        r = tablo
    End If
Next r
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

 

[Patrice33740]

Je voudrais pouvoir entrer dans une case uniquement des chiffres ou la virgule.
Est-il possible de bloquer le clavier en pavé numérique.

Si tu voudrais que seules les touches du pavé numérique soient utilisables, la réponse est Non, pas avec Excel, ni avec VBA courant.
Peut-être possible en utilisant l'API Windows ???

 

[dodineau]

Merci pour ces réponses.
À bientôt.