Discussion :

[pascal4782]

Bonjour à tous et à toutes,

J’essaie cette instruction :

Code :

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

1
2
3
4
5
6
7
8
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

[pgz]

Bonjour.

Les fonction Offset VBA et Excel sont différentes. En gros Offset Excel = Offset + Resize VBA.

La fonction VBA s'appelle DECALER en Fr et a 4 arguments.

En utilisant des [], tu forces une évaluation Excel.

COrdialement,

PGZ

[Daranc]

c'est quoi au juste ce que tu veux obtenir?
sommer tes deux colonnes AE et AF les diviser par G1 et coller le résultat en colonne C?

Code :

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

1
2
tabl = [TRANSPOSE(AE20:AE1020+AF20:AF1020)/G1]
Sheets("C").[C20:C1020] = Application.Transpose(tabl)

[pascal4782]

Bonsoir à vous,

Je veux additionner les cellules des 2 colonnes en les divisant par une valeur en G1 pour enfin coller le resultat en C
Exemple AE20+AF20/G1, AE21+AF21/G1, etc. .. Le code fonctionne tres bien 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 dans l’étape suivante.
Exemple AE20+AG20/G1, AE21+AG21/G1

Cordialement

[Daranc]

bien le code citer au-dessus fait cela
par contre je ne capte pas le coup de l'offset

[pascal4782]

Bonjour à tous,

Je ne dois pas avoir le niveau concernant le message de « pqz » car si je comprends que l’instruction n’est pas adaptée, par contre le sens de l’évaluation d’excel dans le VBA reste une énigme. Je vais donc chercher.

Je n’ai donc pas été suffisamment clair lors de ma premiere explication, dans un premier temps j’additionne AE+AF, dans un deuxième temps AE+AG puis AE+AH, etc. Le but de l’offset est de décaler une colonne à chaque pas.

Cordialement