Enregistrement faux!!

Résolu/Fermé

amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 - 27 mai 2017 à 18:53
amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 - 27 mai 2017 à 23:35

Bonjour,

je m'adressse à vous pour m'aider à résoudre ce problème. Vraiment c'est urgent!!

j'ai besoin de transferer des données de textbox vers les cellules excel

j'ai décidé

Private Sub CommandButton6_Click()
Dim k As Integer, k1 As Integer, k2 As Integer, k3  As Integer

Worksheets("Change au comptant").Activate
    
      k = Range("J:J").End(xlDown).Row + 1
      k1 = Range("K:K").End(xlDown).Row + 1
      k2 = Range("L:L").End(xlDown).Row + 1
      k3 = Range("M:M").End(xlDown).Row + 1
      k4 = Range("O:O").End(xlDown).Row + 1
      k5 = Range("P:P").End(xlDown).Row + 1
       
        Cells(k, 2).Value = TextBox13.Value
        Cells(k1, 3).Value = TextBox4.Value
        Cells(k2, 4).Value = TextBox5.Value
        Cells(k3, 5).Value = TextBox6.Value
        Cells(k4, 15).Value = TextBox7.Value
        Cells(k5, 16).Value = TextBox8.Value

End Sub

mais ca ne marche pas il m'enregistre des pourcentagess!!! et n'ont pas des valeurs??

merci

A voir également:

Enregistrement faux!!
Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
Comment couper un enregistrement audio - Guide
Enregistrement musique mp3 - Télécharger - Streaming audio
Enregistrement ecran pc - Guide
Youtube enregistrement vidéo - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
27 mai 2017 à 22:46

Bonjour,

un textbox ne contient que du texte (d'où son nom).
Pour transformer en numérique :

Cells(k, 2).Value = cbdl(TextBox13.Value)

eric

amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1
27 mai 2017 à 23:35

merciii bqq erriicc!!!

Réponse 2 / 2

yg_be Messages postés 23436 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 janvier 2025 Ambassadeur 1 559
27 mai 2017 à 18:57

bonjour, ne te suffit-il pas de changer le format d'affichage de tes cellules?

amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1
27 mai 2017 à 19:02

absolument nn

amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1 > amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017
27 mai 2017 à 19:15

ah désolé je fais comme ceci:

TextBox5.Value = -Format(100 * Application.WorksheetFunction.NormInv(0.01, moy, sigma), "0.000")

yg_be Messages postés 23436 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 janvier 2025 1 559 > amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017
27 mai 2017 à 19:24

quel est le format de la cellule excel?

Cells(k2, 4).NumberFormat= "0.000"

amiro2017 Messages postés 193 Date d'inscription mardi 28 février 2017 Statut Membre Dernière intervention 31 août 2017 1 > yg_be Messages postés 23436 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 janvier 2025
27 mai 2017 à 19:46

Les cellules excels sont de format pourcentages et je veux transferez les résultas de texts box tels qu'ils sont au cellule excel sachant que je ne veux pas changer le format de cellules excel!

merci yg_be

si tu ne veux pas changer le format des cellules excel, il faudrait alors enregistrer les données comme un texte dans excel, pas comme un nombre.

Cells(k2, 4).Value = "'"&cstr(TextBox5.Value)

Discussions similaires

contacts non supprimables ou modifiables sur ma carte sim

Impossible de supprimer mes contacts

Comment supprimer un contact

Activer ma carte SIM lycamobile