Créer une plage dynamique et utiliser des critères de prise de décision, Excel VBA

Créer une plage dynamique et utiliser des critères de prise de décision, Excel VBA

Voici une explication détaillée et un code VBA pour créer une plage dynamique et utiliser des critères de prise de décision dans Excel. Le code permet de définir des plages dynamiques en fonction de certains critères, ce qui peut être particulièrement utile dans des scénarios de prise de décision, comme filtrer des données, effectuer des calculs ou prendre des décisions en fonction des entrées de l’utilisateur. 

Objectif : 

L’objectif est d’utiliser VBA dans Excel pour créer une plage dynamique qui s’adapte à la quantité de données disponibles dans une feuille de calcul. Cette plage sera ensuite utilisée pour implémenter une logique de prise de décision, par exemple en évaluant si les valeurs remplissent des critères spécifiques (par exemple, « supérieur à un certain seuil » ou « dans une plage spécifique »). 

Explication détaillée : 

1. Plage dynamique dans Excel : Une plage dynamique s’ajuste automatiquement en fonction du nombre de lignes ou de colonnes d’un jeu de données. Cela est utile dans les scénarios de prise de décision où la taille des données peut changer, mais vous souhaitez toujours vous assurer que toutes les données pertinentes sont incluses dans vos calculs ou évaluations. 

2. Aperçu du code VBA : Le code VBA fourni va : 

• Définir une plage dynamique en fonction de la dernière ligne et de la dernière colonne avec des données. 
• Appliquer une logique de prise de décision (par exemple, vérifier si les valeurs sont supérieures à un seuil). 
• Créer un processus de prise de décision dynamique en parcourant la plage définie et en effectuant des actions spécifiques en fonction des critères. 

3. Étapes du code : 

• Définir la plage dynamique : Utiliser la propriété UsedRange pour trouver automatiquement la dernière ligne et la dernière colonne avec des données. 
• Logique de prise de décision : Implémenter une condition If pour évaluer si la valeur dans chaque cellule répond aux critères de décision. 
• Effectuer des actions : En fonction de la décision, effectuer des actions comme surligner des cellules ou écrire dans une autre plage. 

Exemple de code VBA : 

Sub CreerPlageDynamiqueEtPriseDeDecision() 
    Dim ws As Worksheet 
    Dim lastRow As Long, lastCol As Long 
    Dim dynamicRange As Range 
    Dim cell As Range 
    Dim decisionCriteria As Double 
    Dim outputRange As Range 
    Dim outputRow As Long 
    ' Définir la feuille de calcul sur laquelle travailler 
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Changez le nom de la feuille si nécessaire 
    ' Définir le critère de décision (par exemple, 100) 
    decisionCriteria = 100 
    ' Trouver la dernière ligne et colonne avec des données dans la feuille 
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' Dernière ligne de la colonne A 
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' Dernière colonne de la ligne 1 
    ' Définir la plage dynamique en fonction de la dernière ligne et colonne 
    Set dynamicRange = ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, lastCol)) ' À partir de la ligne 2 (ignorer l'en-tête) 
    ' Définir une plage de sortie pour enregistrer les résultats des décisions 
    Set outputRange = ws.Range("E2:E" & lastRow) ' Résultats dans la colonne E à partir de la ligne 2 
    outputRow = 2 
    ' Effacer les résultats précédents 
    outputRange.ClearContents 
    ' Boucle à travers chaque cellule dans la plage dynamique 
    For Each cell In dynamicRange 
        If cell.Value > decisionCriteria Then 
            ' Si la valeur est supérieure au critère de décision, effectuer une action 
            ' Exemple : surligner la cellule et écrire la décision dans la colonne de sortie 
            cell.Interior.Color = RGB(255, 255, 0) ' Surlignage en jaune 
            ws.Cells(outputRow, 5).Value = "Au-dessus du seuil" ' Écrire la décision dans la colonne E 
        Else 
            ' Si la valeur est inférieure au seuil 
            cell.Interior.Color = RGB(255, 0, 0) ' Surlignage en rouge 
            ws.Cells(outputRow, 5).Value = "En dessous du seuil" ' Écrire la décision dans la colonne E 
        End If 
        ' Passer à la ligne suivante dans la plage de sortie 
        outputRow = outputRow + 1 
    Next cell 
    ' Avertir l'utilisateur que le processus de prise de décision est terminé 
    MsgBox "Le processus de prise de décision est terminé !", vbInformation 
End Sub

Explication du code : 

Configuration de la feuille et de la plage : 

• La variable ws fait référence à la feuille de calcul sur laquelle vous souhaitez travailler. Dans ce cas, elle est définie sur « Sheet1 », mais vous pouvez la changer selon votre feuille. 
• Les variables lastRow et lastCol sont déterminées en utilisant xlUp et xlToLeft pour trouver la dernière ligne et la dernière colonne avec des données. 
• La variable dynamicRange est définie à l’aide de Range(ws.Cells(2, 1), ws.Cells(lastRow, lastCol)), ce qui définit la plage dynamique de la ligne 2 (en ignorant l’en-tête) jusqu’à la dernière ligne et colonne avec des données. 

Critère de décision : 

• Dans cet exemple, le critère de décision est défini comme une valeur seuil de 100. Vous pouvez changer cela selon vos critères de décision. 

Boucle à travers la plage : 

• La boucle For Each parcourt chaque cellule dans la dynamicRange. 
• Une condition If vérifie si la valeur de la cellule est supérieure au critère de décision (100 dans cet exemple). 
• Si la condition est remplie, la cellule est surlignée en jaune, et la décision « Au-dessus du seuil » est écrite dans la colonne E de la même ligne. Sinon, la cellule est surlignée en rouge, et la décision « En dessous du seuil » est écrite. 

Sortie : 

• Les résultats sont écrits dans la colonne E, à partir de la ligne 2. Vous pouvez ajuster cela selon vos besoins. 
• Après la boucle, une boîte de message avertit l’utilisateur que le processus de prise de décision est terminé. 

Utilisation : 

1. Pour utiliser ce code, vous pouvez ouvrir l’éditeur Visual Basic pour Applications (appuyez sur Alt + F11), insérer un nouveau module et y coller le code. 
2. Appuyez sur F5 ou exécutez la macro depuis l’interface Excel pour lancer le processus de prise de décision. 
3. Ajustez le nom de la feuille, les positions des colonnes et les critères de décision selon votre cas d’utilisation spécifique. 

Applications dans la prise de décision : 

Ce type de logique de plage dynamique et de prise de décision peut être appliqué à divers scénarios, tels que : 

• L’évaluation des données financières (par exemple, vérifier si le chiffre d’affaires dépasse un certain seuil). 
• L’analyse des notes des étudiants (par exemple, déterminer si les résultats sont suffisants pour réussir). 
• La gestion des stocks (par exemple, identifier les produits en rupture de stock). 

La flexibilité des plages dynamiques et de la logique de prise de décision rend cette approche très adaptable à de nombreux processus décisionnels basés sur les données.