macro variable dans range

[tibibs]

bonjour,

je ne comprends pas pourquoi mon "set range(li_ent)" me donne une erreur de valeur... :/

Function testab(r As Range) As String
Dim tabl() As String
Dim li_ent As String
Dim i As Integer
Dim c As Range

tabl = Split(r, ",")
For i = 0 To UBound(tabl)
    If i = 0 Then
    li_ent = Chr(34) & "A" & tabl(i)
    Else
    li_ent = li_ent & Chr(59) & "A" & tabl(i)
    End If
Next i
li_ent = li_ent & Chr(34)

Set c = Range(li_ent)
testab = li_ent


End Function

li_ent est égal a

"A2;A3;A4;A5"

merci d'avance

 

[tibibs]

Re : macro variable dans range

le problème c'est que l'on construit le nom des cellules... :/
donc comment li_ent peut être un range?

et ça ne marche pas

 

[tibibs]

Re : macro variable dans range

ok, j'ai trouvé le problème! en fait, il ne faut pas qu'il y ait de double quote " autour de mon string!!

merci en tout cas de ton aide