Changer la couleur de la cellule - .Interior.ColorIndex
Pour changer la couleur d'une cellule on peut utiliser :
Cell.Interior.ColorIndex = Num
Où:
• Cell est la référence de la cellule
• Intérieur - fait référence à la couleur de la couleur réelle de la cellule (La propriété intérieure)
• L'indice de couleur est une valeur comprise entre 1 et 56 pour l'une des 56 couleurs prédéfinies d'Excel
Et Num est la couleur du numéro attribué à la cellule. Cependant, il n'est pas toujours facile de se rappeler quel nombre représente quelle couleur. Le sous-programme suivant modifie la couleur de la cellule en fonction du numéro de ligne. Ainsi, par exemple, la ligne 3 aura la couleur 3, etc.
Comme il y a 56 couleurs prédéfinies dans Excel, cela signifie que les cellules 59, 115 auront la même couleur que la cellule de la ligne 3 :
123456789101112 | Option ExplicitePrivate Sub CommandButton1_Click()Gamme_Couleur (Feuilles("Feuille2").Plage("A1:A2000"))Fin du sous-marinSub Colour_Range (Cell_Range As Range)' Colorera chaque cellule de la plageCellule faiblePour chaque cellule de Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset(0, 0).Valeur = Cell.RowProchainFin du sous-marin |
La routine est activée par un événement de clic.
Pour télécharger le fichier .XLSM de ce tutoriel, veuillez cliquer ici.