Comment déterminer et identifier l’index de la couleur de fond des cellules dans Excel ?
Lorsque vous recevez une feuille comportant plusieurs cellules colorées, comme le montre la capture d’écran ci-dessous, vous souhaitez parfois identifier l’index de couleur de fond de ces cellules. Excel ne propose aucune fonctionnalité intégrée pour récupérer directement le code couleur d’une cellule, mais dans cet article, je vous présente quelques macros VBA simples pour accomplir cette tâche en un clin d’œil.
Identifier la couleur d’une cellule avec VBA
Identifier la couleur d’une cellule avec VBA
Procédez comme suit pour définir la couleur d’une cellule à l’aide de VBA.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module pour ouvrir un nouveau Module, puis collez le code VBA ci-dessous dans le script vide. Voir la capture d’écran :
VBA : Obtenir le code hexadécimal traditionnel d’une cellule
Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As String
xColor = CStr(FCell.Interior.Color)
xColor = Right("000000" & Hex(xColor), 6)
getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function |
 |
3. Enregistrez le code et fermez la fenêtre VBA. Sélectionnez une cellule vide adjacente à la cellule colorée, saisissez la formule suivante : =getRGB1(A16), puis faites glisser la poignée de recopie vers les cellules souhaitées. Voir la capture d’écran :
 |
 |
Astuce : d’autres codes permettent également d’identifier le code couleur d’une cellule.
1. VBA : Valeur décimale pour chaque code
Function getRGB2(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End FunctionRésultat :
2. VBA : Valeurs décimales
Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
Select Case Opt
Case 1
getRGB3 = R
Case 2
getRGB3 = G
Case 3
getRGB3 = B
Case Else
getRGB3 = xColor
End Select
End FunctionRésultat :
Sélectionnez facilement les valeurs en double ou uniques dans Excel |
Vous travaillez avec une plage de données dans Excel et devez mettre en évidence ou sélectionner les lignes en double ? Grâce à la fonctionnalité Kutools pour Excel, plus précisément l’outil Sélectionner les cellules en double/uniques, vous pouvez identifier et sélectionner en un clin d’œil les doublons ou les valeurs uniques d’une plage. Vous avez même la possibilité d’appliquer instantanément une couleur de fond et une couleur de police à ces éléments, pour que vos données se distinguent immédiatement. |
 |
Kutools pour Excel- Boostez Excel avec plus de 300 outils essentiels, accélérez et simplifiez votre travail, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant |
Articles associés :
- Comment modifier la couleur de la police en fonction de la valeur d’une cellule dans Excel ?
- Comment colorer les valeurs en double ou les lignes en double dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels