refferer une nouvelle cellulle en variable

Bonjour, je ne pense pas que le titre soit très explicié donc voila mon problème :

J'ai une variable du type :

Code:

---

1 2	dim Cellul as Range Cellule = Range("A1")

---

Je voudrais maintenant que ma cellule réfère non plus à "A1" mais à

Code:

---

Cellule.Offset(1,0)

---

sans changer le contenu de "A1"

J'ai beau chercher je ne trouve pas réponses.

Merci de votre aide

Bonjour

Déjà, pour les variables de type Range, ce sont des objets. Il faut faire:

Code:

---

1 2	Dim maPlage as Range Set maPlage = Range("A1")

---

Ensuite, si tu veux que ta variable change de range, tu lui dit simplement de changer de range.

Code:

---

Set maPlage = Range("D4") 'par exemple

---

Slooby

Bonjour,
dans quel but ?, déjà on écrit

Code:

---

1 2	Dim Cellule as Range Set Cellule = Range("A1")

---

et

Code:

---

Cellule.Offset(1,0)

---

, c'est

Code:

---

Set Cellule = Range("A2")

---

ça manque d'explication

EDIT : pas vu ta réponse Slooby

Bon, j'ai trouvé une solution mas elle est un peut dégueue je trouve :

Code:

---

1 2 3 4 5 6

With NextIndex Set .Name = .Name.Parent.Range(.Name.Offset(1, 0).Address) Set .Surname = .Surname.Parent.Range(.Surname.Offset(1, 0).Address) Set .Value = .Value.Parent.Range(.Value.Offset(1, 0).Address) End With

---

voila...

EDIT: Je comprend vos réponse, le truc c'est que j'ai simplifié le code pour le forum. Je voudrais déplacer mes variables realtivement à leur position précédente.
EDIT2: J'ai mis le parent etant donné que je travail sur deux workbooks différents