VBA : Comment trouver la valeur maximale dans la plage

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

Sub MaxValue()
    Range("D2") = WorksheetFunction.Max(Range("B2:B11"))
End Sub

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

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

Sub MaxValue()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range("B2:B11"))
    
    'Display the result
    MsgBox "Max Value in Range: " & maxValue 
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 la valeur maximale de la plage à l’aide de VBA et afficher les résultats dans la cellule

Supposons que nous souhaitions calculer la valeur maximale 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 MaxValue()
    Range("D2") = WorksheetFunction.Max(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 43 .

Cela nous indique que la valeur maximale dans la colonne des points est de 43.

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

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

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

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

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

Cela calculera la valeur maximale 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