VBA : Comment calculer l’écart type de la plage

Vous pouvez utiliser la syntaxe de base suivante pour calculer l’ écart type des valeurs dans une plage à l’aide de VBA :

Sub StDevRange()
    Range("D2") = WorksheetFunction.StDev(Range("B2:B11"))
End Sub

Cet exemple particulier calcule l’écart type des valeurs dans la plage B2:B11 et attribue le résultat à la cellule D2 .

Si vous souhaitez plutôt afficher l’écart type des valeurs dans une boîte de message, vous pouvez utiliser la syntaxe suivante :

Sub StDevRange()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range("B2:B11"))
    
    'Display the result
    MsgBox "Standard Deviation of Values in Range: " & stdev 
End Sub

Les exemples suivants montrent comment utiliser chacune de ces méthodes en pratique avec l’ensemble de données suivant dans Excel qui contient des informations sur divers joueurs de basket-ball :

Exemple 1 : calculer l’écart type de la plage à l’aide de VBA et afficher les résultats dans la cellule

Supposons que nous souhaitions calculer l’écart type des valeurs dans la colonne des points et afficher les résultats dans une cellule spécifique.

Nous pouvons créer la macro suivante pour ce faire :

Sub StDevRange()
    Range("D2") = WorksheetFunction.StDev(Range("B2:B11"))
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que la cellule D2 contient une valeur de 11.93734 .

Cela nous indique que l’écart type des valeurs dans la colonne des points est de 245.

Exemple 2 : calculer l’écart type de la plage à l’aide de VBA et afficher les résultats dans la boîte de message

Supposons que nous souhaitions plutôt calculer l’écart type des valeurs dans la colonne des points et afficher les résultats dans une boîte de message.

Nous pouvons créer la macro suivante pour ce faire :

Sub StDevRange()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range("B2:B11"))
    
    'Display the result
    MsgBox "Standard Deviation of Values in Range: " & stdev 
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La boîte de message nous indique que l’écart type des valeurs dans la plage B2:B11 est de 11,937 .

Notez que dans cet exemple, nous avons calculé l’écart type des valeurs comprises dans la plage B2:B11 .

Cependant, si vous souhaitez plutôt calculer l’écart type des valeurs dans une colonne entière, vous pouvez taper B:B à la place.

Cela calculera la somme des valeurs pour chaque cellule de la colonne B.

Remarque : Vous pouvez trouver la documentation complète de la méthode VBA StDev ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment calculer la valeur moyenne de la plage
VBA : Comment compter le nombre de lignes dans la plage
VBA : Comment écrire des fonctions SUMIF et SUMIFS