Gilles52300
XLDnaute Junior
Bonjour,
Voici un petit problème qui me prend la tête et dont je n'arrive pas à trouver la solution.
Je transforme la valeur d'une textbox en valeur monétaire. pour des nombres entiers, pas de soucis, j'ai bien "300 € qui vont s'afficher. par contre si j'entre "300,50" dans mon textbox, j'ai une erreur (incompatibilité de type) qui apparait et la valeur du textbox se transforme en "30,0.5"
Si vous aviez une idée pour résoudre ce problème, d'avance merci.
Voici un petit problème qui me prend la tête et dont je n'arrive pas à trouver la solution.
Je transforme la valeur d'une textbox en valeur monétaire. pour des nombres entiers, pas de soucis, j'ai bien "300 € qui vont s'afficher. par contre si j'entre "300,50" dans mon textbox, j'ai une erreur (incompatibilité de type) qui apparait et la valeur du textbox se transforme en "30,0.5"
Si vous aviez une idée pour résoudre ce problème, d'avance merci.
Code:
Private Sub CommandButton2_Click()
Dim aCpte As Currency, cLient As String
Sheets("Infos").Select
'recherhce de la ligne du client pour y mettre le montant de l'acompte
TextBox2.Value = Format(TextBox2.Value, "# ##0,00 €")
aCpte = TextBox2
cLient = ComboBox2
cLient = Cells.Find(cLient).Row
Range("I" & cLient) = aCpte
Unload Me
End Sub
Dernière édition: