Multiplication Textbox avec pourcentage

[sokalbr]

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 :

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 Function

Pour information :
PRIX HT = PRIX TTC / (1 + TauxTVA)

Quelqu'un pourrait il m'éclairer ?

En vous remerciant d'avance,

Valentin

 

[Compte Supprimé 979]

Re : Multiplication Textbox avec pourcentage

Salut sokalbr

Ton code me semble OK, quelle est la valeur de ton contrôle "TVA" ?

A+

 

[sokalbr]

Re : Multiplication Textbox avec pourcentage

Salut BrunoM45,

En réalité ce n'est pas une textbox mais une combobox, contenant ces valeurs : 19.6%, 7%, 5.5%
Je précise que c'est bien un "." et non une virgule.

Valentin

 

[Compte Supprimé 979]

Re : Multiplication Textbox avec pourcentage

Re,

Et d'où viennent ces valeurs ?
(un petit fichier aurait été plus facile)

En remplaçant le "." par une "," et avec ce code

Function AjoutBaseDonnée()  'recopie les textbox dans base de donnée
  Dim L As Long
  Dim TxTVA As Single
  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
    TxTVA = CSng(Replace(TVA.Value, "%", "")) / 100
    .Range("b" & L).Value = NewProd.PrixTTC.Value / (1 + TxTVA)  'Censé inscrire le prix HT dans laBDD
  End With
End Function

De plus inutile d'utiliser une fonction, puisque celle-ci ne te retourne rien

A+

 

[sokalbr]

Re : Multiplication Textbox avec pourcentage

Re,

Je n'arrive pas à transférer le fichier, mais voici un screen :



Merci pour ton aide

 

[Compte Supprimé 979]

Re : Multiplication Textbox avec pourcentage

Re,

Regarde mon post #4 modifié ;-)
Ca marche impeccable chez moi

A+

 

[sokalbr]

Re : Multiplication Textbox avec pourcentage

Re,

Effectivement, cela fonctionne très bien. Vu comme ça, il paraissait bête de laisser le "%".

En te remerciant encore une fois (ce n'est jamais de trop).

Bien à toi,

Valentin