Discussion :

[GI_GI]

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 :

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

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

[AlainTech]

Pourquoi .Address???

Code :

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

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 :

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

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 :

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

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

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

Code :

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

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 :

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

x1 = "Une valeur"

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

[GI_GI]

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 :

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

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.