Ci-dessous, nous examinerons un programme dans Excel VBA qui calcule les ventes totales de chaque employé sur une période de trois ans.

Situation:

Sales Calculator in Excel VBA

Les deux autres feuilles ont la même configuration, mais avec différentes combinaisons de mois et les employés, et les différents chiffres de ventes. Il y a plusieurs façons de calculer les ventes totales de chaque employé dans Excel, mais nous verrons que cela peut être fait dans Excel VBA très facilement.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:

  1. Tout d’abord, nous déclarons trois variables et un objet feuille de calcul. Une variable de type String que nous appelons employé, une variable de type entier que nous appelons au total, un objet feuille de travail que nous appelons la feuille, et une variable de type entier que nous appelons i.

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

  1. Nous initialisons deux variables. Nous initialisons le total variable avec la valeur 0. Nous utilisons la fonction InputBox pour obtenir le nom de l’employé de l’utilisateur.

total = 0

employee = InputBox("Enter the employee name (case sensitive)")

Enter Employee Name

  1. Une fois que l’utilisateur a entré un nom de l’employé, nous voulons calculer les ventes totales de cet employé. Le classeur se compose de trois feuilles.

Nous voulons un programme qui peut encore être utilisé si des feuilles sont ajoutées à l’avenir. Par conséquent, nous utilisons la ligne de code suivant:

For Each sheet In Worksheets

  1. Nous commençons une autre boucle For Next.

For i = 2 To 13

  1. Si le nom de l’employé entré correspond au nom de l’employé dans la colonne B, Excel VBA ajoute le nombre de ventes au total variable. Ajoutez les lignes de code suivantes:

If sheet.Cells(i, 2).Value = employee Then

total = total + sheet.Cells(i, 3).Value

End If

  1. Ne pas oublier de fermer les deux boucles.

Next i

Next sheet

  1. Enfin, nous présentons les ventes totales de l’employé au moyen d’un msgbox.

MsgBox "Total sales of " & employee & " is " & total

  1. Tester le programme.

Résultat pour David:

Sales Calculator Result