Bonjour,
j'ai le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub CommandButton1_Click()
Dim feuille_compil As Worksheet
Dim feuille_saisie As Worksheet
Dim feuille_valeurs As Worksheet
Dim sh As Shape
Dim rg As Range
Dim o As Object
Dim v As String
Set sh = feuille_saisie.Shapes("Drop Down 3")
Set o = sh.OLEFormat.Object
rg = Range(ListFillRange) 'c'est ici que ça ne fonctionne pas
v = o.rg.Cells(i).Value 'le i est mon compteur
feuille_compil.Cells(no_ligne, 3) = v
End Sub
J'aimerais donc convertir listfillrange qui est de type string ("valeurs!$A$3:$A$9") en type range pour pouvoir extraire la valeur de la cellule.
Merci pour votre aide, à l'avance.
Myriam