Somme automatique répétitive

[Goundard]

Bonjour à tous!

j'ai un problème que je n'arrive pas à résoudre. En fait j'ai un tableau excel qui comporte des frais sous des codes différentes. Je commence par trier mes frais plus les séparés chacun de deux lignes. Ensuite je veux additionner ces frais de la même manière qu'une somme automatique. Mais voilà je n'y arrive pas. J'ai essayer avec le Sendkeys de Microsoft, et avec plusieurs formules que j'ai trouvé sur des forums mais rien à faire.

S'il vous plait aidez moi!

Mes montants de frais à additionner sont dans la colonne I.

Merci à l'avance

 

[R@chid]

Re : Somme automatique répétitive

Bonsoir,
Avec un fichier exemple et résultats escomptés ce sera plus claire...

@ + +

 

[bruno66]

Re : Somme automatique répétitive

bonjour ,
sans fichier
dans la cellule que tu veux le resultat :
=somme(tu clic dans le d'but de ta plage et étire jusque dernière ligne ou plage que tu souhaites calculé)
a te lire

 

[Goundard]

Re : Somme automatique répétitive

Je me rends compte que j'ai oublié une phrase importante ... le tout est dans une macro...
J'ai joins un exemple. Dans celui ci les codes de frais sont en colonne D et les montants en colonne E. Je veux pouvoir dans ma maccro, mettre la somme automatique pour faire le total de frais.

J'espère que c'est plus clair cette fois ci. Désolé.

 

[gosselien]

Re : Somme automatique répétitive

et pq pas un tcd ?
ou données/sous totaux....

 

[gosselien]

Re : Somme automatique répétitive

voilà , de 2 manières si j'ai bien compris...

 

[Goundard]

Re : Somme automatique répétitive

Le problème c'est que j'aimerais en faire une macro. est-ce qu'il y a moyen ?

 

[gosselien]

Re : Somme automatique répétitive

est ce bien utile quand un sous-total ou un gcd va si vite... ?

 

[Si...]

Re : Somme automatique répétitive

salut

Si... tu tiens à une macro, il y en a une dans le fichier joint

Private Sub CommandButton1_Click()
  Dim Dl As Long
  Dl = [C60000].End(xlUp).Row
  Range("C1:C" & Dl).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[G1], Unique:=True
  Range("H2:H" & [G60000].End(xlUp).Row).FormulaR1C1 = _
    "=SUMIF(RC[-5]:R[" & Dl & "]C[-5],RC[-1],RC[-3]:R[" & Dl & "]C[-3])"
End Sub

 

[Goundard]

Re : Somme automatique répétitive

Je test. Merci beaucoup. Et @ gosselien : malheureusement le sous-total ne me convient pas vraiment pour ce que j'ai à faire.