Ci-dessous, nous examinerons un programme en Excel VBA qui colore la valeur maximale d'un plage dynamique.
Situation:
Chaque fois que nous ajoutons un nombre et que nous cliquons sur le bouton de commande, nous voulons qu'Excel VBA colore la valeur maximale de ces nombres.
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
1. Tout d'abord, nous déclarons une variable et deux objets Range. Une variable de type Double que nous appelons maximum. Nous appelons les objets Range rng et cell.
Dim maximum As Double, rng As Range, cell As Range
2. Nous ajoutons la ligne qui modifie la couleur d'arrière-plan de toutes les cellules en « Pas de remplissage ».
Cells.Interior.ColorIndex = 0
3. Nous initialisons rng avec les nombres. Nous utilisons la propriété CurrentRegion pour cela. CurrentRegion est utile lorsque nous ne connaissons pas à l'avance les limites exactes d'une plage.
Définir rng = Range("A1").CurrentRegion
4. Nous initialisons maximum avec la valeur maximum des nombres. Nous utilisons la fonction de feuille de calcul Max pour trouver la valeur maximale.
maximum = WorksheetFunction.Max(rng)
5. Enfin, nous colorons la valeur maximale. Nous utilisons une boucle For Each Next.
Pour chaque cellule dans rng
Si cell.Value = maximum Alors cell.Interior.ColorIndex = 22
Cellule suivante
Remarque : au lieu du numéro de ColorIndex 22 (rouge), vous pouvez utiliser n'importe quel numéro de ColorIndex.
6. Ajoutez un numéro.
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille :
