TextBox format Numérique

Dranreb

XLDnaute Barbatruc

• 19 Octobre 2012

• #2

Re : TextBox format Numérique

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Octobre 2012

• #3

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 19 Octobre 2012

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Octobre 2012

• #5

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 19 Octobre 2012

• #6

Re : TextBox format Numérique

job75 à dit:

Re,

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

A+

Cliquez pour agrandir...

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é ???

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Octobre 2012

• #7

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 19 Octobre 2012

• #8

Re : TextBox format Numérique

job75 à dit:

Re,

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

Mais vous pouvez vous passer du message d'alerte.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif