VBA : Comment trouver la valeur minimale dans la plage

Vous pouvez utiliser la syntaxe de base suivante pour calculer la valeur minimale dans une plage à l’aide de VBA :

Sub MinValue()
    Range("D2") = WorksheetFunction.Min(Range("B2:B11"))
End Sub

Cet exemple particulier calcule la valeur minimale dans la plage B2:B11 et attribue le résultat à la cellule D2 .

Si vous souhaitez plutôt afficher la valeur minimale dans une boîte de message, vous pouvez utiliser la syntaxe suivante :

Sub MinValue()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range("B2:B11"))
    
    'Display the result
    MsgBox "Min Value in Range: " & minValue 
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 :

Connexe : Comment trouver la valeur maximale dans la plage à l’aide de VBA

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

Supposons que nous souhaitions calculer la valeur minimale 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 MinValue()
    Range("D2") = WorksheetFunction.Min(Range("B2:B11"))
End Sub

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

Notez que la cellule D2 contient la valeur 10 .

Cela nous indique que la valeur minimale dans la colonne des points est de 10.

Exemple 2 : calculer la valeur minimale 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 la valeur minimale 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 MinValue()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range("B2:B11"))
    
    'Display the result
    MsgBox "Min Value in Range: " & minValue 
End Sub

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

La boîte de message nous indique que la valeur minimale dans la plage B2:B11 est 10 .

Notez que dans cet exemple, nous avons calculé la valeur minimale dans la plage B2:B11 .

Cependant, si vous souhaitez plutôt calculer la valeur minimale dans une colonne entière, vous pouvez taper B:B à la place.

Cela calculera la valeur minimale dans toute la colonne B.

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 additionner les valeurs dans une plage