USF : 3 décimales et plus de virgule dans la feuille Excel

[Leskwal]

Bonjour le forum.

Mon problème est expliqué dans le fichier joint.

Résumé :

Une valeur est inscrite dans un textbox, cette valeur est transférée sur la feuil1 d'Excel.
Le problème : Quand la valeur à plus de 2 décimales, la valeur transcrite sur la feuille Excel n'a plus de virgule ??? 😕 😕 😕

Merci d'avance pour le coup de main.

Pascal

 

[JCGL]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour à tous,

Passe en déclaration Double :

Double
(à virgule flottante en double précision) 8 octets -1,79769313486231E308 à
-4,94065645841247E-324 pour les valeurs négatives ; 4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives

A+ à tous

 

[Leskwal]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Re

Bonjour JCGL

Merci pour ta réponse MAIS :

C'est quoi la réponse ... 😀 😀 😀

Une p'tite modif sur le fichier lié pour que je comprenne.

Merci d'avance

Pascal

 

[JCGL]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour à tous,

Quel est ton séparateur décimal : le point ou la virgule ?

A+ à tous

 

[JCGL]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour à tous,

Ton fichier en retour

A+ à tous

 

[Leskwal]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Merci pour ta réponse mais ton fichier lié ne fonctionne pas.

J'ai vu que tu as modifié :

'TextBox_Cout_Horaire.Value = Replace(TextBox_Cout_Horaire.Value, ".", ",")

Bah oui, mais c'est ce que je veux lorsque les utilisateurs, utilisant le pavé numérique voient : il tape le "." et c'est la "," qui apparait.

Dans le fichier que tu me proposes, voilà ce qui se passe chez moi.

Dans le textbox "Coût horaire" je veux taper 12,123.

Je tape 12 ensuite le point (qui doit devenir une virgule), cela se transforme en 0 😕 et après 123.

PAS TOP. 😀 😀 😀

Une Solution ???

Merci de te pencher sur mon cas.

Pascal

 

[JCGL]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour à tous,

Peux-tu essayer avec ce code dans le code de l'USF :

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub

Private Sub TextBox_Cout_Horaire_Change()
TextBox_Cout_Horaire.Value = TextBox_Cout_Horaire.Value
If Not IsNumeric(TextBox_Cout_Horaire.Value) Then TextBox_Cout_Horaire.Value = 0
    ' _________ VALEUR INSCRITE SUR LA FEUILLE EXCEL______
        Sheets("Feuil1").Range("B2").Value = CDbl(Replace(UserForm1.TextBox_Cout_Horaire.Value, ".", ","))
    On Error Resume Next
        UserForm1.TextBox_Total.Value = CDbl(Replace(UserForm1.TextBox_ND_Heure, ".", ",")) * CDbl(Replace(UserForm1.TextBox_Cout_Horaire, ".", ","))
End Sub

Private Sub TextBox_ND_Heure_Change()
        If Not IsNumeric(TextBox_ND_Heure.Value) Then TextBox_ND_Heure.Value = 0
      Sheets("Feuil1").Range("A2").Value = CDbl(Replace(UserForm1.TextBox_ND_Heure.Value, ".", ","))
        ' ------CALCUL DU FORFAIT GLOBAL  _______________________
    On Error Resume Next
        UserForm1.TextBox_Total.Value = CDbl(Replace(UserForm1.TextBox_ND_Heure, ".", ",")) * CDbl(Replace(UserForm1.TextBox_Cout_Horaire, ".", ","))
End Sub

Private Sub TextBox_Total_Change()
    ' _________ VALEUR INSCRITE SUR LA FEUILLE EXCEL______
        Sheets("Feuil1").Range("C2").Value = UserForm1.TextBox_Total.Value
End Sub

A+ à tous

 

[Leskwal]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Re

Très intéressant mais :

le problème concernant le coût horaire subsiste (avec un point, ça "mer_e" toujours) , et si je force en mettant une vraie virgule au delà de trois décimales (Coût horaire) le résultat (total) est impressionnant.

J'aimerai bien que mon salaire soit calculé comme cela. 😀

Si tu peux jeter un œil...


Merci

Pascal

 

[mécano41]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour,

Peut-être comme cela...

On formate la cellule réceptrice en fonction du nombre de décimales du nombre introduit (pour ne pas avoir un tas de zéros à la fin).

Cordialement

 

[JCGL]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour à tous,

Je n'arrive pas à reproduire ce qui cloche chez toi :

Mon séparateur décimal est le point sur XL et Windows



A+ à tous
​

 

[mécano41]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Je n'arrive pas à reproduire ce qui cloche chez toi :

Bonjour,

J'utilise la virgule dans les cellules d'EXCEL et même avec un autre fichier que celui de Leskwal, apparemment, si la cellule n'est pas formatée avec un nombre de décimales supérieur à celui du nombre introduit, la virgule disparaît et le nombre est multiplié par 1000 (cela, je ne comprends pas pourquoi...😡 )

Pour cette raison, je propose le formatage en fonction du Nb. de décimales... mais ce n'est qu'une solution parmi d'autres...

Cordialement

 

[Robert]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour le fil, bonjour le forum,

Ce code dans une textbox permet de remplacer le point par une virgule :

Private Sub TextBox_Cout_Horaire_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44 'remplace le point par la virgule
End Sub

En pièce jointe ton fichier modifié.

 

[Leskwal]

Re : USF : 3 décimales et plus de virgule dans la feuille Excel

Bonjour à tous et Merci pour vos réponses

En fichier joint, le problème résolu grâce principalement aux propositions de JCGL.

Si il peut servir à d'autres ... 😀

Encore Merci et bonne journée.


Pascal