Discussion :

[Invité]

Bonjour à tous,

Je travaille depuis peu sur une petite macro Excel (sous le dernier pack Office) me permettant de calculer des valeurs à partir de plage de données, ces plages de données (12 colonnes) glissent d'une colonne vers la droite à chaque "tour".
J'ai utilisé la formule suivante pour ce faire :

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
        "=IF(OR(SUM(CAP!R[-16]C[2+compteurfois]:R[-16]C[13+compteurfois])<6,SUM(CAP!R[7]C[2+compteurfois]:R[7]C[13+compteurfois])<6),0,(SUM(CAP!R[-16]C[2+compteurfois]:R[-16]C[13+compteurfois])+SUM(CAP!R[7]C[2+compteurfois]:R[7]C[13+compteurfois]))/24)"

Le compteur "compteurfois" est bien incrémenté, il augmente de 1 à chaque tour.

Cependant lorsque je lance mon programme, je rencontre l'erreur d'application 1004.

En essayant ceci :

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
        "=IF(OR(SUM(CAP!R[-16]C["2+compteurfois"]:R[-16]C["13+compteurfois"])<6,SUM(CAP!R[7]C["2+compteurfois"]:R[7]C["13+compteurfois"])<6),0,(SUM(CAP!R[-16]C["2+compteurfois"]:R[-16]C["13+compteurfois"])+SUM(CAP!R[7]C["2+compteurfois"]:R[7]C["13+compteurfois"]))/24)"

J'ai un message d'erreur de compilation "Attendu : Fin d'instruction" et le 2 du

Code :

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

C["2+compteurfois"]

est surligné.

En espérant que quelqu'un puisse me donner un petit coup de pouce,

Bonnes fêtes

Cordialement

hdubr

[joe.levrai]

Bonjour,

sans regarder la véracité de la formule écrite au regard de ce que tu souhaites réaliser ...

l'erreur provient du fait que tu accoles des chaines de caractères (partie écrite de ta formule) avec des données liées à ton code VBA (chiffre 2 et une variable)

ainsi ... tu as simplement oublié l'opérateur de concaténation & pour lier le tout :

dans ta dernière citation, je tire l'exemple :

Code :

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

"C[" & 2 + compteurfois & "]"

(j'ai rajouté deux jeux de guillemets (début et fin de ta citation) afin que la présentation de mon exemple te montre bien que les deux parties sont rassemblées et bien mises en formes

Ps : un grand coucou au passage à la communauté !!
pris par le temps, voici des mois que je n'ai plus contribué sur ce si bel espace.
espérant revenir prochainement

[Invité]

Impeccable ! ça fonctionne du tonnerre ! Il me semblait pourtant les avoir mis... comme quoi une faute d'inattention et tout plante ! Merci beaucoup de cette réponse plus que rapide ! Bon retour et de joyeuses fêtes