XL 2013 problème de virgule en vba

Fred0o

XLDnaute Barbatruc

• 31 Mars 2021

• #2

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.

 

Vote positif 0 Vote négatif

R

raztzom

XLDnaute Nouveau

• 31 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 31 Mars 2021

• #4

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 :

VB:

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

 

Vote positif 0 Vote négatif

R

raztzom

XLDnaute Nouveau

• 31 Mars 2021

• #5

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 31 Mars 2021

• #6

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.

 

Vote positif 0 Vote négatif

R

raztzom

XLDnaute Nouveau

• 31 Mars 2021

• #7

je vous ai mis le fichier excel

 

Pièces jointes

• Copie.xlsm

  60.9 KB · Affichages: 14

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 31 Mars 2021

• #8

Re-bonjour

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

VB:

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

Je vous met le code modifie dans le fichier joint

 

Pièces jointes

• Copie_V1.xlsm

  61.7 KB · Affichages: 7

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 31 Mars 2021

• #9

bonjour
essayes
dans
exemple
Sub ajouter_nvx_devis()

VB:

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

a faire sur les zone avec nombre

 

Dernière édition: 31 Mars 2021

Vote positif 0 Vote négatif

Solution

R

raztzom

XLDnaute Nouveau

• 31 Mars 2021

• #10

Fred0o à dit:

Re-bonjour

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

VB:

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

Je vous met le code modifie dans le fichier joint

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 31 Mars 2021

• #11

Avez-vous essaye la proposition de JM27 ?

 

Vote positif 0 Vote négatif

R

raztzom

XLDnaute Nouveau

• 31 Mars 2021

• #12

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

 

Vote positif 0 Vote négatif