Code a simplifier

[apdf1]

Bonjour,

Voila j'ai un formulaire pour calculer la TVA de H.T vers T.T.C ou T.T.C vers H.T qui marche trés bien, mais je pense que l'on peut faire plus simple sur le code.
Si quelqu'un à une idée je suis preneur merci d'avance.

Ci joint mon fichier

Cordialement

Max

 

[apdf1]

Re : Code a simplifier

Re,

Personne

@+

 

[Pierrot93]

Re : Code a simplifier

Bonjour Max

regarde peut être le fichier joint si il peut t'inspirer, les calculs se font lors de la saisie dans une des 3 textbox, le taux doit être sélectionné préalablement via une des 2 "OptionButton", le séparateur de décimale est le point.... A adapter éventuellement à ton projet...

bonne journée
@+

 

[apdf1]

Re : Code a simplifier

Bonjour Pierrot,

Et merci d'avoir répondu. Le fichier super! mais je n'arrive pas a rentré un point, c'est à dire si je veut rentré la somme de 121.50 il me refuse le point commme la virgule "erreur d'éxécution 13 Incompatibilité de type".
Je sais qu'il y a un code pour rentré le point mais je me rappel plus!

Si tu as une solution elle seras la bien venue.

Merci d'avance et bonne journée

Max

 

[Pierrot93]

Re : Code a simplifier

Re,

ton séparateur décimale doit être la virgule ?? si c'est le cas, remplace dans les événements "KeyPress" des "textbox" le point par une virgule

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

 

[Pierrot93]

Re : Code a simplifier

Re,

A noter tout de même pas de problème chez moi même si je modifie dans les paramètres le séparateur (du point vers la virgule)

 

[apdf1]

Re : Code a simplifier

Re,

Oui tu as raison il était en virgule, mais je ne comprend pas pourquoi je lui ai mis le point comme séparateur de décimale il devrait accepter le point il refuse ,toujours par contre si je mais la virgule sa marche !
A tu une explication a sa?

Max

 

[Pierrot93]

Re : Code a simplifier

Re,

mais je ne comprend pas pourquoi je lui ai mis le point comme séparateur de décimale il devrait accepter le point il refuse

Où ca... dans les options Excel ou dans les paramètres régionaux ? sous 2003, à priori vba ne tient pas compte des options excel(barre de menu => outils => options => international, mais se base sur les options régionales windows...

 

[apdf1]

Re : Code a simplifier

Re,

je suis sous Excel 2007 et je suis aller dans les Options Excel/Options avancées/Utiliser les séparateurs systéme.

Max

 

[Pierrot93]

Re : Code a simplifier

Re,

As tu vu ceci :

à priori vba ne tient pas compte des options excel(barre de menu => outils => options => international, mais se base sur les options régionales windows...

 

[apdf1]

Re : Code a simplifier

Re,

OK je suis aller dans les options régionales Windows et j'ai mis le point. sa venais bien de là.

Je te remercie et te souhaite une excellente journée.

Max