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.
A voir également:

6 réponses

Réponse 1 / 6
G.David Messages postés 769 Date d'inscription   Statut Membre Dernière intervention   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
Réponse 2 / 6
G.David Messages postés 769 Date d'inscription   Statut Membre Dernière intervention   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
Réponse 3 / 6
G.David
 
heu
dim h as integer
1
Réponse 4 / 6
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

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

Posez votre question
Réponse 5 / 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
Réponse 6 / 6
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