Conversion texte en chiffre dans userform

Résolu
mchotard Messages postés 474 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Quelqu'un pourrait-il me la formule pour que ma formule ci-dessous dans mon userform1 qui marche bien sauf que les chiffres deviennent des textes
[K21] = TextBox11

Que faudrait-il ajouter à cette formule pour convertir les textes en chiffres.
Grand merci, je galère depuis des heures et malgré les forums, je n'arrive pas à solutionner mon problème.

7 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    On peut aussi faire :
    [K21] = cdbl(TextBox11)
    La flemme de lire un lien, c'est terrible...
    eric
    1
  2. Maurice
     
    Bonjour

    [K21] = TextBox11

    pour des chifres sans decimal

    [K21] = Val(TextBox11.Value)

    A+

    Maurice
    0
  3. mchotard Messages postés 474 Date d'inscription   Statut Membre Dernière intervention   44
     
    Merci Maurice c'est super. Puis-je abuser pour te demander la formule pour des décimal et monétaires
    Mais je suis déjà très satisfait de ce que tu m'as indiqué
    Cdlt
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    tu as tout dans le lien fourni par f894009.
    Choisi le type Double.

    eric
    0
  6. Maurice
     
    Re

    'a la saisie sans decimal

    Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 48 To 57
    KeyAscii = KeyAscii
    Case Else
    KeyAscii = 0
    End Select
    End Sub

    'avec decimal

    Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 46, 48 To 57
    KeyAscii = KeyAscii
    Case 44
    KeyAscii = 46
    Case Else
    KeyAscii = 0
    End Select
    End Sub

    regarde bien comment ca marche

    A+

    Maurice
    0
  7. mchotard Messages postés 474 Date d'inscription   Statut Membre Dernière intervention   44
     
    Je n'aurai qu'un mot MERCI Maurice
    Ca marche supr
    Cdlt
    0