1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2007 format nombre pour une textbox

Discussion dans 'Forum Excel' démarrée par Nicolas de la bas, 8 Novembre 2018 à 22:35.

  1. Nicolas de la bas

    Nicolas de la bas XLDnaute Nouveau

    Inscrit depuis le :
    Jeudi
    Messages :
    7
    "J'aime" reçus :
    0
    Bonjour à tous

    Je suis en train de créer une feuille de compta avec un formulaire de saisie via un UF dans le quel je mets bien évidement tout les information dont le débit ou le crédit tous se passe bien seulement je bloc sur une fonction de base. Voila le tableau n'a pas de limite de fin dans le sens ou d'un mois sur l'autre il n'y pas forcement le meme nombre d'entrée du coup pour calculer la somme dans un cellule à coté du tableau je mets =SOMME (G:G) mais rien ne se passe, tout les valeur entre dans la colonne G via le formulaire ne son pas pris en compte en revanche si j'écris directement les valeurs dans les cellules les valeurs sont prises en compte. J'ai essayer e prendre un plage beaucoup plus courte 10 cellule max mais même problème.
    Merci pour votre aide
     
  2. Chargement...

    Discussions similaires - format nombre textbox Forum Date
    XL 2010 Format nombre dans un textbox Forum Excel 16 Août 2018
    XL 2010 Format nombre Textbox Forum Excel 8 Mai 2018
    VBA changer format des données textbox en nombre Forum Excel 10 Mai 2016
    Format TextBox nombre et texte Forum Excel 14 Janvier 2014
    Problème addition textbox avec format nombre Forum Excel 3 Novembre 2010

  3. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14496
    "J'aime" reçus :
    877
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Bonsoir
    Si les valeurs viennent de TextBox, il faut en écrire la conversion en nombre, = CDbl(Textbox1.Text)
     
    Dernière édition: 8 Novembre 2018 à 23:20
  4. Nicolas de la bas

    Nicolas de la bas XLDnaute Nouveau

    Inscrit depuis le :
    Jeudi
    Messages :
    7
    "J'aime" reçus :
    0
    Je me rend compte au final que mes cellule ou les valeur de mes textebox son renvoyer au format monétaire, sont traiter comme du texte et du coup j aimerais savoir comment fair pour qu elle soit traiter comme des nombres?
     
  5. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14496
    "J'aime" reçus :
    877
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Pour des devises je conseille = CCur(TextBox1.Text)
    Remarque: ce n'est pas qu'Excel enregistrera réellement la valeur de cellule en Currency, mais il rectifiera s'il y a lieu le format de cellule de façon à savoir qu'il devra aussi la restituer en Currency et non en Double.
     
    Dernière édition: 8 Novembre 2018 à 23:25
  6. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25465
    "J'aime" reçus :
    2117
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour Nicolas de la bas, Bernard, le forum,

    Bah avec la propriété .Value pas besoin de convertir :
    Code (Text):
    [A1] = TextBox1.Value
    donne bien le nombre 123 en A1 quand il y a 123 ou 123 € dans TextBox1.

    Alors qu'avec CDbl il y a bug si TextBox1 est vide...

    A+
     
  7. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14496
    "J'aime" reçus :
    877
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Bonjour.
    Pourtant TypeName(TextBox1.Value) dit toujours "String". Alors ça doit venir d'un automatisme d'Excel qui tient compte du fait que l'info est transmise via un Variant … automatisme en lequel je n'ai pas confiance. Je préfère savoir ce que je fais.
     
  8. Nicolas de la bas

    Nicolas de la bas XLDnaute Nouveau

    Inscrit depuis le :
    Jeudi
    Messages :
    7
    "J'aime" reçus :
    0
    en faite voila le code de ma textbox
    Private Sub TextBox3_AfterUpdate()
    TextBox3 = VBA.Format(TextBox3.Value, "00.00 ? ")
    End Sub
    donc ma textbox me renvoie automatiquement en euro ce que je marque mais excel le traite comme du texte
     
  9. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25465
    "J'aime" reçus :
    2117
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,
    Code (Text):
    Private Sub TextBox3_AfterUpdate()
    TextBox3 = Format(TextBox3, "#0.00 €")
    End Sub

    Private Sub CommandButton1_Click()
    [A1] = Replace(TextBox3, ",", ".")
    End Sub
    Mettre A1 au format Monétaire ou Comptabilité.

    A+
     
  10. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14496
    "J'aime" reçus :
    877
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    C'est à l'écriture dans la cellule qu'il faut veiller à ce que le texte soit converti en nombre.
    (soit en exploitant des habitudes d'Excel que je connais mal, soit en s'en occupant sérieusement)
     
  11. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25465
    "J'aime" reçus :
    2117
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,
    C'est ce que j'ai fait au post #8.

    A+
     
  12. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14496
    "J'aime" reçus :
    877
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Je n'en disconviens pas. Simplement je préfère m'occuper moi même d'affecter à la Value d'un Range un Double, un Currency, une Date ou un String plutôt que de m'en remettre à des automatismes de conversion d'Excel qui me semblent plus aléatoires.
     
  13. Nicolas de la bas

    Nicolas de la bas XLDnaute Nouveau

    Inscrit depuis le :
    Jeudi
    Messages :
    7
    "J'aime" reçus :
    0
    la ligne de code fonctionne merci mais l'idée serait de replacer pour une colonne complète
     
  14. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    25465
    "J'aime" reçus :
    2117
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    En français ça veut dire quoi ? Peut-être ceci :
    Code (Text):
    Private Sub TextBox3_AfterUpdate()
    TextBox3 = Format(TextBox3, "#0.00 €")
    End Sub

    Private Sub CommandButton1_Click()
    Range("A" & Rows.Count).End(xlUp)(2) = Replace(TextBox3, ",", ".")
    End Sub
     
  15. Nicolas de la bas

    Nicolas de la bas XLDnaute Nouveau

    Inscrit depuis le :
    Jeudi
    Messages :
    7
    "J'aime" reçus :
    0
    voici le code de mon bouton de mon bouton sur le quel tu me demande de grefer ton code
    Private Sub CommandButton1_Click()
    Dim ctrl As Control
    Dim Colonne As Integer
    Dim Derligne As Integer
    Derligne = Sheets("Janvier").Range("B1048576").End(xlUp).Row + 1
    For Each ctrl In UserForm1.Controls
    Colonne = Val(ctrl.Tag)
    If Colonne > 0 Then Sheets("Janvier").Cells(Derligne, Colonne) = ctrl
    Next

    End
    End Sub


    Je les mis juste àprès next comme suite
    [G6] = Replace(TextBox3,",",".")

    ça fonctionne mais à chaqu nouvel entrée ma cellule G6 est modifier alors qu'a la base c'est un fichier compta
     
  16. Nicolas de la bas

    Nicolas de la bas XLDnaute Nouveau

    Inscrit depuis le :
    Jeudi
    Messages :
    7
    "J'aime" reçus :
    0
    Ton code fonctionne bien merci j'ai remplacer le A par le G mais le soucie si je marque 42 dans ma textbox il me renvoi 42,00€ dans ma cellule et le prend en compte dans les calcules ce que je cherchai a faire merci mais dans la cellule juste en dessous il me marque 42 qui ne serre a rien et si je fait une nouvelle entrée il marque la nouvelle somme par exemple 2 il me marque 2,00€ a Laplace du 42 qui ne serre à rien et me le prend dans le calcule mais dans la cellule juste en dessous il me marque 2 bref je pense que tu à compris
     
  17. Nicolas de la bas

    Nicolas de la bas XLDnaute Nouveau

    Inscrit depuis le :
    Jeudi
    Messages :
    7
    "J'aime" reçus :
    0
    C'est bon j ai trouver j'ai supprimé du code le (2) et ça marche impec merci
     

Partager cette page