Entrée numérique texBox

[jonat57]

Bonjour à tous,

Dans mon formulaire ci-joint, j'aimerai pouvoir saisir une entrée numérique à partir de mon texbox mais comment faire ?

J'ai tenté d'y insérer ce bout de code sans résultat.

Private Sub TextBox_Validation(Cancel As Boolean)

' Vérifie si la valeur entrée est numérique
If Not IsNumeric(TextBox.Text) Then
Cancel = True ' Annule la validation de contrôle
MsgBox "Veuillez entrer un nombre !"
End If

End Sub

Quelqu'un pourrait-il corriger ma maladresse ?

Merci.

Cordialement.

 

[laetitia90]

Re : Entrée numérique texBox

bonjour jonat57

essai comme cela rajoute

Private Sub CA_KeyPress(ByVal keyAscii As MSForms.ReturnInteger)
If InStr("0123456789.", Chr(keyAscii)) = 0 Then keyAscii = 0
End Sub

et dans validation ajouter .value
ActiveCell.Offset(0, 1).Value = CA.Value

 

[jonat57]

Re : Entrée numérique texBox

Cela fonctionne

Merci beaucoup.

Cordialement.