VBA Excel Textbox "numérique"

Résolu/Fermé
jeanmorel - 11 avril 2005 à 08:33
 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.
A voir également:

6 réponses

G.David Messages postés 768 Date d'inscription vendredi 21 novembre 2003 Statut Membre Dernière intervention 1 juin 2020 203
11 avril 2005 à 10:51
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
G.David Messages postés 768 Date d'inscription vendredi 21 novembre 2003 Statut Membre Dernière intervention 1 juin 2020 203
15 avril 2005 à 08:16
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
heu
dim h as integer
1
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

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

Posez votre question
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
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