Ci-dessous, nous examinerons un programme en Excel VBA ce trouve la deuxième valeur la plus élevée.
Situation:
1. Tout d'abord, nous déclarons deux objets Range et deux variables de type Double. Nous appelons les objets Range rng et cell. Une variable double que nous appelons la valeur la plus élevée et une variable double que nous appelons la valeur la plus élevée.
Dim rng As Range, cellule As Range
Diminuer la valeur la plus élevée en tant que double, la seconde la valeur la plus élevée en tant que double
2. On initialise l'objet Range rng avec la plage sélectionnée et les deux variables Double avec la valeur 0.
Définir rng = Sélection
valeur la plus élevée = 0
secondHighestValue = 0
3. Premièrement, nous voulons trouver la valeur la plus élevée. Nous voulons vérifier chaque cellule dans une plage sélectionnée au hasard (cette plage peut être de n'importe quelle taille). Dans Excel VBA, vous pouvez utiliser la boucle For Each Next pour cela. Ajoutez les lignes de code suivantes :
'Trouver la valeur la plus élevée
Pour chaque cellule dans rng
Cellule suivante
Remarque : rng et cell sont choisis au hasard ici, vous pouvez utiliser n'importe quel nom. N'oubliez pas de faire référence à ces noms dans le reste de votre code. La ligne verte est un commentaire et n'est ajoutée ici que pour fournir des informations sur ce morceau de code.
4. Nous vérifions chaque cellule de cette plage. Si elle est supérieure à la valeur la plus élevée, nous écrivons la valeur dans la variable la valeur la plus élevée. Ajoutez la ligne de code suivante à la boucle.
Si cellule.Valeur > Valeur la plus élevée Alors Valeur la plus élevée = cellule.Valeur
Remarque : la première valeur est toujours supérieure à la valeur la plus élevée car la valeur de départ de la valeur la plus élevée est 0.
5. Deuxièmement, nous voulons trouver la deuxième valeur la plus élevée. Nous ajoutons une autre boucle For Each Next.
'Trouver la deuxième valeur la plus élevée
Pour chaque cellule dans rng
Cellule suivante
6. Nous vérifions à nouveau chaque cellule de la plage sélectionnée. S'il est supérieur à secondHighestValue et inférieur à highValue, nous écrivons la valeur dans la variable secondHighestValue. Ajoutez la ligne de code suivante à la boucle.
Si cell.Value > secondHighestValue Et cell.Value <highValue Then secondHighestValue = cell.Value
7. Enfin, nous affichons la deuxième valeur la plus élevée à l'aide d'une MsgBox.
MsgBox "La deuxième valeur la plus élevée est " et la seconde valeur la plus élevée
8. Placez votre macro dans un bouton de commande, sélectionnez les nombres et cliquez sur le bouton de commande.
Résultat:
