Discussion :

[joel50]

Bonjour
J'ai quelques souci de formules VBA suite mise à jour des données sur un fichier.

J'ai des formules Excel du type:
=SI(ESTERREUR(MOYENNE(G2:G5));0;ARRONDI(MOYENNE(G2:G5);1))

Pour mes besoin, en VBA je souhaitais les transformer en références relatives, l’enregistreur de macro me donne:
"=IF(ISERROR(AVERAGE(R[-4]C[-7]:R[-1]C[-7])),0,ROUND(AVERAGE(R[-4]C[-7]:R[-1]C[-7]),1))"

Quand j'exécute la macro:

Code :

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

1
2
3
4
5
 
Sub Macro12()
'
   Range("M2,M6,M10") = "=IF(ISERROR(AVERAGE(R[-4]C[-7]:R[-1]C[-7])),0,ROUND(AVERAGE(R[-4]C[-7]:R[-1]C[-7]),1))"
End Sub

Il me retourne en excel:
En M2:=SI(ESTERREUR(MOYENNE(F3:F1048574));0;ARRONDI(MOYENNE(F3:F1048574);1))
En M6:=SI(ESTERREUR(MOYENNE(#REF!));0;ARRONDI(MOYENNE(#REF!);1))
En M10:=SI(ESTERREUR(MOYENNE(#REF!));0;ARRONDI(MOYENNE(#REF!);1))

J'ai du mal à comprendre pourquoi et ce que je dois modifier?
Merci de votre aide
Cdt
Joël

[joel50]

Pour ceux pour qui, ça peux servir, la bonne formule relative en VBA est:
"=IF(ISERROR(AVERAGE(R[]C[-7]:R[3]C[-7])),0,ROUND(AVERAGE(R[]C[-7]:R[3]C[-7]),1))"
Pas compris pour l'enregistreur m'a renvoyé vers de mauvaises données.
Joël

[78chris]

Bonjour

Si tu obtiens F1048574 c'est que tu est plus haut que la ligne 5 et donc R-4 n'a pas de sens

La ligne 2 étant en erreur, R-4 en ligne 6 tombe sur cette erreur

[joel50]

Bonjour et Merci Chris
Oui, j'avais fini pas comprendre et corrigé.
Cdt
JOËl