TP VBA : Calcul Automatique des Totaux pour les Produits de PandaCodeur.com

Contexte :

Vous travaillez sur une feuille de calcul Excel pour le site PandaCodeur.com. Cette feuille contient une liste de produits en vente, avec leurs prix unitaires et les quantités disponibles. Votre mission est de créer une macro VBA très simple qui calcule automatiquement le total pour chaque produit (prix × quantité) et affiche ce total dans une colonne dédiée.

Objectif du TP :

Réaliser une macro VBA qui parcourt la liste des produits et calcule le montant total pour chaque produit, en tenant compte de la quantité disponible. Ce TP vous permettra de comprendre les bases de VBA : déclaration de variables, boucles, et manipulation des cellules Excel.

Étape 1 : Préparer la feuille Excel

1. Créer une feuille Excel avec les données suivantes :
2. Ajouter une colonne "Total" (colonne D) où le calcul du total sera affiché.

Étape 2 : Créer une macro VBA

1. Accédez à l'éditeur VBA :
   • Ouvrez Excel.
   • Allez dans l'onglet Développeur, puis cliquez sur Visual Basic.
2. Créer un module VBA :
   • Cliquez sur Insertion -> Module.
3. Commencez votre macro en nommant la macro CalculTotal :

Sub CalculTotal()
    Dim dernierProduit As Long
    Dim i As Long

Étape 3 : Trouver la dernière ligne utilisée

    ' Trouver la dernière ligne utilisée dans la colonne A
    dernierProduit = Cells(Rows.Count, 1).End(xlUp).Row

Étape 4 : Boucler à travers chaque produit et calculer le total

    ' Boucler à travers chaque produit pour calculer le total
    For i = 2 To dernierProduit
        Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value
    Next i
End Sub

Étape 5 : Tester la macro

1. Revenez à Excel, appuyez sur Alt + F8, sélectionnez CalculTotal, puis cliquez sur Exécuter.
2. Vérifiez que la colonne "Total" (colonne D) est remplie avec le calcul du total pour chaque produit.

Exemple attendu dans Excel après exécution de la macro :

Explications supplémentaires :

Variable `dernierProduit` : Elle stocke le numéro de la dernière ligne utilisée pour que la boucle sache jusqu'où elle doit aller.
Boucle `For...Next` : Elle permet de répéter le calcul pour chaque ligne du tableau.
`Cells(i, 4).Value` : C'est ici que le total est stocké. La cellule dans la colonne D (4ème colonne) de chaque ligne reçoit le calcul du total.

Ce TP simple vous permet de comprendre les bases de la programmation VBA : comment déclarer des variables, utiliser des boucles, et manipuler les cellules dans Excel. Si vous avez des questions ou besoin de précisions, je suis là pour vous aider !