Textbox - valeur au format texte Résolu/Fermé

Question

Bonjour,
Pouvez-vous svp m'aider... je suis depuis peu sur VBA et également sur ce site qui m'a déjà permis d'apprendre passablement de chose... mais j'ai un petit problème avec les textbox.

Elles me renvoient une valeur en format texte alors quand dans mon fichier excel j'en ai besoin en format nombre.

J'ai essayé plusieurs formulation pour incrémenter la valeur à la cellule mais rien n'y fait :-(

EDIDebit.Value = Format(EDIDebit.Value, "0.00")
_________________________________________________
EDIDebit.Value = Format(EDIDebit.Value, "#,##0.00")
_________________________________________________
Dim Nb1 As Double
Nb1 = EDIDebit.Value
_________________________________________________
Dim NouvelleLigne
NouvelleLigne = ActiveSheet.UsedRange.Rows.Count + 1 ' compte nombre de ligne et ajoute un pour mettre à la suite
Cells(NouvelleLigne, 6) = Format(EDIDebit, "0.00")
_________________________________________________
Cells(NouvelleLigne, 6) = Format(EDIDebit, "#,##0.00")
_________________________________________________

Je souhaiterai en faite créer une base de données avec des positions contenant des débits et des crédits (c'est un programme de comptabilité)

Je vous remercie d'avance pour votre aide.

eriiic · Answer

Bonsoir,

les fonctions de conversions en vba sont :
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)

eric

n2o_ge · Answer

je suis désolé mais j'aimerai bien un exemple plus concret :

j'ai une textbox qui s'appelle EDIDebit et je voudrais que quand je la rajoute dans Cells(1,4) elle prenne directement le format nombre.

Désolé :-(

n2o_ge · Answer

J'ai trouvé une solution pas très propre mais qui fonctionne... la cellule contenant le nombre au format texte je la multiplie par un dans une autre cellule et j'obtient ce que je souhaitai.

Alors si qqun a mieux quand meme en terme de code j'apprécierai :-)

eriiic · Answer

Re,

[A1].value = CCur(EDIDebit.value) si tu veux coller le résultat au format monétaire dans A1 par exemple.
Quand tu butes sur une fonction dans VBA, tu l'écris et tu fais F1 dessus, l'aide excel est très bien documentée avec des exemples.
eric

n2o_ge · Answer

Salut Eric,

Merci infiniment !!!!!!!!!

En fait d'après ce que j'ai compris il faut d'abord ajouter la valeur dans la cellule et ensuite écrire Cells(1,1).Value = CCur(EDIDebit.value) ?

Merci encore pour ton aide
Lorenzo

eriiic · Answer

Normalement tu peux l'inscrire directement au bon format
eric

n2o_ge · Answer

Ok, merci beaucoup j'essaierai ce soir.

Et si  je veux paramétrer une Currency sans faire référence à une monnaie, comment doit-on transformer Cells(1,1).Value = CCur(EDIDebit.value) ? 

Car chez moi (en suisse) il va mettre dans ce format "Sfr #,##0.00" et je n'aimerai pas qu'il y ai des Sfr partout.

Lorenzo

eriiic · Answer

Currency est un type de variable qui conserve tous les chiffres significatifs (donc pas de puissances de 10) avec 4 chi après la virgule en interne, donc bien adapté à la monnaie.
Après c'est à toi de définir le format d'affichage de cette zone dans "format de cellule / Monétaire".
eric

n2o_ge · Answer

Bonsoir Eric,

Ok donc le paramétrage se fait directement dans excel.

Merci infiniment pour ton aide.

Bonne soirée

Textbox - valeur au format texte

9 réponses

Discussions similaires