Excel - Power Query - Power Pivot - VBA

VBA06 | Total des ventes

Énoncé

  • Thème : accumulateurs et compteurs | Durée : 15 min | Niveau : intermédiaire.
  • Macro à écrire : TotalVentes.

Travail demandé

  • Les ventes mensuelles sont en colonne B à partir de la ligne 2.
  • Sans fonction de feuille, calculer et écrire :
    • le total des ventes en E2 ;
    • le nombre de mois en E3 ;
    • la moyenne arrondie à 2 décimales avec Round en E4.

Corrigé

Sub TotalVentes()
    Dim i As Long, nb As Long
    Dim total As Double
    i = 2
    Do While Cells(i, 2).Value <> ""
        total = total + Cells(i, 2).Value
        nb = nb + 1
        i = i + 1
    Loop
    Range("E2").Value = total
    Range("E3").Value = nb
    Range("E4").Value = Round(total / nb, 2)
End Sub
  • Une variable numérique déclarée vaut 0 au départ : l'accumulateur et le compteur n'ont pas besoin d'être initialisés.
  • total est en Double, car les ventes ont des décimales ; en Long, elles seraient arrondies.
  • Round de VBA arrondit au pair le plus proche (Round(2.5) donne 2) ; WorksheetFunction.Round arrondit comme Excel.

Pour aller plus loin