[VBA-E] Problème d'offset cellule

Bonjour a tous,
Voila mon problème:je voudrais obtenir 4 variables contenant l'adresse des cellules décalées par rapport a la cellule cliquée.Je ne trouve pas le bon code.
Voila ce que j'essaie de faire mais ça ne fonctionne pas.

Code:

---

1 2 3 4 5 6

x = Target.Address x1 = x.Offset(0, 1) x2 = x.Offset(0, 2) x3 = x.Offset(1, 1) x4 = x.Offset(1, 2)

---

Salutations

Pourquoi .Address???

Code:

---

1 2 3 4 5 6

Set x = Target x1 = x.Offset(0, 1) x2 = x.Offset(0, 2) x3 = x.Offset(1, 1) x4 = x.Offset(1, 2)

---

... devrait marcher sans problème

Toutefois, pourquoi passer par une variable intermédiaire puisque Target est déjà une cellule?

Code:

---

1 2 3 4 5

x1 = Target.Offset(0, 1) x2 = Target.Offset(0, 2) x3 = Target.Offset(1, 1) x4 = Target.Offset(1, 2)

---

Edit --> En relisant ton message, je vois que ce sont les adresses que tu veux obtenir.
Je ne sais pas trop quel en est l'intérêt dans ton cas mais, si tu y tiens absolument:

Code:

---

1 2 3

x1 = Target.Offset(0, 1).Address ...

---

Si ton but est d'avoir 4 pointeurs vers des cellules:

Code:

---

1 2 3 4 5

Set x1 = Target.Offset(0, 1) Set x2 = Target.Offset(0, 2) Set x3 = Target.Offset(1, 1) Set x4 = Target.Offset(1, 2)

---

Dans ce cas, chaque x "sera" la cellule que tu veux atteindre.
Tu pourras donc faire

Code:

---

x1 = "Une valeur"

---

et le contenu de la cellule pointée par x1 sera modifié en "Une valeur".

Bonjour et merci beaucoup pour cette réponse rapide qui résoud mon problème.
J'ai besoin dans mon application d'avoir des variables contenant l'adresse décalé par rapport a la cellule de départ. Le code que tu m'as donné fonctionne très bien.

Code:

---

1 2 3 4 5 6

x=Target.Address 'Adresse de la cellule cliquée.Exemple($A$1) x1 = Target.Offset(0, 1).Address 'x1= ($A$2) x2 = Target.Offset(0, 2).Address 'x2= ($A$3) x3 = Target.Offset(1, 1).Address 'x3= ($B$2) x4 = Target.Offset(1, 2).Address 'x4= ($B$3)

---

C'est exactement ce que je voulais.
Encore merci.