Saisie avec point ou virgule textbox

Alors j'ai un projet VBA Excel pour le calcul du stock et je voudrai autoriser la saisie avec . ou ,

j'ai essayé mais j'ai pas réussi à le faire erreur de débogage a chaque fois

Les colonnes concernées :

Stock - Stock Mini - Stock maxi - Stock initial

Merci

61stock.xlsm (131.77 Ko)

Bonjour,

Il te faut un évènement à chaque sortie de textbox contenant un chiffre.

Par exemple :

Private Sub TxtStockdMaxiCréation_afterupdate()
If TxtStockdMaxiCréation="" Then
Exit Sub
Else: TxtStockdMaxiCréation=Application.WorksheetFunction.Substitute(TxtStockdMaxiCréation.Value, ",", ".")
End if
End sub

bonjour à tous,

Si le but est de saisir . ou , et d' obtenir . dans la TextBox1 (par exemple) utiliser l'évènement KeyPress de cette textbox

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = 44 Then KeyAscii = 46 ' virgule en point , le point n'est pas affecté
End sub

si on veut l’inverse ....

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = 46 Then KeyAscii = 44 ' point en virgule, la virgule n'est pas affectée
End Sub

A+

Merci pour vos deux mais ça n'a pas marcher avec

Pourtant avec la deuxième réponse j'ai réussi la saisie dans textbox exemple 0.2 mais dans la cellule j'ai 2

??

il faudrait préciser exactement dans quel partie du code de quelle sub ; d'ailleurs puisqu'il y a une erreur la ligne est signalée en jaune.

qu'on saisisse . ou , ça devrait marcher avec l'un des deux... sauf si le problème ne vient pas de là.

les données issues des textbox ou combobox sont du texte; si on veut y faire des opérations avec des décimaux, il faut convertir ces données dans le type approprié.

A+

Merci beaucoup pour vos aides, J'ai résolu le problème

La fonction CLNG converti automatiquement mes chiffres

Encore une fois merci

Pas sûr que l'utilisation de CLng permette l'affichage des nombres décimaux !

Mais si votre problème est réglé, c'est le principal .

Rechercher des sujets similaires à "saisie point virgule textbox"