format texte

Eric C

XLDnaute Barbatruc

• 24 Septembre 2005

• #2

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 :

Code:

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 24 Septembre 2005

• #3

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

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 24 Septembre 2005

• #4

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?

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 24 Septembre 2005

• #5

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?

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 24 Septembre 2005

• #6

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å

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 24 Septembre 2005

• #7

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

 

Vote positif 0 Vote négatif