under

[Guest]

Here is my problem :

I have a GetValue function which returns the value of cell in function of
its abscissa and its ordinate
SetValue sets a value in a cell with the same procedure

-----------------------------------
Function GetValue(S_Fond As String, S_Valeur As String)

Dim Adresse
Adresse = Cells(Range("A:A").Find(S_Valeur).Row,
Range("1:1").Find(S_Fond).Column).Address(False, False)

GetValue = Range(Adresse).value
End Function
-----------------------------------
Function SetValue(S_Fond As String, S_Valeur As String, D_Value)

Dim Adresse As Range
Adresse = Cells(Range("A:A").Find(S_Valeur).Row,
Range("1:1").Find(S_Fond).Column).Address(False, False) *
Range(Adresse).value = D_Value
End Function
-----------------------------------
Then i try to test theses function with a macro

-----------------------------------
Sub GetNumberOfFund()

Dim ad
ad = GetValue("f1c1", "first")

Call SetValue("sec", "InsertData", ad)

End Sub
-----------------------------------

"f1c1" and "sec" are in the first row of my sheet; "first" et "InsertData"
are in the first column

When i execute the macro i get this error (on tje line with an * in SetValue)

I just don't understand where this comes from

Many thanks

 

[Jim Cone]

Laurent,

With range objects, they must be declared..."Dim"
and they must "Set"

They following works for me...
'----------------------------------------
Function SetValue(S_Fond As String, S_Valeur As String, D_Value)
Dim Adresse As Excel.Range

Set Adresse = Cells(Range("A:A").Find(S_Valeur).Row, Range("1:1").Find(S_Fond).Column)
Adresse.Value = D_Value

Set Adresse = Nothing
End Function
'----------------------------------------

Regards,
Jim Cone
San Francisco, USA

 

[Bob Phillips]

Laurent,

With range objects, they must be declared..."Dim"

Not so, if not declared as a specific variable type, they will assume
Variant/Empty, and when set to a specific range, will assume Variant/Range.

 

[Guest]

I let Adresse be variant and it works

thanks

Not so, if not declared as a specific variable type, they will assume
Variant/Empty, and when set to a specific range, will assume Variant/Range.