OVH Cloud OVH Cloud

Adresse cellule décalée

3 réponses
Avatar
Droopy191
Salut,

Dans une macro je récupère un objet range issu d'une sélection.
je passe les cellules en "revue" ( 1 seule colonne)

Je souhaite calculer pour chaque cellule l'adresse de la cellule située
à + 13 colonnes sous la forme $A$1
ie : ma 1ere cellule est a1 -> $a$14

J'ai essayé par offset mais ca ne marche pas

For i = 1 To Selection.Rows.Count

Cell_decale = Selection.Cells(i, 1).Offset(0, 13)
...
next i

Merci de votre aide

DR

3 réponses

Avatar
AV
Je souhaite calculer pour chaque cellule l'adresse de la cellule située
à + 13 colonnes sous la forme $A$1
ie : ma 1ere cellule est a1 -> $a$14


A1 > A13 c'est pas un décalage de 13 colonnes mais de 13 lignes !

msgbox Cells(i, 1).Offset(13, 0).address

AV

Avatar
ru-th
Salut

pas testé
set Cell_decale = Selection.Cells(i, 1).Offset(0, 13)

ou pour l'adresse sous forme de string
Cell_decale = Selection.Cells(i, 1).Offset(0, 13).address
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Droopy191" a écrit dans le message de news:
424ebf60$0$12955$
Salut,

Dans une macro je récupère un objet range issu d'une sélection.
je passe les cellules en "revue" ( 1 seule colonne)

Je souhaite calculer pour chaque cellule l'adresse de la cellule située à
+ 13 colonnes sous la forme $A$1
ie : ma 1ere cellule est a1 -> $a$14

J'ai essayé par offset mais ca ne marche pas

For i = 1 To Selection.Rows.Count

Cell_decale = Selection.Cells(i, 1).Offset(0, 13)
...
next i

Merci de votre aide

DR


Avatar
Droopy191
Merci à tous les deux, ca marche

DR