Bonjour,
j'ai le code suivant
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.
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
Merci pour votre aide, à l'avance.
Myriam
Partager