Microsoft 365 Problème conversion Nombre

Dranreb

XLDnaute Barbatruc

• 21 Juin 2021

• #2

Bonjour.
Essayez en remplaçant

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

Cliquez pour agrandir...

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.

 

Dernière édition: 21 Juin 2021

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 21 Juin 2021

• #3

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

 

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 21 Juin 2021

• #4

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+

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 21 Juin 2021

• #5

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 21 Juin 2021

• #6

Bonsoir Job75 et Reblochon,

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

 

Vote positif 0 Vote négatif