Modèles de Rapports Personnalisés avec Excel VBA : Code Détail et Explication, Excel VBA

Modèles de Rapports Personnalisés avec Excel VBA : Code Détail et Explication, Excel VBA
Créer des modèles de rapports personnalisés en utilisant Excel VBA est un excellent moyen d’automatiser les tâches de reporting, de rationaliser les flux de travail et d’assurer la cohérence des résultats. Dans ce tutoriel, je vais vous guider à travers les étapes pour créer un modèle de rapport personnalisé dans Excel avec VBA, avec une explication détaillée de chaque partie du code.
Objectif :
Notre objectif est de développer un modèle de rapport qui :
1. Permet à l’utilisateur de saisir des paramètres (comme des plages de dates, des départements, etc.).
2. Génère automatiquement un rapport basé sur les données d’un jeu de données fourni.
3. Formate le rapport avec une présentation professionnelle (par exemple, bordures, couleurs, polices).
4. Permet une exportation facile vers un nouveau classeur ou un fichier PDF.
Étapes de mise en œuvre du code VBA :
1. Ouvrir votre Classeur Excel :

• Assurez-vous que le classeur contient des données sous une forme structurée, comme une base de données, qui servira de source pour le rapport.
• Vous créerez le rapport dans une nouvelle feuille de calcul ou un modèle existant.

2. Appuyez sur ALT + F11 pour ouvrir l’éditeur VBA.

• Insérez un nouveau module : Insertion > Module.
• Collez le code suivant dans le module.

3. Explication du code VBA et mise en œuvre :

Sub GenererRapportPersonnalise()
    ' Déclaration des variables
    Dim wsDonnees As Worksheet
    Dim wsRapport As Worksheet
    Dim derniereLigne As Long
    Dim dateDebut As Date, dateFin As Date
    Dim departement As String
    Dim plageRapport As Range
    ' Définir la feuille des données
    Set wsDonnees = ThisWorkbook.Sheets("Donnees") ' Changez "Donnees" par le nom de votre feuille de données
    ' Créer une nouvelle feuille pour le rapport
    Set wsRapport = ThisWorkbook.Sheets.Add
    wsRapport.Name = "Rapport_" & Format(Now(), "YYYYMMDD_HHMMSS") ' Nom dynamique avec un horodatage
    ' Récupérer les paramètres du rapport de l'utilisateur (ex : Plage de dates, Département)
    dateDebut = InputBox("Entrez la date de début (JJ/MM/AAAA) :", "Date de début", "01/01/2025")
    dateFin = InputBox("Entrez la date de fin (JJ/MM/AAAA) :", "Date de fin", "31/12/2025")
    departement = InputBox("Entrez le nom du département :", "Département", "Tous")
    ' Trouver la dernière ligne des données
    derniereLigne = wsDonnees.Cells(wsDonnees.Rows.Count, 1).End(xlUp).Row
    ' Filtrer les données en fonction des entrées de l'utilisateur (Plage de dates et Département)
    wsDonnees.Rows(1).AutoFilter Field:=2, Criteria1:=">=" & dateDebut, Operator:=xlAnd, Criteria2:="<=" & dateFin
    If departement <> "Tous" Then
        wsDonnees.Rows(1).AutoFilter Field:=3, Criteria1:=departement
    End If
    ' Copier les données filtrées dans la feuille de rapport
    wsDonnees.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=wsRapport.Range("A1")
    ' Appliquer la mise en forme du rapport : Titres, Bordures, Couleurs, etc.
    With wsRapport
        .Cells(1, 1).Value = "Rapport Personnalisé des Données"
        .Cells(1, 1).Font.Size = 16
        .Cells(1, 1).Font.Bold = True
        .Cells(1, 1).HorizontalAlignment = xlCenter
        .Range("A1").Merge Cells
        ' Appliquer le style à la ligne d'en-tête (première ligne des données)
        .Rows(2).Font.Bold = True
        .Rows(2).Interior.Color = RGB(0, 102, 204) ' Fond bleu pour l'en-tête
        .Rows(2).Font.Color = RGB(255, 255, 255) ' Texte blanc pour l'en-tête
        .Rows(2).HorizontalAlignment = xlCenter
        ' Formater les colonnes et ajouter des bordures
        Set plageRapport = .UsedRange
        plageRapport.Borders(xlEdgeBottom).LineStyle = xlContinuous
        plageRapport.Borders(xlEdgeBottom).Color = RGB(0, 0, 0) ' Bordure noire
        plageRapport.Borders(xlEdgeBottom).TintAndShade = 0
        plageRapport.Borders(xlEdgeBottom).Weight = xlThin
        ' Ajuster la largeur des colonnes pour une meilleure lisibilité
        .Columns("A:F").AutoFit
        ' Mettre en surbrillance les lignes ou colonnes spécifiques si nécessaire
        .Cells(.Rows.Count, 1).Value = "Total des Ventes"
        .Cells(.Rows.Count, 1).Font.Bold = True
    End With
    ' Désactiver le filtre sur la feuille des données d'origine
    wsDonnees.AutoFilterMode = False
    ' Afficher un message de succès
    MsgBox "Le rapport a été généré avec succès !", vbInformation
