format texte

[buromania]

Bjr Forum
que faut il changer pour avoir les valeurs obtenues par textbox puis renvoyées sur feuille en format nombre et non texte comme j'ai actuellement
PS: pour Robert, suite au dernier Post; N'arrivant pas à supprimer la feuille cachée, j'ai supprimé le classeur
Bon WE à tous

 

[Eric C]

Bonjour le forum
Bonjour buromania

Je ne vais pas t'être d'un grand secours et les piliers du forum sont partis en guiguette. Toutefois, dans ton code tu places :

TextBox1 = CDbl(TextBox1)

puis tu surlignes CDbl et appuies sur F1 -- Tu auras une belle aide de la part sur la conversion d'expression de notre ami Excel

Bon ouikand à toutes & à tous

 

[Mytå]

Salut Buromania, Eric et le Forum

J'irais plutot avec de quoi comme ceci :

If IsNumeric(TextBox1) Then Range('A1') = CDbl(TextBox1)

Mytå

P.S. fait F1 sur CDBL tu verras les formats disponibles

Message édité par: Mytå, à: 24/09/2005 15:57

 

[buromania]

Bjr Eric C, Mytå, le forum

ça ne marche pas

If IsNumeric(TextBox13) Then Range('j' & ligne) = CDbl(TextBox13)

pire, la cellule ne remplit plus

que me conseillez vous?

 

[buromania]

Bjr Eric C, Mytå, le forum

ça ne marche pas

If IsNumeric(TextBox13) Then Range('j' & ligne) = CDbl(TextBox13)

pire, la cellule ne remplit plus

que me conseillez vous?

 

[Mytå]

Re le Forum

Avec un bouton inseré directement sur une feuille je vois pas le problème

Private Sub TextBox1_Change()
If IsNumeric(TextBox1) Then
Range('A1') = CDec(TextBox1)
Else
Range('A1') = ''
End If
End Sub

Donne un exemple sinon

Amicalement Mytå

 

[buromania]

Rebjr mita, le forum

Je te remercie une nouvelle fois de te pencher sur ma question

Dans les archives, j'ai trouvé cette méthode proposé par Didier


Range('j' & ligne) = Val(TextBox13)

Sa solution a résolu mon problème

Bon WE à tous