Offset

[pascal82]

Bonjour à tous et à toutes,

J’essaie cette instruction :

Sub test()
   Dim tabl
   Dim decal As Long
   
   For decal = 1 To 2
 
tabl = [TRANSPOSE(((AE20:AE1020+AF20:AF1020.Offset(0, decal))/G1))]
Sheets("C").[C20:C1020] = Application.Transpose(tabl)

En réponse j’obtiens » #VALEUR! ». Le code ne reconnait pas l’offset , par quoi je peux la remplacer ?

Merci par avance

 

[Hippolite]

Re : Offset

Bonjour,
Ce n'est pas Offset qui pose problème mais AE20:AE1020+AF20:AF1020 qui n'a pas de sens : on est en vba, pas en formule matricielle de feuille !
D'autre part transposer 2 fois de suite revient à ne rien faire !
Il faudrait quelques explications sur ce que tu veux faire.
A+

 

[pascal82]

Re : Offset

Bonsoir hippolite,

Je veux additionner les cellules des 2 colonnes en les divisant par une valeur en G1.
Exemple AE20+AF20/G1, AE21+AF21/G1, etc. .. Le code fonctionne sans Offset même s’il n’est pas très orthodoxe.
L’objectif de l’offset est que je change la référence d’une colonne de l’addition dans l’étape suivante.
Exemple AE20+AG20/G1, AE21+AG21/G1

Merci

 

[pascal82]

Resolu : Offset

Bonsoir carcharodon-carcharias,

Ta proposition me permet de contourner le problème, c’est parfait je n’ai plus qu’a l’adapter.

Merci encore

 

[pascal82]

Re : Offset

Bonjour carcharodon-carcharias,

Un grand merci pour la rapidité et qualité de tes réponses.

Cordialement