VBA Excel Textbox "numérique"

Résolu
jeanmorel -  
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
    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. 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.
      1. G.David
        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. 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 !!
          3. 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