TextBox format Numérique

[Ilino]

Bonjour le forum
Dans le formulaire, je voudrais faire dans la TextBox condition format numérique.
Lorsque je saisi par exemple un texte alphanumérique, un message d’erreur s’affiche on signalant « veuillez tapez un chiffre ».
Y aurait-il un formatage (code vba) à faire sur la TextBox?
Merci.

 

[Dranreb]

Re : TextBox format Numérique

Bonjour.
Lorsqu'il change, essayez de le convertir en numérique, après On Error Resume Next
À +

 

[job75]

Re : TextBox format Numérique

Rebonjour Ilino, salut Bernard,

Ce fil posait le même problème :

https://www.excel-downloads.com/thr...des-valeurs-numeriques-avec-decimales.187104/

A+

 

[Ilino]

Re : TextBox format Numérique

Resalut JOB
apres avoir adapté l'exemple a mon fichier j'ai fait sortir ce code il est fonctionel mais il est affiche le mesage d'alerte deux fois why?
Private Sub TextBox3_Change()
If Not IsNumeric(TextBox3) Then

TextBox3.Value = ""
Cancel = True
MsgBox "Seules les valeurs numériques sont acceptables.", _
vbInformation + vbOKOnly, "Attention"
Me.TextBox3.SelStart = 0
Me.TextBox3.SelLength = Len(TextBox3)
End If
End Sub

 

[job75]

Re : TextBox format Numérique

Re,

A cause de TextBox3.Value = "" qui relance la macro.

PS : ce code n'est pas terrible, ce n'est pas celui que j'ai donné sur le fil indiqué...

La MsgBox n'est guère utile...

A+

 

[Ilino]

Re : TextBox format Numérique

Re,

A cause de TextBox3.Value = "" qui relance la macro.

A+

RE Salut JOB
Mais si je le supprime j’aurais un autre souci ???
Si je saisi un texte dans la textbox il restera tjr affiché ???

 

[job75]

Re : TextBox format Numérique

Re,

Avec la méthode que vous utilisez il faut TextBox3.Value = ""...

Mais vous pouvez vous passer du message d'alerte.

Vous avez essayé les macros que j'ai données sur le fil indiqué ??

A+

 

[Ilino]

Re : TextBox format Numérique

Re,

Avec la méthode que vous utilisez il faut TextBox3.Value = ""...

Mais vous pouvez vous passer du message d'alerte.

Supper comme ça fonctionne tres bien un grand merçi JOB