VBA Excel Textbox "numérique"

Résolu
jeanmorel -  
 Cybernard -
Bonjour,
J'ai créé un formulaire pour renseigner une feuille Base de données.
Comment et où dire à mon programme qu'il faut enregistrer et retourner la valeur d'un textbox en format "double"?
Pour l'instant, j'y arrive en formatant la colonne , en cliquant sur convrtir en nombre dans chaque case et en reformattant la colonne! Mais cette manip ne s'enregistre pas en macro.
Merci d'avance.
Configuration: XP

6 réponses

  1.
    G.David Messages postés 790 Statut Membre 203
     
    salut
    tu doit avoir une ligne e code du type
    Range( "XN").Value=textbox1.value
    la valeur du format est a mettre derriere
    Range("Xn").select
    Vhith activecell.characters(start:=1,length:=(len(textbox1.value)).font
    .fontestyle="Gras"
    ;Size=12
    ennd with
    tu fais varié X et N en fonction de tes besoins tu peux remplacer l'expression
    Range ("A1") par Cells(1,1)
    Cordialement
    G.David
    le respect n'est pas un dû
    il se merite
    1
  2. G.David Messages postés 790 Statut Membre 203
     
    Reprennons (et bonjour pendant que j'y suis)
    tu as un valeur dans un textbox
    que tu veut mettre en autre chose que string (le string par ces température je comprends)

    essaye peut etre :
    Dim h as double
    ----
    h=textbox1.value
    ---
    ceci devrait suffire
    Cordiallement
    G.David
    1
  4. jeanmorel
     
    Bonjour,
    merci d'avoir répondu, mais désolé, ce que je cherche, c'est où donner l'instruction Cdbl pour transformer la saisie textbox (string je pense) en numérique (double), ou en tout cas en transformer la valeur retournée dans ma feuille de calcul, pour justement effectuer des calculs.
    Encore merci.
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. swissi
     
    bonjour

    je n'arrive pas à mettre en place une macro pour contrôler la saisi dans un champ textbox !

    concrètemet, je veux que la valeur saisi par l'utilisateur dans un TextBox soit un entier positif.

    Quelqu'un peut m'aider ? ça doit être banale, mais voilà que je n'arrive pas à la faire !!
    0
  7. Cybernard
     
    Private Sub TextBox_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 48 To 57 '0 à 9 sont acceptes
    KeyAscii = KeyAscii
    Case Else 'elimine toute autre entree
    KeyAscii = 0
    End Select
    End Sub

    Voila
    0