Discussion :

[ladygtk]

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 :

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

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

Ca ne marche pas en remplaçant

Code :

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

.value

par

Code :

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

.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

[Fvandermeulen]

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

Code :

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

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.

[aalex_38]

Bonjour,

Essaye ça :

Code :

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

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

Tu dis

[ladygtk]

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 :

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

=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 :

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

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

[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.

[ladygtk]

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

[AlainTech]

Vos deux formules marchent!

Dans ce cas, un petit clic sur ?

Merci

[ladygtk]

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 :

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

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.

[ladygtk]

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 :

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

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