Macro variable dans range

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

Salut,

Il faut mettre des virgules (,) et pas des points-virgules (;).

++

malheureusement, ça ne marche pas :/

de plus il me semble bien que ce soit des points virgules dans le nom des cellules

Bonjour

Si tu expliques ce qu'elle est sensée faire ta fonction

Pour cette partie il faut des virgules : Mais que fais-tu de C après ?

en fait j'ai mis le minimum car le problème venait au moment de l'assignation de la valeur de C...

Sinon, j'ai réussi à résoudre le problème.

on peut séparer les cellule avec une virgule (après test) et je pense aussi avec un point virgule (pas tester mais normalement...)

ensuite le problème venait que j'avais des double quote " autour de mon string, ce qu'il ne faut pas

merci de votre aide