Implémentation de techniques avancées de séparation de données, Excel VBA

Implémentation de techniques avancées de séparation de données, Excel VBA

Voici un guide détaillé sur l’implémentation de techniques avancées de séparation de données dans Excel à l’aide de VBA (Visual Basic for Applications). Ces techniques vous permettront de diviser des données de manière efficace, que ce soit en fonction de critères spécifiques, de délimiteurs ou de motifs particuliers.
Objectif :
Nous allons implémenter une solution VBA pour séparer les données en fonction de :
1. Séparation par délimiteurs – par exemple, séparer le texte par des virgules, des espaces, etc.
2. Séparation en plusieurs lignes ou colonnes – selon le type de données.
3. Séparation des données en fonction de critères spécifiques – utilisation de critères comme la longueur du texte, des mots-clés, etc.
Prérequis :

• Connaissances de base en VBA et Excel.
• Compréhension des fonctions Range, Cells, Split et autres fonctions VBA.

Guide détaillé avec le code
1. Séparation des données par délimiteurs (par exemple, une virgule, un espace, un point-virgule)
Nous allons d’abord écrire une fonction qui permet de séparer des données en fonction d’un délimiteur, comme une virgule (,) ou tout autre délimiteur de votre choix.
Code VBA :

Sub SplitDataByDelimiter()
    Dim cell As Range
    Dim splitData As Variant
    Dim i As Integer
    Dim delimiter As String
    ' Définir le délimiteur, cela peut être une virgule, un espace, un point-virgule, etc.
    delimiter = ","
    ' Boucle à travers chaque cellule de la plage (ici A2:A10)
    For Each cell In Range("A2:A10")
        ' Séparer la valeur de la cellule selon le délimiteur
        splitData = Split(cell.Value, delimiter)
        ' Placer les données séparées à partir de la colonne B
        For i = LBound(splitData) To UBound(splitData)
            cell.Offset(0, i + 1).Value = Trim(splitData(i))
        Next i
    Next cell
End Sub

Explication :

• Le code sépare les données dans la plage A2:A10 en fonction d’un délimiteur (ici, une virgule).
• La fonction Split découpe la chaîne de caractères à chaque occurrence du délimiteur, et les résultats sont stockés dans un tableau splitData.
• Ensuite, une boucle parcourt chaque élément du tableau et place les valeurs dans les colonnes suivantes (à partir de la colonne B).

2. Séparation des données en plusieurs lignes (Séparation verticale)
Maintenant, utilisons la même donnée mais séparons-la verticalement (c’est-à-dire, en lignes au lieu de colonnes).
Code VBA :

Sub SplitDataIntoRows()
    Dim cell As Range
    Dim splitData As Variant
    Dim i As Integer
    Dim delimiter As String
    Dim startRow As Integer
    ' Définir le délimiteur
    delimiter = ","
    ' Ligne de départ pour l'affichage des résultats
    startRow = 2
    ' Boucle à travers chaque cellule de la plage (ici A2:A10)
    For Each cell In Range("A2:A10")
        ' Séparer les données dans la cellule selon le délimiteur
        splitData = Split(cell.Value, delimiter)
        ' Placer chaque valeur séparée dans une nouvelle ligne à partir de la colonne B
        For i = LBound(splitData) To UBound(splitData)
            Cells(startRow, 2).Value = Trim(splitData(i))
            startRow = startRow + 1
        Next i
    Next cell
End Sub

Explication :

• Ce code parcourt la plage A2:A10, sépare chaque cellule par le délimiteur (,), et place chaque valeur séparée dans une nouvelle ligne à partir de B2.
• La variable startRow est incrémentée à chaque nouvelle donnée séparée pour s’assurer que les données sont placées sur la ligne suivante.

3. Séparation avancée des données en fonction de critères spécifiques (par exemple, la longueur des mots, correspondance de mots-clés)
Imaginons que vous souhaitiez séparer des données en fonction de certains critères, comme la longueur des mots ou la correspondance avec un mot-clé spécifique.
Code VBA :

