Implémenter des techniques avancées d’échantillonnage de données, Excel VBA

Implémenter des techniques avancées d’échantillonnage de données, Excel VBA

Voici une explication détaillée de la façon d’implémenter des techniques avancées d’échantillonnage de données dans Excel en utilisant VBA (Visual Basic for Applications). L’objectif est de vous fournir un code complet, avec des explications détaillées pour chaque étape, afin que vous puissiez comprendre la logique et appliquer les techniques dans vos projets.
Techniques avancées d’échantillonnage de données dans Excel VBA
Lorsque vous travaillez avec de grands ensembles de données dans Excel, des techniques d’échantillonnage avancées peuvent vous aider à sélectionner des sous-ensembles représentatifs des données. Ces sous-ensembles peuvent être utilisés pour des analyses, des tests ou des prises de décision sans surcharger le système avec l’ensemble complet des données. Nous allons nous concentrer sur certaines des techniques les plus courantes comme l’échantillonnage aléatoire, l’échantillonnage stratifié et l’échantillonnage systématique.
Techniques d’échantillonnage clés :
1. Échantillonnage aléatoire

• Chaque point de données dans l’ensemble de données a une probabilité égale d’être sélectionné.

2. Échantillonnage stratifié

• L’ensemble des données est divisé en sous-groupes ou strates distincts, et un échantillon est pris de manière aléatoire dans chaque groupe.

3. Échantillonnage systématique

• L’échantillon est sélectionné en choisissant chaque nième point de données dans un ensemble de données après avoir sélectionné un point de départ aléatoire.

Nous allons maintenant écrire du code VBA pour chaque de ces techniques.
Implémentation pas-à-pas du code VBA pour des techniques avancées d’échantillonnage
1. Échantillonnage aléatoire
L’échantillonnage aléatoire consiste à sélectionner de manière aléatoire un certain nombre de lignes d’un ensemble de données.
Concept :

• • Si vous voulez échantillonner aléatoirement n lignes d’un ensemble de données dans Excel, vous pouvez générer des nombres aléatoires et les utiliser comme critères pour choisir quelles lignes échantillonner.

Sub EchantillonnageAleatoire()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim tailleEchantillon As Integer
    Dim i As Integer
    Dim ligneAleatoire As Integer
    Dim nouvellesLignes As Collection
    Dim nouvelleLigne As Long
    ' Définir la feuille de calcul et la plage de données
    Set ws = ThisWorkbook.Sheets("Feuille1")
    Set dataRange = ws.Range("A2:B100") ' Exemple de plage de données (de A2 à B100)
    ' Taille de l'échantillon
    tailleEchantillon = 10
    ' Collection pour stocker les lignes échantillonnées
    Set nouvellesLignes = New Collection
    ' Boucle pour obtenir le nombre requis d'échantillons
    For i = 1 To tailleEchantillon
        ' Générer un numéro de ligne aléatoire entre 2 et la dernière ligne de la plage de données
        ligneAleatoire = Int((dataRange.Rows.Count - 1 + 1) * Rnd + 2)
        ' Vérifier si la ligne a déjà été échantillonnée
        On Error Resume Next
        nouvellesLignes.Add ligneAleatoire, CStr(ligneAleatoire) ' Ajouter la ligne à la collection
        On Error GoTo 0
    Next i
    ' Copier les données échantillonnées dans une nouvelle plage
    nouvelleLigne = 1
    For Each ligneAleatoire In nouvellesLignes
        dataRange.Rows(ligneAleatoire).Copy Destination:=ws.Cells(nouvelleLigne, 5) ' Coller dans la colonne E
        nouvelleLigne = nouvelleLigne + 1
    Next ligneAleatoire
End Sub

Explication :

• Génération de nombres aléatoires : La ligne ligneAleatoire = Int((dataRange.Rows.Count - 1 + 1) * Rnd + 2) génère un numéro de ligne aléatoire.
• Échantillonnage : Un objet Collection est utilisé pour stocker les lignes uniques sélectionnées.
• Résultat : Les lignes échantillonnées sont copiées et collées dans une nouvelle colonne (colonne E ici).

2. Échantillonnage stratifié
L’échantillonnage stratifié divise les données en sous-groupes ou strates distincts, puis un échantillon est pris de manière aléatoire dans chaque sous-groupe.
Concept :

• • Nous divisons les données en différentes catégories ou groupes (strates), puis nous échantillonnons aléatoirement dans chaque groupe.

