MACRO Pour formule SOMME

[scoubi05]

Bonjour,

J'aimerai insérer une macro pour obtenir une somme de plusieurs lignes.
Cependant ce nombre de lignes varie au fil des mois.
Comment faire pour que toutes les sommes soient prises en compte.. ?

Merci de votre aide

 

[JeanMarie]

Re : MACRO Pour formule SOMME

Bonjour Scoubi

Bienvenue sur le forum.

Essaye ce code

Sub MàJ()
Dim vLigne As Long
'
' MàJ Macro
' Macro enregistrée le 13/07/2009 par CLEMESSY
'

'
    Sheets("brut").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("F1:F2"), CopyToRange:=Columns("A:A"), Unique:=False
    vLigne = Range("B65536").End(xlUp).Row
    Cells(vLigne, 2) = "Total"
    Cells(vLigne, 3).FormulaLocal = "=SOMME(" + Range(Cells(2, 3), Cells(vLigne - 1, 3)).Address + ")"
End Sub

@+Jean-Marie

 

[Compte Supprimé 979]

Re : MACRO Pour formule SOMME

Salut Scoubi05
Salut JeanMarie 😉

Comme j'ai fais mon code également, je le mets 😀

Sub MàJ()
  Dim DerLig As Long
  '
  ' MàJ Macro
  ' Macro enregistrée le 13/07/2009 par CLEMESSY
  '
  Sheets("brut").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("F1:F2"), CopyToRange:=Columns("A:A"), Unique:=False
  ' Inscription du total
  With ActiveSheet
    ' Récupérer le numéro de la dernière ligne
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("B" & DerLig + 1).Value = "TOTAL = "
    .Range("C" & DerLig + 1).FormulaLocal = "=SOMME(C2:C" & DerLig & ")"
  End With
End Sub

A+

 

[scoubi05]

Re : MACRO Pour formule SOMME

Bonjour à tous les 2 (Jean Marie & BrunoM45)

Merci pour vos macros...mais je rencontre un petit problèle sur les 2 ...

Alors j'ai changé "Sheets ("Brut")" en "Sheets("Feuil1")" car c'est sur la feuil1 que je souhaite voir apparaitre le total sous les comptes
Par contre lorsque je lance vos deux macros alors :

Concernant Jean Marie : Il m'efface tous mes comptes ainsi que mes soldes. Du coup la somme est égale à 0 vu qu'il n'y a plus les chiffres. Par contre si je rajoute une ligne dans ma base de données avec un compte commençant par 508. J'obtiens donc 5 lignes mais le total apparait au même endroit. C'est-à-dire en ligne 5 et donc me zappe mon cinquième compte.

Concernant BrunoM45: Il m'efface tous mes comptes ainsi que mes soldes et de ce fait il me met le total en ligne 2 et la somme égale à 0.

Par contre si vous devez re affiché une macro, c'est possible de par mettre le comm "' Macro enregistrée le 13/07/2009 par ..."

Merci d'avance

 

[JeanMarie]

Re : MACRO Pour formule SOMME

RE...

Elle est bien bonne.

Je n'ai fait que rajouter trois lignes à ta macro déjà existante, si elle supprime tous tes comptes et les soldes, ce n'est pas de ma faute.
Regarde dû côté de ta ligne...

@+Jean-Marie

 

[scoubi05]

Re : MACRO Pour formule SOMME

RE...

Au tant pour moi...j'ai en fait séparer la macro en 2 ...c'est pour ça que ça m'effacer tout.

J'ai fait qu'une macro comme vous l'avez renseigné et ça marche.

Désolé

Et Encore merci

 

[scoubi05]

Re : MACRO Pour formule SOMME

Encore merci à vous deux pour votre aide

bonne journée à tous