Microsoft 365 Problème conversion Nombre

eric72 · 21 Juin 2021

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

eric72 · 21 Juin 2021

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

Dranreb · 21 Juin 2021

Bonjour.
Essayez en remplaçant

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

par :

VB:

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 · 21 Juin 2021

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 · 21 Juin 2021

Bonjour eric72, Bernard,

VB:

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 :

VB:

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

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

A+

Hasco · 21 Juin 2021

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 · 21 Juin 2021

Bonsoir Job75 et Reblochon,

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

Microsoft 365 Problème conversion Nombre

eric72

XLDnaute Accro

Pièces jointes

eric72

Dranreb

XLDnaute Barbatruc

eric72

XLDnaute Accro

job75

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

eric72

XLDnaute Accro

Discussions similaires