[XL-2010] Définir une Range dans une Range.

Bonjour

Veux tu dire (par rapport à la demande initial), qq chose du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Exemple()
Dim MyNewRange1 As Range, MyNewRange2 As Range, Adr As String
    With Range("SourceDirectoryList")
        Adr = Range(.Cells(2, 1), .Cells(.Rows.Count, 1)).Address ' Ici on enlève l'appartenance à la feuille en récupérant la plage en simple format texte avec .Address
    End With
    MsgBox Adr
    Set MyNewRange1 = Sheets("TOTO").Range(Adr)
    Set MyNewRange2 = Sheets("TITI").Range(Adr)
 
    Sheets("TOTO").Activate
    MyNewRange1.Select
 
    Application.Goto MyNewRange2, True
End Sub