Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Somme automatique répétitive

  • Initiateur de la discussion Initiateur de la discussion Goundard
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

Goundard

Guest
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
 
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
 
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é.
 

Pièces jointes

Re : Somme automatique répétitive

salut

Si... tu tiens à une macro, il y en a une dans le fichier joint
Code:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
21
Affichages
500
D
  • Question Question
2
Réponses
28
Affichages
2 K
Deleted member 441486
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…