Alright :-)
That was an issue with a Null value then.

ListIndex returns -1 when no item from the combo is selected, else it
returns 0 for the first item, 1 for the second, ....
Whenever you enter a sub and need to check the value of a combo (or
listvox), check its ListIndex to see if somthing is selected else exit.
Also it is a read/write property. That is, once you fill up a combobox with
values, you can set the combo's selection to the 1st item in the list by
doing:
combo.ListIndex = 0

A bientot et bonne chance,
--
Regards,
Sébastien
<http://www.ondemandanalysis.com
<http://www.ready-reports.com


"Yvester" wrote:

Oh yeah! I've got it... with your solution Sébastien. It works with the exit
sub before the wanted action...

Private Sub Clients_Change()

If Clients.ListIndex < 0 Then Exit Sub

Worksheets("Facture").Cells(5, 2).Value =
Worksheets("Donnees").Cells(Clients.Value + 2, 1)

End Sub

It prevents the case of Clients.Value = null.

Thanks for your time Sébastien and also for you, George.

Have a nice Holidays everyone
--
Yvester


"Yvester" wrote:

I try the Cint and it works but now, it's the error 94 who pop up! geezzzz...


--
Yvester


"sebastienm" wrote:

the CLIENT.Value + 2 refeer to a specific row
I understand, but it don't think it is what it does.
What does the following expression returns (in the _Change sub):
debug.print CLIENT.Value + 2

If Client.Value retuns the a 'number' (as a String though: "10" and not 10),
try replacing the above expression with
Clng(Client.Value) + 2
Still having the issue?

--
Regards,
Sébastien
<http://www.ondemandanalysis.com
<http://www.ready-reports.com


"Yvester" wrote:

Hi, maybe I didn't explain correctly my toughts.

the CLIENT.Value + 2 refeer to a specific row, based on the value returned
by the CLIENT combobox + a constant (2 in this case). and then, this value
(string) is put in a specific cell (5,2 or "B5".

Sorry for my poor explications on the first post

Yves

--
Yvester


"sebastienm" wrote:

Him

CLIENT.Value returns a string, say "Hello" therefore
CLIENT.Value + 2 returns 'hello2'

If you are looking for the index of the selection within the combo, use:
Client.ListIndex + 2 ''' Note ListIndex starts at 0 for the first item

If your combo contains numbers (stored as strings) and you meant to use
these numbers, you have to convert them from strings to numbers first:
Clng(Client.Value) + 2
--
Regards,
Sébastien
<http://www.ondemandanalysis.com
<http://www.ready-reports.com


"Yvester" wrote:

I receive the error code 13 when I close the workbook. here is the code :

Private Sub CLIENT_Change()

Worksheets("Facture").Cells(5, 2).Value =
Worksheets("Donnees").Cells(CLIENT.Value + 2, 1)

End Sub

This sub's function is to put a text value taked from the CLIENT combobox
value and to put it in a specific cell.

tx

--
Yvester