Probléme de Formule SOMME.SI

Question

ActiveCell.FormulaR1C1 = "=SUMIF(Export_lineaire!R[" & -5 - i + 7 & "]C[-5]:R[" & nb_ligne_lin - 5 - i + 7 & "]C[" & nb_col_lin - 4 & "];RC[-10];Export_lineaire!R[" & -5 - i + 7 & "]C[-7]:R[" & nb_ligne_lin - 5 - i + 7 & "]C[-7])"

Voila ma formule que n'arrive pas &#224; faire marcher.

i est la boucle qui balaye des cellules d'une colonne ou afficher le r&#233;sultat

nb_col_lin et nb_ligne_lin sont les limites des cellules utilis&#233;es

Merci d'avance 

Pierre

cs_Jack · Answer

Salut
Un peu brouillon tout &#231;a.
Dans ta formule, tu utilises ce format :   R[1]C[2]
Pour moi, la syntaxe est R(1)C(1) avec des parenth&#232;ses, pas des crochets

De plus, tu demandes &#224; Excel d'additionner une chaine avec des chiffres. Ca, il aime pas !
Exemple du d&#233;but (&#224; utiliser dans le reste), si SUMIF est bon, regarde dans l'aide :
ActiveCell.FormulaR1C1 = "=SUMIF(Export_lineaire!R(" & CStr(-5 - i + 7) & ")C[-5]: ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

drouault · Answer

Je viens de m'apercevoir que le haut du message a &#233;t&#233; coup&#233; donc Bonjour pour commencer (dsl)

Je regarde &#231;a tout de suite jack mais j'utilise la m&#234;me synthaxe sur une formule CountIf qui marche .....

Merci pour ta r&#233;ponse

Pierre

drouault · Answer

&#231;a n'a pas l'air de mieux lui plaire comme &#231;a :
je met le code un peu plus large au cas ou &#231;a viendrait d'ailleurs:

For i = 7 To (nb_ligne_det_art - 5) 'Balayage de la colonne quantit&#233; du bordereau &#224; remplir
    Cells(i, 11).Select 'Selection de chaque cellule qui est balayer
    If ActiveCell.Value = 0 Then
        ActiveCell.FormulaR1C1 = "=SUMIF(Export_lineaire!R(" & CStr(-5 - i + 7) & ")C(-5):R(" & CStr(nb_ligne_lin - 5 - i + 7) & ")C(" & CStr(nb_col_lin - 4) & ") 'Plage o&#249; rechercher les donn&#233;es &#224; comparer 

;RC(-10) 'Ref&#233;rence &#224; la cellule &#224; comparer

;Export_lineaire!R(" & CStr(-5 - i + 7) & ")C(-7):R(" & CStr(nb_ligne_lin - 5 - i + 7) & ")C(-7))" 'Plage &#224; sommer

    End If
    ProgressBar1.Value = i
Next i

Sinon je vais repartir de plus facile et plus petit pour tester mais je pensais qu'en m'inspirant de l'autre formule &#231;a marcherait

Merci pour votre aide

cs_Jack · Answer

et ... psst : je viens de m'apercevoir de &#231;a : Les adresses de cellule, c'est pas R(1)C(1), mais L(1)C(1) !!

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

drouault · Answer

Non toujours pas meme avec des L &#224; la place des R : je vais essayer &#224; coup de masse je pense &#231;a devrait marcher au bout d'un moment ....

drouault · Answer

A y'est &#224; moiti&#233; : La formule ne marche pas mais ne fais plus planter le programme
Il fallait mettre FormulaLocal &#224; la place de Formula R1C1
Si quelqu'un &#224; un bon tutoriel l&#224; dessus je suis preneur car j'y comprend pas grand chose entre tous &#231;a ....
Merci jack d'avoir chercher
A+
Pierre

Probléme de Formule SOMME.SI

6 réponses

Discussions similaires