Vba "nombre dans cette cellule est au format texte"

Résolu
noe2008 Messages postés 191 Statut Membre -  
noe2008 Messages postés 191 Statut Membre -
Salut les amis,
Dans un userform je saisis des valeurs dans les textbox pour les transférer ensuite par une commande VBA dans les cellules du classeur "Range("B5").Value = TextBox1.Value" , mais dans les cellules un message apparaît "nombre dans cette cellule est au format texte"
j'ai essayé de corriger ce code pour que les valeurs seront transmis au format nombre :

Range("B5").Value = TextBox1.Value

par :

Range("B5").Value = val(TextBox1.Value)

Range("B5").Value = cnum(TextBox1.Value)

mais le résultat est le même
Merci d'avance

Configuration: Windows / Chrome 84.0.4147.125

4 réponses

  1.
    Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    Bonsoir,

    la commande 
    Range("B5").Value = TextBox1.Value

    est la bonne

    Le problème doit venir du format de la cellule en B5 reste à savoir pourquoi celle-ci transforme le texte en nombre.

    Regardez le format de cellule avant et après l'exécution du code et regardez aussi s'il n'y a pas une ligne de code qui fait transformer le formatage de cette cellule.

    Question, les nombres saisis dans la TextBox comporte-t-il des décimales ? Si oui, quel en est le séparateur ?

    1
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour à tous,

    déjà remet tes cellules au format standard pour faire le ménage.
    Ensuite 
    Range("B5").Value = cdbl(TextBox1.Value)
    devrait aller
    eric
    1
  3. noe2008 Messages postés 191 Statut Membre 4
     
    salut yoyo , voila le code entier
    Private Sub CommandButton6_Click()
    Range("B5").Value = TextBox1.Value
    Range("C5").Value = TextBox17.Value
    Range("D5").Value = TextBox18.Value
    Range("E5").Value = TextBox19.Value
    Range("F5").Value = TextBox20.Value
    Range("G5").Value = TextBox21.Value
    Range("H5").Value = TextBox22.Value
    Range("I5").Value = TextBox23.Value

    End Sub
    0
    1. noe2008 Messages postés 191 Statut Membre 4
       
      et pour effacer le contenu des textbox j'utilise :

      Private Sub CommandButton7_Click()
      TextBox16.Value = ""
      TextBox17.Value = ""
      TextBox18.Value = ""
      TextBox19.Value = ""
      TextBox20.Value = ""
      TextBox21.Value = ""
      TextBox22.Value = ""
      TextBox23.Value = ""
      End Sub
      0
      1. noe2008 Messages postés 191 Statut Membre 4 > noe2008 Messages postés 191 Statut Membre
         
        une autre petite remarque :
        pour les nombre entier pas de problème uniquement les nombres decimaux
        0
    2. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
       
      ça ne me dit pas si les nombres entrés dans les TextBox peuvent avoir des décimales ?
      0
  4. noe2008 Messages postés 191 Statut Membre 4
     
    Merci eriiic ça marche
    0