[E-02] formules excel sous vba

Bonjour à tous,

je code actuellement une application qui calcule des valeurs affichées en sortie dans une feuille Excel. Je dois ensuite sommer les cellules par ligne.

Après, je veux vérifier que la somme est comprise entre deux valeurs données.
Cependant, je ne veux pas écrire simplement la formule de test dans Excel car en fonction de l'exécution, il y a plus ou moins de lignes et de colonnes en sortie. mon idée est donc de passer par vba pour écrire la formule au bon endroit (exemple: colonne immédiatement après le tableau de résultat).

C'est cool, j'ai déjà ma formule excel: si la somme des cellules A à C de la ligne est plus grande que C1 et plus petite que C2 alors VRAI.
Mais quand je code cela code sous vba, j'ai une erreur vba '1004'. Elle m'arrive expressément avec une formule ET, (avec Somme ça passe):
Voici le code:

Code:

---

1 2	i ActiveCell.Value = "=ET(D6>=C1;D6<=C2)"

---

Ca ne marche pas en remplaçant

Code:

---

.value

---

par

Code:

---

.formula

---

et du 'and' à la place du 'et' ni en écrivant juste Activecell.

Quelqu'un comprend t-il la source de l'erreur?

Merci à tous pour votre aide

Bonjour,
Voici l'équivalent de ta formule en format formuleR1C1

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=AND(R[-10]C[-2]>=R[-15]C[-3],R[-10]C[-2]<=R[-14]C[-3])"

---

Vois si ça peut t'aider dans ton problème.

Bonjour,

Essaye ça :

Code:

---

ActiveCell.FormulaLocal = "=ET(D6>=C1;D6<=C2)"

---

Tu dis

Merci aalex_38 et Fvandermeulen. Vos deux formules marchent! Et en plus je les avais vues dans des dicussions, j'ai oublié d'essayer, c'est bête.
Par contre en résultat dans la cellule, la FormulaR1C1 écrit de drôles de choses:

Code:

---

=ET(C65528>=B65523;C65528<=B65524)

---

.

Vous savez pourquoi ma formule à moi ne passait pas?

En tout cas, merci.

P.S.: pour pouvoir réutiliser la formule de Fvandermeulen: R précise la ligne (row), C la colonne (column). Entre crochets, on indique la ligne et la colonne de la cellule à utiliser. Si on est sur la même ligne où la même colonne, on peut omettre de préciser les crochets. Par exemple si je veux que ma cellule C2 contienne ce que contient A2 et que ma cellule A3 contienne ce que contient C2 je ferais:

Code:

---

1 2	range("C2").FormulaR1C1 = "=RC[-2]" range("A3").FormulaR1C1= "=R[-1]C[2]"

---

Bonjour,
La formuleR1C1 se "déplace" à partir de la cellule qui contient la formule, il faut donc être vigilent quand on adapte les variables, c'est vrai que c'est pas toujours clair, la solution de aalex_38 est plus facile d'application.

Citation:

---

Envoyé par Fvandermeulen

Bonjour,
La formuleR1C1 se "déplace" à partir de la cellule qui contient la formule, il faut donc être vigilent quand on adapte les variables, c'est vrai que c'est pas toujours clair, la solution de aalex_38 est plus facile d'application.

---

En effet, j'ai pu voir ça. J'ai enregistrer une macro, fait plusieurs opérations et j'ai compris qu'il y avait un référencement à la cellule d'où on appliquait la macro.

Merci encore

Citation:

---

Envoyé par ladygtk

Vos deux formules marchent!

---

Dans ce cas, un petit clic sur :resolu:?

Merci

Non, je n'ai pas mis résolu, car je savais que je pouvais encore avoir besoin d'en parler. Ca fait une semaine déjà, mais voilà, j'ai un nouveau problème similaire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function Init_formules_tabdebits_calcul(cell_1 As Range) ' Mise à jour des formules d'un tableau dans la feuille de calcul ' nb_colonnes = 2 Feuil5.Activate cell_1.Activate For cpt_col = 0 To nb_colonnes - 1 cell_1.Offset(0, cpt_col).FormulaR1C1 = "=SUM(RC[-18+" & cpt_col & "* 2]:RC[-17+" & cpt_col & "*2])" Next Init_formules_tabdebits_calcul = 1 ' l'exécution de la fonction s'est bien déroulée End Function

---

J'ai une erreur 1004 à la réalisation de l'instruction de l'affectation de formule.
Voyez-vous pourquoi? Je ne pense pas que ce soit dû à la formule, est-ce à cause de ma variable cell_1?
Merci à tous.

Ca y est, j'ai trouvé l'erreur:
pour les valeurs numériques, il faut les traiter en dehors de la chaîne de caractères de la formule en utilisant l'opérateur &:

Code:

---

cell_1.offset(0,cpt_col).FormulaR1C1 = "=Sum(RC[" & -18 + cpt_col * 2 & "]:RC[" & -17 + cpt_col * 2 & "])"

---