Valeur numérique de textbox
Bon jour à tous,
J'ai été très bien aidé récemment sur une question "d'erreur 9", mais aujourd'hui, j'ai un autre problème.
Les données numériques des textbox de mon formulaire, sont transférées sur excel en format texte et les formules qui sont liées aux cellules excel concernées ne font aucun calcul.
J'ai cherché un peu partout, mais je n'ai trouvé aucune réponse satisfaisante.
Quelqu'un pourrait-il m'aider ?
Merci
Bonjour,
Un fichier pour illustrer tout ça serait le bienvenu...
Comme son nom l'indique, le contenu d'une textbox est du texte. C'est au moment du transfert dans une plage qu'il faut le convertir.
Exemple :
Range("A1") = Textbox1.Value * 1Bonjour, lulugant et
Bonjour Pédro.
Ok pour la solution de pédro.
Mais comme il n'y a pas de fichier exemple, on ignore totalement la manière dont tes "Textbox" sont renseignées.
Tu as utilisé la virgule ? le point ? comme séparateur pour tes nombres ?
Merci à tous les deux,
Je joins le fichier simplifié après avoir supprimé quelques formulaires.
Dans la feuille "envoi", je parviens bien à transférer les chiffres figurant dans mes textbox mais les cazlculs automatiques ne se font pas dans la feuille excel car les chiffres sont considérés comme du texte.
Pardon, j'ai oublié,
oui j'utilise le point et la virgule
Comme le suggère pédro tu remplaces à l'endroit de tes ranges toutes me.textbox par textbox.value * 1
'nature des produits
Sheets("Envoi").Range("B3").Value = TextBox5.value * 1 'exemple
Sheets("Envoi").Range("B4").Value = Me.TextBox22
Sheets("Envoi").Range("B5").Value = Me.TextBox39
Sheets("Envoi").Range("B6").Value = Me.TextBox56
Sheets("Envoi").Range("B7").Value = Me.TextBox73
'prix de vente unitaire
Sheets("Envoi").Range("D3").Value = Me.TextBox6
Sheets("Envoi").Range("D4").Value = Me.TextBox23
Sheets("Envoi").Range("D5").Value = Me.TextBox40
Sheets("Envoi").Range("D6").Value = Me.TextBox57
Sheets("Envoi").Range("D7").Value = Me.TextBox74
'prix d'achat unitaire
Sheets("Envoi").Range("E3").Value = Me.TextBox7
Sheets("Envoi").Range("E4").Value = Me.TextBox24
Sheets("Envoi").Range("E5").Value = Me.TextBox41
Sheets("Envoi").Range("E6").Value = Me.TextBox58
Sheets("Envoi").Range("E7").Value = Me.TextBox75Pourquoi le point et la virgule ?
c'est soit l'un soit l'autre ! tu te compliques la vie inutilement car toutes les textbox avec virgule devront subir un formatage pour qu'elle soit reconnues comme nombre.
Salut Xmenpl,
Une possibilité pour le gérer :
Sheets("Envoi").Range("B3").Value = CSng(Replace(TextBox5.value, ",", "."))Un Grand Merci à tous les deux, ça fonctionne très bien !!