Textbox - valeur au format texte
Résolu
n2o_ge
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
n2o_ge Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
n2o_ge Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Textbox - valeur au format texte
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Transcription audio en texte word gratuit - Guide
9 réponses
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
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
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é :-(
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é :-(
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 :-)
Alors si qqun a mieux quand meme en terme de code j'apprécierai :-)
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
[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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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