Discussion :

[myriambou]

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

[SfJ5Rpw8]

bonsoir,

voir ce code :

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
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

[gFZT82]

Bonjour,

As-tu essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rg = Range(ListFillRange)

Cordialement.

[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...