Discussion :

[ArtistePeintredu44]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Jean-Philippe André]

Salut,

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

[patricktoulon]

bonjour

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

[ArtistePeintredu44]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[unparia]

Bonjour


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ArtistePeintredu44]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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