convertir listfillrange(string) en range

Version imprimable

Bonjour,
j'ai le code suivant
Code:

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

bonsoir,

voir ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub MonRange()
  Dim r As Range
  If IndirectRange("valeurs!$A$3:$A$9", r) Then
        MsgBox r.Parent.Name & " = " & r.Address
    Else
       MsgBox "Erreur"
   End If
  End Sub
 
'
' Une version VBA de la fonction Indirect
'
'A voir manque traitement du classeur.. fonctionne sur classeur courant.
Function IndirectRange(stAdresse As String, r As Range) As Variant
 Dim tb As Variant
 On Error GoTo finSurErreur 'Renvoi false sur erreur
 tb = Split(stAdresse, "!")
 Select Case UBound(tb)
    Case 0
      Set r = Range(stAdresse)
      IndirectRange = True
    Case 1
     Set r = Sheets(tb(0)).Range(tb(1))
     IndirectRange = True
    Case Else
      IndirectRange = False
     End Select
     Exit Function
finSurErreur:
      IndirectRange = False
End Function

26/07/2011, 07h52
gFZT82

Bonjour,

As-tu essayé avec

Code:

Set rg = Range(ListFillRange)

Cordialement.
26/07/2011, 18h10
myriambou

merci beaucoup bbil. Ça marche avec la fonction Indirectrange. Je croyais que l'on pouvait utiliser listfillrange sans avoir à faire tout ça.
Est-ce comme ça avec tous les contrôles, je dois ajouter une TextBox dans ma feuille de saisie...
Pour gFZT82, le set ne change rien...