End Sub

Explication du Code :
1. Références aux Feuilles de Travail :

• wsDonnees : La feuille contenant les données (par exemple, ventes, transactions, etc.).
• wsRapport : La nouvelle feuille où le rapport personnalisé sera généré.

2. Paramètres de Saisie :

• dateDebut, dateFin, et departement : Ce sont les entrées collectées auprès de l’utilisateur via la méthode InputBox. L’utilisateur fournira ces valeurs pour filtrer les données.

3. Filtrage des Données :

• Le filtrage est effectué sur la feuille de données à l’aide de la méthode AutoFilter. Le premier filtre s’applique à la plage de dates (colonnes 2 et 3 dans l’exemple), et le second filtre s’applique à la colonne du département. La méthode SpecialCells(xlCellTypeVisible) garantit que seules les données visibles (filtrées) sont copiées dans le rapport.

4. Mise en Forme du Rapport :

• La première ligne est stylisée en tant que titre, et les en-têtes sont en gras avec un fond bleu et un texte blanc pour une meilleure visibilité.
• Des bordures sont appliquées sur toute la plage du rapport pour plus de clarté et de structure.
• Les colonnes sont redimensionnées automatiquement pour une meilleure lisibilité.

5. Message de Confirmation :

• Une boîte de message apparaît à la fin pour informer l’utilisateur que le rapport a été généré avec succès.

Fonctionnalités Supplémentaires à Ajouter :

• Mise en Forme Conditionnelle : Vous pouvez ajouter une mise en forme conditionnelle pour mettre en surbrillance certaines valeurs (par exemple, si une valeur de vente dépasse un seuil).
• Exportation en PDF : Vous pouvez exporter le rapport au format PDF avec la méthode ExportAsFixedFormat.
• Graphiques : Vous pouvez ajouter des graphiques pour représenter visuellement les données avec ChartObjects.
• Gestion des Erreurs : Ajoutez la gestion des erreurs (par exemple, pour capturer des saisies de dates invalides ou des données manquantes).
• Sauvegarde du Rapport : Vous pouvez enregistrer le rapport généré dans un nouveau classeur ou écraser l’existant avec :

wsRapport.SaveAs "C:\Rapports\Rapport_" & Format(Now(), "YYYYMMDD_HHMMSS") & ".xlsx"

Conclusion :
Ce code VBA offre une solution puissante pour générer des rapports de données personnalisés dans Excel, permettant ainsi un reporting automatisé et efficace. Le rapport peut être ajusté avec divers filtres et formaté pour correspondre à des normes professionnelles. En adaptant ce modèle, vous pouvez ajouter davantage de personnalisations en fonction de vos besoins spécifiques de reporting.