Probleme de calcul de somme

Question

Bonjour, j'aimerai savoir comment se fait il que ma formule ne marche pas et qu'il me marque erreur 2029
j'ai l'impression d'avoir tout declaré et fait tout comme il faut mais apparemment non j'ai du me tromper de syntaxe

Dim k As Integer
Dim m As Integer
Dim c As Integer


j = l
i = 3
k = 3
c = k


Do While i < index_section_femme
  
    
    Do While (Cells(i, 2) = Cells(i + 1, 2))
        i = i + 1
    Loop
        Do While (j > 9)
            Cells(c, l) = "=Sum((Cells(k, j)):(Cells(i, j)) + Cells(c, l))"
            j = j - 3
        Loop
    i = i + 1
    j = l
Loop

zen69 · Answer

et un coup ta function s'est executé.... qu'elle est la formule pour ta cellule de somme ?

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

cs_medeuy · Answer

sa sexecute sa passe dessus mais sa ne fait rien mais j'ai pas très bien compri ta demande dsl...

zen69 · Answer

Disons que tu roulles ta function .... qui en theorie insere une formule dans une cellulle... alors apres que ta function est rouller quelle est la formule dans cette cellulle?

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

zen69 · Answer

au pire met ceci :
dim s as string
s =  Inputbox("","","c=" & c & "; k=" & k & "; j=" & j & "; i=" & i & "; l=" & l) 

avant cette ligne :
 Cells(c, l) = "=Sum((Cells(k, j)):(Cells(i, j)) + Cells(c, l))" 

Et copie paste le contenu du inputbox.

<hr size ="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

bigfish_le vrai · Answer

Salut,

c'est du VBA excel ça !... t'es pas dans le bon theme ! le bon theme c'est ici :

[infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBA_244.aspx VBA]

Ceci etant dit, a priori tu essais d'ecrire une formule somme dans une cellule en tout cas c'est ce que ton code montre. Mais peut etre ne veux-tu que les resultats de ces sommes ? Dans tout les cas ta methode n'est pas bonne

Pour ecrire la formule dans les cellules
Cells(c, l).formulaLocal = "=Sum(" & Cells(k, j).Address & ":" & Cells(i, j).Address & "," &Cells(c, l).Address & ")"

Pour n'ecrire que le resultat :
Cells(c, l).Value = Application.WorksheetFunction.Sum(Range(Cells(k, j),Cells(i, j)).value, Cells(c, l).value)

A+

cs_medeuy · Answer

oula sa a lair compliké vu que je vo rien mais je vais le faire et je te tien au courant.Merci

cs_medeuy · Answer

Merci sa marche masi je teste un dernier truc et je vous tiens au courant.
Merci

Probleme de calcul de somme

7 réponses

Votre réponse

Discussions similaires