Sub EchantillonnageStratifie()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim groupesUniques As Collection
    Dim groupe As Variant
    Dim donneesGroupe As Range
    Dim tailleEchantillonGroupe As Integer
    Dim i As Integer
    Dim nouvelleLigne As Long
    ' Définir la feuille de calcul et la plage de données
    Set ws = ThisWorkbook.Sheets("Feuille1")
    Set dataRange = ws.Range("A2:C100") ' Exemple de plage de données (A2 à C100 avec le groupe dans la colonne C)
    ' Obtenir les groupes uniques de la colonne C (supposons que le groupe soit dans la colonne C)
    Set groupesUniques = New Collection
    On Error Resume Next
    For Each cell In dataRange.Columns(3).Cells
        If cell.Row > 1 Then
            groupesUniques.Add cell.Value, CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    ' Boucle à travers chaque groupe unique et échantillonner
    nouvelleLigne = 1
    For Each groupe In groupesUniques
        ' Filtrer les données pour le groupe actuel
        Set donneesGroupe = dataRange.Columns(3).Find(groupe).EntireRow
        ' Définir la taille de l'échantillon (ici, on prend 2 échantillons de chaque groupe)
        tailleEchantillonGroupe = 2
        ' Échantillonner aléatoirement dans ce groupe
        For i = 1 To tailleEchantillonGroupe
            ligneAleatoire = Int((donneesGroupe.Rows.Count - 1 + 1) * Rnd + 2) ' Ligne aléatoire dans le groupe
            donneesGroupe.Rows(ligneAleatoire).Copy Destination:=ws.Cells(nouvelleLigne, 5)
            nouvelleLigne = nouvelleLigne + 1
        Next i
    Next groupe
End Sub

Explication :

• Groupes : D’abord, nous extrayons les groupes uniques de l’ensemble de données (qui sont supposés être dans la colonne C).
• Échantillonnage : Nous parcourons chaque groupe unique et procédons à un échantillonnage aléatoire à l’intérieur de chaque sous-groupe.
• Résultat : Les échantillons stratifiés sont copiés dans une nouvelle plage.

3. Échantillonnage systématique
L’échantillonnage systématique consiste à sélectionner chaque nième ligne après avoir choisi un point de départ aléatoire.
Concept :

• • Choisissez un point de départ aléatoire, puis sélectionnez chaque nième ligne de l’ensemble de données.

Sub EchantillonnageSystematique() 
    Dim ws As Worksheet 
    Dim dataRange As Range 
    Dim intervalleEchantillon As Integer 
    Dim ligneDebutAleatoire As Integer 
    Dim i As Integer 
    Dim nouvelleLigne As Long 
    ' Définir la feuille de calcul et la plage de données 
    Set ws = ThisWorkbook.Sheets("Feuille1") 
    Set dataRange = ws.Range("A2:B100") 
    ' Exemple de plage de données (A2 à B100) 
    ' Définir l'intervalle d'échantillonnage (chaque 5ème ligne) 
    intervalleEchantillon = 5 
    ' Sélectionner aléatoirement une ligne de départ entre 2 et intervalleEchantillon 
    ligneDebutAleatoire = Int((intervalleEchantillon - 1 + 1) * Rnd + 2) 
    ' Boucle à travers les données avec l'intervalle sélectionné 
     nouvelleLigne = 1 
     For i = ligneDebutAleatoire To dataRange.Rows.Count Step intervalleEchantillon 
         dataRange.Rows(i).Copy 
         Destination:=ws.Cells(nouvelleLigne, 5) 
         ' Coller dans la colonne E 
         nouvelleLigne = nouvelleLigne + 1 
     Next i 
End Sub

Explication :

• Intervalle d’échantillonnage : L’intervalle d’échantillonnage est défini par la variable intervalleEchantillon, et le point de départ est sélectionné aléatoirement.
• Boucle : La boucle sélectionne chaque nième ligne à partir du point de départ aléatoire.
• Résultat : Les données échantillonnées de manière systématique sont copiées dans une nouvelle plage.

Conclusion :
Dans ce guide, nous avons montré comment implémenter l’échantillonnage aléatoire, l’échantillonnage stratifié et l’échantillonnage systématique en utilisant Excel VBA. Ces techniques avancées d’échantillonnage sont utiles pour extraire des sous-ensembles de données représentatifs à partir de grands ensembles de données pour des analyses. Chaque technique peut être ajustée en fonction des paramètres (comme la taille de l’échantillon ou l’intervalle) et le code peut être personnalisé pour des besoins spécifiques.
En utilisant VBA, vous pouvez automatiser le processus d’échantillonnage, ce qui permet de gagner du temps et de réduire les erreurs humaines lors de la gestion de grands ensembles de données.