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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Bonjour,
x = Evaluate("Subtotal(9,C2:C1000)")
JB
On 26 août, 18:24, Jojo <J...@discussions.microsoft.com> 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
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
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
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 <J...@discussions.microsoft.com> 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
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