Code a simplifier

A

apdf1

XLDnaute Impliqué

• 7 Mars 2011

• #2

Re : Code a simplifier

Re,

Personne

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2011

• #3

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
@+

 

Pièces jointes

• classeur2.zip

  12 KB · Affichages: 23
• classeur2.zip

  12 KB · Affichages: 22
• classeur2.zip

  12 KB · Affichages: 23

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 8 Mars 2011

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2011

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2011

• #6

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)

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 8 Mars 2011

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2011

• #8

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

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 8 Mars 2011

• #9

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2011

• #10

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...

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 8 Mars 2011

• #11

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

 

Vote positif 0 Vote négatif