Bonsoir à tous,
Malgré mes recherches, je ne parviens pas à trouver une solution à mon problème qui me parait pourtant très simple :
Dans un Userform, j'ai deux Textbox.
Textbox1 en format numérique (C'est le prix TTC)
Textbox2 en pourcentage (C'est la TVA).
Je souhaite lors de la validation inscrire dans un tableau Excel la valeur de la multiplication de la Textbox1 par la Textbox2 ... mais je n'y arrive pas ! Concrètement les dizaines de formules que j'ai pu tester renvoient une erreur ou des résultats incohérents. Tout cela repose sur les problèmes de format (il me semble).
Bref voici la partie du code concernée :
Pour information :
PRIX HT = PRIX TTC / (1 + TauxTVA)
Quelqu'un pourrait il m'éclairer ?
En vous remerciant d'avance,
Valentin
Malgré mes recherches, je ne parviens pas à trouver une solution à mon problème qui me parait pourtant très simple :
Dans un Userform, j'ai deux Textbox.
Textbox1 en format numérique (C'est le prix TTC)
Textbox2 en pourcentage (C'est la TVA).
Je souhaite lors de la validation inscrire dans un tableau Excel la valeur de la multiplication de la Textbox1 par la Textbox2 ... mais je n'y arrive pas ! Concrètement les dizaines de formules que j'ai pu tester renvoient une erreur ou des résultats incohérents. Tout cela repose sur les problèmes de format (il me semble).
Bref voici la partie du code concernée :
Code:
Function AjoutBaseDonnée() 'recopie les textbox dans base de donnée
Dim L As Integer
L = Sheets("Produits").Range("a5000").End(xlUp).Row + 1
With Sheets("Produits")
.Range("a" & L).Value = NewProd.Designation.Value
.Range("c" & L).Value = Format(NewProd.TVA.Value, "0.00%") 'Inscrit la TVA dans BDD
.Range("d" & L).Value = NewProd.PrixTTC.Value 'Inscrit le prix ttc dans BDD
.Range("b" & L).Value = NewProd.PrixTTC.Value / (1 + TVA.Value / 100) 'Censé inscrire le prix HT dans laBDD
End With
End FunctionPour information :
PRIX HT = PRIX TTC / (1 + TauxTVA)
Quelqu'un pourrait il m'éclairer ?
En vous remerciant d'avance,
Valentin