Microsoft 365 Problème conversion Nombre

[eric72]

Bonjour à tous les As d'EXCEL,
Je me retrouve dans une impasse et sans vous je ne m'en sortirais pas.
Dans le fichier ci-joint dans l'onglet "Chantiers" j'ai un bouton pour ouvrir un Userform et lorsque je sélectionne le Client "BREGEON" et que je l'ajoute le "Nombre D'heures total du chantiers" passe de 53,4666666666667 (onglet "base") à
534666666666667 lors de l'exportation dans "Chantiers", quelqu'un a-t-il déjà rencontré ce cas?
Oui je sais cela parait invraisemblable et pourtant!!!
Un grand merci d'avance.
Cordialement.
Eric

 

[Dranreb]

Bonjour.
Essayez en remplaçant

Cells(Derligne, 8) = Format(TxtNbHeures.Value, "general number")

par :

Cells(Derligne, 8) = CDbl(TxtNbHeures.Text)

Lorsqu'on affecte à une valeur ce cellule un texte comportant des chiffres et une virgule, il essaye de l'interpréter comme un nombre mais à l'anglo-saxonne, la virgule étant ignorée puisque c'est le séparateur de milliers. Alors affectez donc directement le nombre résultant d'une convertion correcte du texte.

 

[eric72]

Bonjour Dranreb,

Vous êtes juste génial et de plus très rapide.
Affaire réglée en quelques minutes et tout simplement.
1000 Mercis pour votre réponse;
Cordialement.
Eric

 

[job75]

Bonjour eric72, Bernard,

Cells(Derligne, 8) = CDbl(TxtNbHeures.Text)

provoquera un bug si la valeur entrée dans la TextBox n'est pas numérique.

Il vaut mieux utiliser :

Cells(Derligne, 8) = Val(Replace(TxtNbHeures, ",", "."))

qui fonctionne quel que soit le séparateur décimal utilisé.

A+

 

[Hasco]

Bonjour,

Il faut différencier un texte d'un nombre. L'instruction FORMAT renvoie du texte à un format donnée.
Une heure pour excel est de type Double. Utilisez la fonction de conversion CDBL dans votre procédure de validation Btn_Valider_Click() :

Cells(Derligne, 8) = CDbl("0" & TxtNbHeures.Value)

Le "0" n'est là que pour tromper CDBL au cas où TxtNbHeures serait vide.
CDBL travaille avec le séprateur décimal de l'ordinateur".

Cordialement

[Edit] Oups, j'arrive après la guerre, moi. Bonjour tout le monde

 

[eric72]

Bonsoir Job75 et Reblochon,

Merci beaucoup pour vos réponses si précieuses.
Bonne soirée à vous.
Cordialement
Eric