Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

pb affichage résultat somme d'un tri

2 réponses
Avatar
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

2 réponses

Avatar
JB
Bonjour,

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

JB

On 26 août, 18:24, Jojo wrote:
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


Avatar
Jojo
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 wrote:
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