Développer une solution personnalisée de conformité des données, Excel VBA

Développer une solution personnalisée de conformité des données, Excel VBA

Pour développer une solution personnalisée de conformité des données en utilisant Excel VBA, l’objectif est de garantir que vos données respectent les normes réglementaires et internes. Cela peut inclure la validation des données selon des règles définies, l’identification d’informations sensibles, la vérification de l’absence de valeurs manquantes ou incomplètes, et la garantie que certains champs sont remplis ou correctement formatés.
Étape 1 : Définir les règles de conformité
Tout d’abord, vous devez définir les règles de conformité. Par exemple :

• Certains champs ne doivent pas être vides.
• Les dates doivent être dans une plage spécifique.
• Les champs numériques doivent contenir des valeurs valides (par exemple, pas de nombres négatifs).
• Certains champs doivent correspondre à un format spécifique (par exemple, les numéros de téléphone ou les adresses e-mail).

Étape 2 : Créer une liste de contrôle de conformité
La solution implique la création d’une liste de contrôle ou de critères de conformité qui seront appliqués à vos données. Par exemple :

• La colonne A (Nom) ne doit pas contenir de cellules vides.
• La colonne B (E-mail) doit correspondre à un format d’e-mail valide.
• La colonne C (Date de naissance) doit contenir des dates valides et ne pas dépasser la date actuelle.
• La colonne D (Montant) doit être un nombre positif.

Étape 3 : Code VBA pour la conformité des données
Voici le code VBA pour appliquer ces règles et fournir un retour.

Sub VérificationConformitéDonnées()
    Dim ws As Worksheet
    Dim dernièreLigne As Long
    Dim i As Long
    Dim message As String
    Dim statutConformité As Boolean
    ' Définir la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Données") ' Ajustez le nom de la feuille si nécessaire
    ' Obtenir la dernière ligne avec des données dans la colonne A (ajustez si nécessaire)
    dernièreLigne = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    statutConformité = True ' Supposer que les données sont conformes initialement
    ' Boucler à travers les données
    For i = 2 To dernièreLigne ' Supposons que les données commencent à la ligne 2
        message = ""
        ' Règle 1 : Vérifier les noms vides dans la colonne A
        If ws.Cells(i, 1).Value = "" Then
            message = message & "Le nom est manquant. "
            statutConformité = False
        End If
        ' Règle 2 : Vérifier l'e-mail valide dans la colonne B
        If Not EstEmailValide(ws.Cells(i, 2).Value) Then
            message = message & "Format d'e-mail invalide. "
            statutConformité = False
        End If
        ' Règle 3 : Vérifier la date de naissance valide dans la colonne C
        If Not IsDate(ws.Cells(i, 3).Value) Then
            message = message & "Date de naissance invalide. "
            statutConformité = False
        ElseIf ws.Cells(i, 3).Value > Date Then
            message = message & "La date de naissance ne peut pas être dans le futur. "
            statutConformité = False
        End If
        ' Règle 4 : Vérifier le montant positif dans la colonne D
        If Not IsNumeric(ws.Cells(i, 4).Value) Or ws.Cells(i, 4).Value <= 0 Then
            message = message & "Le montant doit être un nombre positif. "
            statutConformité = False
        End If
        ' Si des problèmes de conformité existent, enregistrer le message
        If message <> "" Then
            ws.Cells(i, 5).Value = message ' Enregistrer le message dans la colonne E (ajustez si nécessaire)
        Else
            ws.Cells(i, 5).Value = "Conforme"
        End If
    Next i
    ' Afficher le message final
    If statutConformité Then
        MsgBox "Toutes les données sont conformes.", vbInformation
    Else
        MsgBox "Certaines données ne sont pas conformes. Veuillez consulter les détails dans la colonne E.", vbExclamation
    End If
End Sub
Function EstEmailValide(email As String) As Boolean
    ' Fonction de validation simple de l'e-mail en utilisant VBA
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.IgnoreCase = True
    regEx.Global = False
    regEx.Pattern = "^[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,}$" ' Motif d'e-mail de base
    EstEmailValide = regEx.Test(email)
End Function

Explication du code :
1. Sous-routine principale : VérificationConformitéDonnées

• Cette sous-routine traite les données de la feuille de calcul, ligne par ligne.
• Elle vérifie chaque règle (nom, e-mail, date de naissance, montant).
• Si une règle est violée, un message de conformité est enregistré dans la colonne E de la feuille.
• Après la boucle, une boîte de message s’affiche pour informer l’utilisateur si les données sont conformes ou non.

2. Règles de conformité :

• Vérification des champs vides : Vérifie si la colonne « Nom » (colonne A) contient des cellules vides.
• Validation des e-mails : Utilise une expression régulière pour vérifier si le format de l’e-mail est valide (format de base).
• Validation des dates : Vérifie si la « Date de naissance » (colonne C) est une date valide et si elle n’est pas dans le futur.
• Validation des montants : Vérifie si la valeur dans la colonne D est un nombre positif.

3. Fonction d’aide : EstEmailValide

• Cette fonction vérifie si l’e-mail fourni suit un format standard (validation de base à l’aide d’expressions régulières).

Étape 4 : Personnaliser la solution
Vous pouvez personnaliser cette solution en fonction des besoins de conformité de vos données :

• Ajoutez plus de champs avec des règles différentes.
• Incluez des validations plus détaillées pour d’autres types de données, comme les numéros de téléphone, les adresses ou des règles métier personnalisées.
• Vous pouvez intégrer des API externes pour des vérifications plus complexes (par exemple, vérifier si un domaine d’e-mail existe).
• Étendez la solution pour gérer le cryptage des informations sensibles.

Étape 5 : Exécuter la vérification de conformité
Pour exécuter la vérification de conformité des données, il vous suffit de :

• Appuyer sur Alt + F11 pour ouvrir l’éditeur VBA.
• Coller le code ci-dessus dans un nouveau module.
• Fermer l’éditeur.
• Exécuter la macro VérificationConformitéDonnées depuis le dialogue des macros (Alt + F8).

Cela vérifiera toutes les lignes de votre jeu de données et enregistrera l’état de conformité dans la colonne E. Vous obtiendrez un aperçu rapide des données qui ne respectent pas les normes de conformité définies.
Cette solution peut être améliorée et ajustée selon les exigences spécifiques de conformité dans votre organisation ou projet.