VBA Excel Textbox "numérique" [Résolu/Fermé]

jeanmorel - 11 avril 2005 à 08:33 - Dernière réponse :  Cybernard
- 20 juin 2010 à 12:07
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.
Afficher la suite 

6 réponses

G.David 784 Messages postés vendredi 21 novembre 2003Date d'inscription 13 février 2013 Dernière intervention - 11 avril 2005 à 10:51
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
G.David 784 Messages postés vendredi 21 novembre 2003Date d'inscription 13 février 2013 Dernière intervention - 15 avril 2005 à 08:16
+1
Utile
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
Cette réponse vous a-t-elle aidé ?  
+1
Utile
heu
dim h as integer
Cette réponse vous a-t-elle aidé ?  
0
Utile
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
Utile
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
Utile
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