VBA - Converting Text to Number

Good morning, XRay
maybe this suits you

If UserForm3!TextBox1.Value = "" Then ActiveCell.Value .Value = "" Else ActiveCell.Value = CDbl(UserForm3!TextBox1.Value) End If

have a nice day

Use the VAL() function instead, which converts text to a number and is a VBA function.

my_string = "9874" val(my_string)=9874

le temps n'est pas de l'argent, le temps est la vie

I'm sorry, I wasn't paying attention.

In the VBA help, they talk about VAL... which suits perfectly... ;-)

See you, Blux

 "Fools dare everything. It's even how we recognize them." 

HELLO everyone

In a table made with Excel 2003, I would like to automatically replace the F with 2 and the H with 1 in another column
For the beginner that I am, it seems difficult because I can't find a function to do it
Is there a trick
Thank you for any response

Hi Xray,
I suggest a two-step method:

1/ You do a copy/paste special (change the parameters) to paste as numbers the content of the cells you're interested in
2/ You change the style "manually" by recording a macro.

You compile it all into one program. That's it!

.............D............I..............E..................I............. F...............I............... G..........I
...........................I..................................I...............................I............................I
....11/03/2010 ....I........ Couleur ...........I............ 45..............I... #VALUE!.........I
....25/03/2010 ....I.......... Bois ...............I........... 60...............I... #VALUE! .......I

Here is a glimpse of my table and here is my formula in G: = E6*7+D6

I would need to calculate a delay. In E there is a dropdown list containing the words Wood, color, white, bending, and bicolour. Each of these corresponds to a delivery time in weeks, hence the 7 in the formula.

In VBA after using the help I did this but it doesn't work (at the same time, given my level, I expected that)

Private Sub Worksheet_Calculate() If Target.Column <> 7 Or Target.Row < 6 Or Target.Cells.Count > 1 Then 'if the column <>7 (C) or the row <6 or the selection is more than 1 cell Private Const Wood As Integer = 4 Private Const Color As Integer = 3 Private Const Bending As Integer = 6 Private Const Bicolour As Integer = 4 Private Const White As Integer = 2 Else On Error GoTo End End If End Sub

Hello,

in the Excel help about string functions, you'll find the CNUM function, it might suit you...

the list of functions can be obtained by searching for "About text functions" in the help

See you, Blux

 "Stupid people dare anything. That's how you recognize them." 

You can get a book on VB or go find the MSDN library online (legally, of course!)

Don't take your time because time doesn't wait for you.