XL 2013 problème de virgule en vba

[raztzom]

Bonjour,

J'ai fait un userform où j'ai des calculs, problème dans mon résultat sur le userform j'ai une virgule mais quand je l'ajoute dansune feuille excel la virgule s'enlève et donc le nombre devient complètement faux

 

[Fred0o]

Bonjour raztzom et bienvenue sur le forum

Votre énoncé n'est pas très clair et nous avons besoin de plus d'explication pour mieux comprendre et fournir une réponse adaptée. Rien de mieux qu'un fichier exemple avec le Userform en question, le résultat obtenu et qui pose problème, le résultat souhaite.

En questions pour mieux comprendre : Quel contrôle dans le USF ? A quel format est-il ? Quel est le calcul que vous réalisez, ou et comment stockez-vous le résultat ? Quel est le format de la cellule dans lequel le résultat est stocké ? ...

Un fichier exemple nous donnera (je l'espere) toutes ces informations.

 

[raztzom]

Voici les résultats que j'obtiens alors que j'aimerai obtenir 8,33 et 10,42

 

[Fred0o]

Re-bonjour

A premiere vue, c'est lié a la virgule, cell-ci est considérée comme séparateur de milliers. Essayez en remplaçant la virgule par le point.

Essayez cette formule :

    [C2] = Format(Replace(Me.TextBox3, ",", "."), "##.##")

Ou [C2] est l'adresse de la cellule ou vous stockez votre résultat et TextBox3 est le contrôle ou vous calculez la valeur.

 

[raztzom]

ça ne change rien j'ai toujours le même problème et le format des cellules est nombre

 

[Fred0o]

Dans ce cas, postez le fichier exemple anonimisé (retirez toutes données personnelles) mais avec les vrais Userform et les vrais formats.

Je ne peux rien faire de mieux avec des images.

 

[raztzom]

je vous ai mis le fichier excel

 

[Fred0o]

Re-bonjour

Je n'ai modifie qu'une ligne dans la sub "Remplir_la_demande_du_client_en_fonction_de_ses_choix()"

UserForm1.ZONE17.Value = Format(Replace((Dimension * 10) / j, ",", "."), "##.##")

Je vous met le code modifie dans le fichier joint

 

[JM27]

bonjour
essayes
dans
exemple
Sub ajouter_nvx_devis()

Sheets("Devis").Cells(i, 12) = CDbl(UserForm1.ZONE17)
Sheets("Devis").Cells(i, 13) = CDbl(UserForm1.ZONE18)

a faire sur les zone avec nombre

 

[raztzom]

Re-bonjour

Je n'ai modifie qu'une ligne dans la sub "Remplir_la_demande_du_client_en_fonction_de_ses_choix()"

UserForm1.ZONE17.Value = Format(Replace((Dimension * 10) / j, ",", "."), "##.##")

Je vous met le code modifie dans le fichier joint

le problème c'est que ça devient une chaine de caractère du coup le programme bug pour continuer les calculs

 

[Fred0o]

Avez-vous essaye la proposition de JM27 ?

 

[raztzom]

Je viens d'essayer ça marche merci à tous bonne continuation