Sub SplitDataBasedOnCriteria()
    Dim cell As Range
    Dim splitData As Variant
    Dim i As Integer
    Dim word As String
    Dim lengthCriteria As Integer
    Dim keyword As String
    Dim row As Integer
    ' Définir les critères
    lengthCriteria = 5 ' Exemple : Mots ayant plus de 5 caractères
    keyword = "data" ' Exemple : Mots contenant "data"
    ' Initialiser la ligne pour l'affichage des résultats
    row = 2
    ' Boucle à travers chaque cellule dans la plage (A2:A10)
    For Each cell In Range("A2:A10")
        ' Séparer le texte de la cellule par un espace
        splitData = Split(cell.Value, " ")
        ' Parcourir chaque mot dans les données séparées
        For i = LBound(splitData) To UBound(splitData)
            word = Trim(splitData(i))
            ' Vérifier si le mot respecte les critères
            If Len(word) > lengthCriteria Or InStr(1, word, keyword, vbTextCompare) > 0 Then
                ' Placer le mot valide dans la feuille à partir de la colonne B
                Cells(row, 2).Value = word
                row = row + 1
            End If
        Next i
    Next cell
End Sub

Explication :

• Les données dans la plage A2:A10 sont séparées par des espaces, et chaque mot est vérifié pour voir s’il respecte l’un des deux critères :
• La longueur du mot est supérieure à 5 caractères.
• Le mot contient le sous-texte « data ».
• Si le mot respecte l’un des critères, il est placé dans la colonne B, chaque mot devant apparaître dans une nouvelle ligne.

4. Séparation dynamique des données à l’aide de motifs ou de regex (Expressions régulières)
Pour des textes plus complexes, nous pourrions avoir besoin d’utiliser des motifs (regex). Cela est particulièrement utile pour séparer des chaînes avec des structures plus complexes (comme des adresses e-mail, des numéros de téléphone, etc.).
Code VBA (utilisation des Expressions Régulières) :

Sub SplitDataUsingRegex()
    Dim cell As Range
    Dim regExp As Object
    Dim matches As Object
    Dim match As Variant
    Dim row As Integer
    Dim pattern As String
    ' Définir le motif regex (exemple : séparation des adresses e-mail)
    pattern = "([a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,4})"
    ' Créer un nouvel objet RegExp
    Set regExp = CreateObject("VBScript.RegExp")
    regExp.IgnoreCase = True
    regExp.Global = True
    regExp.Pattern = pattern
    row = 2 ' Démarrer à partir de la ligne 2 pour afficher les résultats
    ' Boucle à travers chaque cellule dans la plage A2:A10
    For Each cell In Range("A2:A10")
        ' Récupérer les correspondances basées sur le motif
        Set matches = regExp.Execute(cell.Value)
        ' Placer chaque correspondance (adresse e-mail dans ce cas) dans une nouvelle ligne
        For Each match In matches
            Cells(row, 2).Value = match.Value
            row = row + 1
        Next match
    Next cell
End Sub

Explication :

• Ce code sépare les adresses e-mail en utilisant une expression régulière.
• L’objet RegExp est utilisé pour rechercher des correspondances selon le motif spécifié (ici, une structure basique d’adresse e-mail).
• Toutes les correspondances (adresses e-mail) sont extraites et placées dans de nouvelles lignes de la colonne B.

Conclusion :
Avec ces quatre méthodes, vous pouvez gérer une grande variété de tâches de séparation de données dans Excel en utilisant VBA. Chaque méthode est adaptée à des situations différentes :
1. Séparer des données par des délimiteurs simples (virgule, espace, etc.).
2. Séparer des données en lignes plutôt qu’en colonnes.
3. Filtrer et séparer des données selon la longueur des mots ou des mots-clés spécifiques.
4. Utiliser des expressions régulières pour séparer des données plus complexes.