pb affichage résultat somme d'un tri

Le
Jojo
Bonjour,
Je cherche à faire une macro pour Excel 2000 qui permettre de calculer la
somme des factures « en cours », résultat d’un tri.
Ma macro calcule la somme de la colonne "factures" sur la feuille de départ
et non la somme des résultats du tri sur la feuille des résultats du tri!
Quelqu’un peut il me dire ce qui cloche ?
Merci d’avance pour vos conseils !


Sub Filtre()
'Macro filtre des factures « en cours »
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$M$1977").AutoFilter Field:=9, Criteria1:= _
"en cours"
Cumul ‘Activation macro de calcul total factures
End Sub

Sub Cumul ()
' Calcul le Mt total des factures en cours
Range("B1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Offset(6, 0).Range("A1").Select
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "Montant total facturé"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-13]C:R[-1]C)"
Selection.Font.Bold = True
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4799241
Bonjour,

x = Evaluate("Subtotal(9,C2:C1000)")

JB

On 26 août, 18:24, Jojo
Bonjour,
Je cherche à faire une macro pour Excel 2000 qui permettre de calculer la
somme des factures « en cours », résultat d'un tri.
Ma macro calcule la somme de la colonne "factures" sur la feuille de d épart
et non la somme des résultats du tri sur la feuille des résultats du tri!...
Quelqu'un peut il me dire ce qui cloche ?
Merci d'avance pour vos conseils !

Sub Filtre()
'Macro filtre des factures « en cours »
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$M$1977").AutoFilter Field:=9, Criteria1: = _
"en cours"
Cumul 'Activation macro de calcul total factures
End Sub

Sub Cumul ()
' Calcul le Mt total des factures en cours
Range("B1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Offset(6, 0).Range("A1").Select
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "Montant total facturé"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-13]C:R[-1]C)"
Selection.Font.Bold = True
End Sub


Jojo
Le #4799131
Ca marche!
Merci JB de ton coup de main!
Cordialement
Jojo


Bonjour,

x = Evaluate("Subtotal(9,C2:C1000)")

JB

On 26 août, 18:24, Jojo
Bonjour,
Je cherche à faire une macro pour Excel 2000 qui permettre de calculer la
somme des factures « en cours », résultat d'un tri.
Ma macro calcule la somme de la colonne "factures" sur la feuille de départ
et non la somme des résultats du tri sur la feuille des résultats du tri!...
Quelqu'un peut il me dire ce qui cloche ?
Merci d'avance pour vos conseils !

Sub Filtre()
'Macro filtre des factures « en cours »
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$M$1977").AutoFilter Field:=9, Criteria1:= _
"en cours"
Cumul 'Activation macro de calcul total factures
End Sub

Sub Cumul ()
' Calcul le Mt total des factures en cours
Range("B1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.Offset(6, 0).Range("A1").Select
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "Montant total facturé"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-13]C:R[-1]C)"
Selection.Font.Bold = True
End Sub







Publicité
Poster une réponse
Anonyme