Détecter si le nombre décimal contenu dans une TextBox est formé avec une virgule

Bonjour à tous,

Je travaille en ce moment sur la création d'une macro destinée à tourner sur une multitude de PC de l'entreprise. Je rencontre un petit problème d'ordre technique, sur certains ordinateurs, bien que l'on autorise l'utilisateur à remplir une TextBox uniquement à l'aide de chiffres et de points à l'aide d'un code similaire à celui ci dessous:

Code:

---

1 2 3

Private Sub TextBox_Diameter_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub

---

Lorsque j'enregistre dans un classeur la valeur de ma TextBox avec le code ci dessous (la case dans laquelle cette valeur est enregistrée est au format Nombre et attend un nombre décimal utilisant un point), sur certains ordinateurs, bien que le nombre affiché dans la textBox soit avec un point, le nombre qui s'affiche dans le tableau est avec une virgule.

Code:

---

Dies_Database.Worksheets("ListDies").Cells(derligne2, ColumnLDDiameter) = Me.TextBox_Diameter.Value

---

Cela pose des problèmes de format par la suite quand je reprend ces données pour les comparer aux valeurs standards. J'avais essayé d'utiliser le code (Val(Replace(Me.TextBox_Diameter.Text, ",", "."))) au moment de l'enregistrement des données dans le tableau, le problème est que pour les ordinateurs sur lesquels les TextBoxs ne remplacent pas automatiquement les . par des , la macro me renvoie un rapport d'erreur concernant ce code.
Je voulais donc savoir s'il existerait un moyen de checker si la TextBox contient un nombre décimal avec une virgule afin de la remplacer au moment de l'enregistrement avec le code présenté plus haut. Quelque chose du genre : If Me.TextBox_Diameter.Text.contains(,) (ce code étant totalement imaginaire)

Quelqu'un aurait des idées?

Salut,

un peu de lecture pour te donner suffisamment de matiere :
http://didier-gonard.developpez.com/...e-dans-texbox/

bonjour

Citation:

---

Cela pose des problèmes de format par la suite quand je reprend ces données pour les comparer aux valeurs standards

---

c'est ici qu'il faut reprendre la conception

x.y dans textbox deviens x,y dans cellule ,c'est pas grave ca reste un numeric et non un string

on peut alors si vraiment cela te gène , faire un numberformat="@" sur la cellule avant de coller la valeur du textbox
mais alors ce n'est plus un numeric mais un string et cela te posera soucis l'ors de tes actions suivant comme tu l'a précisé

résultat revoie la suite et laisse ta virgule dans les cellules

Merci Jean-Philippe André, j'ai trouvé ce que je cherchais je vais faire un code come celui là :

Code:

---

1 2 3 4 5 6

If Len(Replace(Me.TextBox_Diameter.Text, ",", "")) <> Len(strpass) Then Dies_Database.Worksheets("ListDies").Cells(derligne2, ColumnLDDiameter) = (Val(Replace(Me.TextBox_Diameter.Text, ",", "."))) Else Dies_Database.Worksheets("ListDies").Cells(derligne2, ColumnLDDiameter) = Me.TextBox_Diameter.Value End If

---

Merci du conseil patricktoulon, je ferai ça si jamais le code plus haut me pose toujours problème.

Bonjour


N'est-il dans ce cas pas plus simple de forcer ainsi (exemple) la saisie de la textbox :

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Change() Static etait As String If TextBox1.Text = "" Then Exit Sub If Not IsNumeric(Replace(TextBox1.Text, ".", ",")) Then TextBox1.Text = etait TextBox1.Text = Replace(TextBox1.Text, ",", "."): etait = TextBox1.Text End Sub

---

et d'en attribuer ensuite directement la valeur Val(Textbox1.text) du contenu (qui aura donc le "." comme séparateur décimal) à la cellule concernée ?

Bonjour Unparia,

J'ai déjà modifié mon code, mais j'essaierai le code proposé plus tard, merci!

Juste pour ma culture, à quoi sert la variable était ici? Un code comme celui ci ne fonctionnerait pas?

Code:

---

1 2 3 4 5

Private Sub TextBox1_Change() If TextBox1.Text = "" Then Exit Sub If Not IsNumeric(Replace(TextBox1.Text, ".", ",")) Then TextBox1.Text = Replace(TextBox1.Text, ",", ".") End Sub

---

Citation:

---

Juste pour ma culture, à quoi sert la variable était ici? Un code comme celui ci ne fonctionnerait pas?

---

Ben non ! Y compris en ajoutant le End If que tu as omis !
La variable statique etait est ESSENTIELLE. C'est elle qui permet de revenir à l'état antérieur si non numérique (cela permet de faire l'équivalent de ce que fait l'annulation de la frappe avec l'évènement Keypress - avec keyascii = 0 - puisque l'évènement Change ne gère pas seul une telle annulation).
Essaye et tu comprendras vite :lol: