Comment Changer et Remplacer une Couleur par une Autre dans Excel : Guide Complet avec Formules
Thomas L'Exceleur
L'Exceleur
Comment Changer et Remplacer une Couleur par une Autre dans Excel : Guide Complet avec Formules
Comment Remplacer une Couleur par une Autre dans Excel : 5 Méthodes Efficaces
Vous cherchez à remplacer une couleur par une autre dans Excel de manière efficace ? Que ce soit pour améliorer la lisibilité de vos données ou harmoniser la présentation de vos tableaux, Excel offre plusieurs formules couleur cellule excel et méthodes pour modifier les couleurs automatiquement.
Dans ce guide complet, nous explorerons 5 techniques avancées pour changer les couleurs dans Excel, incluant les formules excel couleur, la mise en forme conditionnelle, et les macros VBA. Ces méthodes vous permettront de gagner un temps précieux sur vos projets.
Automatisez vos tâches Excel avec l’IA
Elyx AI analyse vos données et génère des formules Excel en quelques secondes.
Pourquoi Remplacer les Couleurs dans Excel ?
Avant d'explorer les différentes fonctions couleur excel, comprenons l'importance de la gestion des couleurs :
- Cohérence visuelle : Harmoniser l'apparence de vos tableaux
- Lisibilité améliorée : Faciliter la lecture des données importantes
- Standards d'entreprise : Respecter la charte graphique de votre organisation
- Automatisation : Éviter les modifications manuelles répétitives
Méthode 1 : Remplacement Manuel des Couleurs
Étapes Détaillées
La méthode la plus simple pour remplacer une couleur consiste à :
- Sélectionner les cellules concernées
- Accéder à l'onglet Accueil
- Cliquer sur l'icône de couleur de remplissage
- Choisir la nouvelle couleur dans la palette
Avantages et Inconvénients
Avantages
Inconvénients
Simple à utiliser
Chronophage pour de gros volumes
Contrôle précis
Risque d'oublis
Aucune connaissance technique requise
Pas d'automatisation
Cette méthode convient parfaitement pour des modifications ponctuelles, mais devient inefficace pour des tableaux volumineux.
Formules Excel complexes ? Laissez l’IA les écrire pour vous
Ne perdez plus de temps à chercher la bonne syntaxe. Elyx génère vos formules en quelques secondes.
Méthode 2 : Fonction Rechercher et Remplacer Avancée
Procédure Complète
Excel propose une fonction couleur excel intégrée via l'outil Rechercher et Remplacer :
- Ouvrir la boîte de dialogue : Appuyez sur
Ctrl + H - Cliquer sur « Options » pour développer les paramètres
- Sélectionner « Format » dans la section « Rechercher »
- Choisir la couleur actuelle à remplacer
- Définir le nouveau format dans « Remplacer par »
- Lancer le remplacement avec « Remplacer tout »
Exemple Pratique
Supposons que vous souhaitiez remplacer toutes les cellules rouges par des cellules vertes :
Rechercher :
Remplacer par :
Résultat : Toutes les cellules rouges deviennent vertes
Cette méthode est particulièrement efficace pour les changements de couleur en masse.
Méthode 3 : Mise en Forme Conditionnelle Dynamique
Configuration de la Formule Couleur Excel
La mise en forme conditionnelle permet d'utiliser une formule couleur cellule excel qui s'adapte automatiquement :
#### Étape 1 : Créer une Règle Conditionnelle
- Sélectionnez votre plage de données
- Accédez à Accueil > Mise en forme conditionnelle
- Choisissez Nouvelle règle
- Sélectionnez Utiliser une formule pour déterminer les cellules à mettre en forme
#### Étape 2 : Définir la Formule
=ET(A1<>0;A1<>"")
Cette formule excel couleur applique une couleur aux cellules non vides et différentes de zéro.
#### Étape 3 : Personnaliser les Couleurs
Configurez les couleurs selon vos critères :
- Valeurs positives : Vert
- Valeurs négatives : Rouge
- Valeurs nulles : Gris
Exemples de Formules Avancées
Condition
Formule
Couleur Suggérée
Valeurs > 100
=A1>100
Vert foncé
Texte spécifique
=A1="Terminé"
Bleu
Dates dépassées
=A1<AUJOURD'HUI()
Rouge
Cellules vides
=A1=""
Gris clair
Méthode 4 : Macro VBA pour Automatisation Complète
Code VBA de Base
Pour les utilisateurs avancés, voici une fonction couleur excel en VBA :
Sub RemplacerCouleurs()
Dim ws As Worksheet
Dim cellule As Range
Dim couleurActuelle As Long
Dim nouvelleCouleur As Long
' Définir les couleurs
couleurActuelle = RGB(255, 0, 0) ' Rouge
nouvelleCouleur = RGB(0, 255, 0) ' Vert
Set ws = ActiveSheet
' Parcourir toutes les cellules utilisées
For Each cellule In ws.UsedRange
If cellule.Interior.Color = couleurActuelle Then
cellule.Interior.Color = nouvelleCouleur
End If
Next cellule
MsgBox "Remplacement terminé !"
End Sub
Macro Avancée avec Plusieurs Couleurs
Sub RemplacerPlusieursCouleurs()
Dim ws As Worksheet
Dim cellule As Range
Set ws = ActiveSheet
For Each cellule In ws.UsedRange
Select Case cellule.Interior.Color
Case RGB(255, 0, 0) ' Rouge vers Vert
cellule.Interior.Color = RGB(0, 255, 0)
Case RGB(255, 255, 0) ' Jaune vers Bleu
cellule.Interior.Color = RGB(0, 0, 255)
Case RGB(255, 192, 0) ' Orange vers Violet
cellule.Interior.Color = RGB(128, 0, 128)
End Select
Next cellule
End Sub
Installation et Utilisation
- Ouvrir l'éditeur VBA :
Alt + F11 - Insérer un nouveau module
- Copier le code de la macro
- Exécuter la macro via
F5
Méthode 5 : Utilisation des Fonctions et Formules Couleur
Fonction SI avec Mise en Forme
Bien qu'Excel ne possède pas de formule couleur cellule excel native pour retourner des couleurs, vous pouvez combiner des formules avec la mise en forme conditionnelle :
=SI(A1>0;"Positif";SI(A1<0;"Négatif";"Nul"))
Formule avec RECHERCHEV et Couleurs
=RECHERCHEV(A1;TableauCouleurs;2;FAUX)
Où TableauCouleurs contient :
Valeur
Couleur
Excellent
Vert
Bon
Jaune
Moyen
Orange
Faible
Rouge
Cas d'Usage Professionnels
Dashboard de Performance
Utilisez ces formules excel couleur pour créer des tableaux de bord dynamiques :
- Indicateurs KPI : Vert pour objectifs atteints
- Alertes : Rouge pour valeurs critiques
- Tendances : Dégradés de couleurs pour l'évolution
Gestion de Projet
Appliquez des codes couleurs aux statuts :
=SI(E1="Terminé";VRAI;SI(E1="En cours";VRAI;FAUX))
Analyse Financière
Différenciez les résultats :
- Bénéfices : Vert
- Pertes : Rouge
- Seuil de rentabilité : Jaune
Bonnes Pratiques et Conseils
Optimisation des Performances
- Limitez les règles conditionnelles : Maximum 3-4 par feuille
- Utilisez des plages spécifiques plutôt que des colonnes entières
- Testez sur de petits échantillons avant l'application globale
Accessibilité et Lisibilité
- Choisissez des contrastes élevés pour la lisibilité
- Évitez les combinaisons problématiques (rouge-vert pour les daltoniens)
- Documentez votre code couleur pour les collaborateurs
Maintenance et Évolution
Aspect
Recommandation
Documentation
Notez les règles de couleur utilisées
Sauvegarde
Conservez une version de référence
Tests
Vérifiez après chaque modification
Formation
Formez les utilisateurs aux codes couleurs
Dépannage des Problèmes Courants
La Couleur ne Change Pas
Causes possibles :
- Protection de la feuille activée
- Formats de cellule conflictuels
- Erreur dans la formule couleur excel
Solutions :
- Vérifiez la protection :
Révision > Ôter la protection - Effacez les formats :
Accueil > Effacer > Effacer les formats - Testez la formule étape par étape
Performances Lentes
Si vos formules couleur cellule excel ralentissent Excel :
- Désactivez le calcul automatique temporairement
- Réduisez les plages de données
- Optimisez les formules complexes
Couleurs qui Disparaissent
Problème fréquent : Les couleurs disparaissent à l'impression
Solution :
Fichier > Options > Avancé- Décochez
Impression en qualité brouillon - Vérifiez les paramètres d'impression couleur
VBA Avancé pour Gestion Couleurs Professionnelles
Fonctions VBA Personnalisées pour Couleurs
Créez vos propres fonctions couleur excel avec VBA pour des besoins spécifiques :
Function CouleurParValeur(valeur As Double, seuils As Range, couleurs As Range) As Long
Dim i As Integer
Dim seuilArray() As Double
Dim couleurArray() As Long
' Conversion des plages en tableaux
ReDim seuilArray(1 To seuils.Count)
ReDim couleurArray(1 To couleurs.Count)
For i = 1 To seuils.Count
seuilArray(i) = seuils.Cells(i, 1).Value
couleurArray(i) = couleurs.Cells(i, 1).Interior.Color
Next i
' Détermination de la couleur selon la valeur
For i = 1 To UBound(seuilArray)
If valeur <= seuilArray(i) Then
CouleurParValeur = couleurArray(i)
Exit Function
End If
Next i
' Couleur par défaut
CouleurParValeur = RGB(255, 255, 255)
End Function
Système de Thèmes Couleurs Automatisé
Développez un système complet de gestion des couleurs :
Type ThemeCouleur
Nom As String
CouleurPrimaire As Long
CouleurSecondaire As Long
CouleurAccent As Long
CouleurDanger As Long
CouleurSucces As Long
CouleurInfo As Long
End Type
<p>Sub AppliquerTheme(theme As String, plage As Range)
Dim monTheme As ThemeCouleur
' Configuration des thèmes prédéfinis
Select Case theme
Case "Entreprise"
monTheme.CouleurPrimaire = RGB(41, 98, 255)
monTheme.CouleurSecondaire = RGB(108, 117, 125)
monTheme.CouleurAccent = RGB(255, 193, 7)
monTheme.CouleurDanger = RGB(220, 53, 69)
monTheme.CouleurSucces = RGB(40, 167, 69)
monTheme.CouleurInfo = RGB(23, 162, 184)
Case "Nature"
monTheme.CouleurPrimaire = RGB(76, 175, 80)
monTheme.CouleurSecondaire = RGB(139, 195, 74)
monTheme.CouleurAccent = RGB(255, 235, 59)
monTheme.CouleurDanger = RGB(244, 67, 54)
monTheme.CouleurSucces = RGB(76, 175, 80)
monTheme.CouleurInfo = RGB(33, 150, 243)
End Select
' Application du thème
AppliquerCouleursTheme plage, monTheme
End Sub</p>
<p>Sub AppliquerCouleursTheme(plage As Range, theme As ThemeCouleur)
Dim cellule As Range
For Each cellule In plage
Select Case cellule.Value
Case Is > 0.8
cellule.Interior.Color = theme.CouleurSucces
Case Is > 0.6
cellule.Interior.Color = theme.CouleurInfo
Case Is > 0.4
cellule.Interior.Color = theme.CouleurAccent
Case Is > 0.2
cellule.Interior.Color = theme.CouleurSecondaire
Case Else
cellule.Interior.Color = theme.CouleurDanger
End Select
Next cellule
End Sub
Gestion Avancée des Dégradés
Créez des formules couleur cellule excel avec dégradés automatiques :
Sub CreerDegrade(plageDebut As Range, plageArrivee As Range, _
couleurDebut As Long, couleurArrivee As Long)
Dim totalCellules As Integer
Dim i As Integer
Dim ratioR, ratioG, ratioB As Double
Dim rDebut, gDebut, bDebut As Integer
Dim rArrivee, gArrivee, bArrivee As Integer
Dim rActuel, gActuel, bActuel As Integer
' Extraction des composantes RGB
rDebut = couleurDebut And &HFF
gDebut = (couleurDebut And &HFF00) / &H100
bDebut = (couleurDebut And &HFF0000) / &H10000
rArrivee = couleurArrivee And &HFF
gArrivee = (couleurArrivee And &HFF00) / &H100
bArrivee = (couleurArrivee And &HFF0000) / &H10000
totalCellules = plageDebut.Count + plageArrivee.Count
' Application du dégradé
For i = 1 To totalCellules
ratioR = (rArrivee - rDebut) <em> (i - 1) / (totalCellules - 1)
ratioG = (gArrivee - gDebut) </em> (i - 1) / (totalCellules - 1)
ratioB = (bArrivee - bDebut) <em> (i - 1) / (totalCellules - 1)
rActuel = rDebut + ratioR
gActuel = gDebut + ratioG
bActuel = bDebut + ratioB
If i <= plageDebut.Count Then
plageDebut.Cells(i).Interior.Color = RGB(rActuel, gActuel, bActuel)
Else
plageArrivee.Cells(i - plageDebut.Count).Interior.Color = RGB(rActuel, gActuel, bActuel)
End If
Next i
End Sub
Conditionnement Multiple et Règles Complexes
Mise en Forme Conditionnelle Multi-Critères
Développez des formules excel couleur sophistiquées pour gérer plusieurs conditions simultanément :
#### Système de Priorités Hiérarchiques
// Priorité 1 : Dates dépassées (Rouge urgent)
=ET(E2<AUJOURD'HUI();E2<>"")
<p>// Priorité 2 : Dates dans 3 jours (Orange attention)
=ET(E2<=AUJOURD'HUI()+3;E2>=AUJOURD'HUI())</p>
<p>// Priorité 3 : Valeurs élevées (Vert succès)
=ET(D2>1000;E2>=AUJOURD'HUI())</p>
<p>// Priorité 4 : Status spécial (Bleu information)
=F2="Important"
#### Combinaisons Logiques Avancées
Formule pour tableau de bord commercial :
=OU( ET(B2>C21.1;D2="Atteint"); ET(B2>C2_0.9;D2="En cours";E2_
_
Cette fonction couleur excel colore en vert les cellules qui satisfont l'une des conditions métier.
#### Système de Score Coloré
=SI(A2>=90;"Excellent";
SI(A2>=80;"Très bien";
SI(A2>=70;"Bien";
SI(A2>=60;"Moyen";"Insuffisant"))))
Associez chaque résultat à une couleur via mise en forme conditionnelle :
Score
Couleur
Code RGB
Excellent
Vert foncé
RGB(0,128,0)
Très bien
Vert clair
RGB(144,238,144)
Bien
Jaune
RGB(255,255,0)
Moyen
Orange
RGB(255,165,0)
Insuffisant
Rouge
RGB(255,0,0)
Règles Conditionnelles Dynamiques
#### Références Relatives et Absolues
Comparaison avec moyenne mobile :
_
_=A2>MOYENNE($A$2:A2)_1.1
Cette formule couleur cellule excel met en évidence les valeurs supérieures à 110% de la moyenne mobile.
#### Conditions Basées sur d'Autres Feuilles
=RECHERCHEV(A2;FeuilleRef!$A:$B;2;FAUX)="Critique"
Colorez selon des données de référence externes.
#### Formatage Conditionnel avec Formules Matricielles
=ET(A2=MAX($A$2:$A$100);A2>0)
Met en évidence uniquement la valeur maximale de la plage.
Thèmes Personnalisés et Palettes Professionnelles
Création de Palettes Couleurs Cohérentes
#### Théorie des Couleurs Appliquée à Excel
Palette harmonique complémentaire :
- Couleur principale : RGB(51, 122, 183) - Bleu professionnel
- Couleur complémentaire : RGB(240, 173, 78) - Orange chaleureux
- Couleurs analogues : RGB(61, 153, 112) et RGB(142, 68, 173)
#### Système de Couleurs Fonctionnelles
Public Const COULEUR_REUSSITE As Long = &H4CAF50 ' Vert Material Design
Public Const COULEUR_ATTENTION As Long = &HFF9800 ' Orange Material Design
Public Const COULEUR_ERREUR As Long = &HF44336 ' Rouge Material Design
Public Const COULEUR_INFO As Long = &H2196F3 ' Bleu Material Design
Public Const COULEUR_NEUTRE As Long = &H9E9E9E ' Gris Material Design
<p>Sub AppliquerPaletteProf(ws As Worksheet)
With ws.Range("A1:Z100")
.FormatConditions.Delete
' Règle pour succès
.FormatConditions.Add Type:=xlExpression, Formula1:="=A1>0.8"
.FormatConditions(.FormatConditions.Count).Interior.Color = COULEUR_REUSSITE
' Règle pour attention
.FormatConditions.Add Type:=xlExpression, Formula1:="=ET(A1>0.5;A1<=0.8)"
.FormatConditions(.FormatConditions.Count).Interior.Color = COULEUR_ATTENTION
' Règle pour erreur
.FormatConditions.Add Type:=xlExpression, Formula1:="=A1<=0.5"
.FormatConditions(.FormatConditions.Count).Interior.Color = COULEUR_ERREUR
End With
End Sub
Thèmes Adaptatifs selon le Contenu
#### Thème Financier
Sub ThemeFinancier(plage As Range)
Dim cellule As Range
For Each cellule In plage
If IsNumeric(cellule.Value) Then
Select Case cellule.Value
Case Is > 0
cellule.Interior.Color = RGB(0, 150, 0) ' Vert profits
cellule.Font.Color = RGB(255, 255, 255) ' Texte blanc
Case Is < 0
cellule.Interior.Color = RGB(200, 0, 0) ' Rouge pertes
cellule.Font.Color = RGB(255, 255, 255) ' Texte blanc
Case 0
cellule.Interior.Color = RGB(128, 128, 128) ' Gris neutre
cellule.Font.Color = RGB(255, 255, 255) ' Texte blanc
End Select
End If
Next cellule
End Sub
#### Thème Gestion de Projet
Sub ThemeGestionProjet(colonneStatut As Range)
Dim cellule As Range
For Each cellule In colonneStatut
Select Case UCase(cellule.Value)
Case "NON COMMENCÉ"
cellule.Interior.Color = RGB(248, 249, 250) ' Gris très clair
cellule.Font.Color = RGB(73, 80, 87) ' Texte gris foncé
Case "EN COURS"
cellule.Interior.Color = RGB(255, 243, 205) ' Jaune clair
cellule.Font.Color = RGB(133, 109, 0) ' Texte jaune foncé
Case "EN ATTENTE"
cellule.Interior.Color = RGB(209, 236, 241) ' Bleu clair
cellule.Font.Color = RGB(12, 84, 96) ' Texte bleu foncé
Case "TERMINÉ"
cellule.Interior.Color = RGB(212, 237, 218) ' Vert clair
cellule.Font.Color = RGB(21, 87, 36) ' Texte vert foncé
Case "ANNULÉ", "BLOQUÉ"
cellule.Interior.Color = RGB(248, 215, 218) ' Rouge clair
cellule.Font.Color = RGB(114, 28, 36) ' Texte rouge foncé
End Select
Next cellule
End Sub
Optimisation de l'Accessibilité
#### Contraste et Lisibilité
Function CalculerContraste(couleurFond As Long, couleurTexte As Long) As Double
Dim rFond, gFond, bFond As Integer
Dim rTexte, gTexte, bTexte As Integer
Dim lumFond, lumTexte As Double
' Extraction RGB
rFond = couleurFond And &HFF
gFond = (couleurFond And &HFF00) / &H100
bFond = (couleurFond And &HFF0000) / &H10000
rTexte = couleurTexte And &HFF
gTexte = (couleurTexte And &HFF00) / &H100
bTexte = (couleurTexte And &HFF0000) / &H10000
' Calcul luminance relative
lumFond = (0.299 <em> rFond + 0.587 </em> gFond + 0.114 <em> bFond) / 255
lumTexte = (0.299 </em> rTexte + 0.587 <em> gTexte + 0.114 </em> bTexte) / 255
' Ratio de contraste
CalculerContraste = (Math.Max(lumFond, lumTexte) + 0.05) / (Math.Min(lumFond, lumTexte) + 0.05)
End Function
<p>Sub OptimiserContraste(plage As Range)
Dim cellule As Range
Dim contraste As Double
For Each cellule In plage
contraste = CalculerContraste(cellule.Interior.Color, cellule.Font.Color)
' WCAG recommande un ratio de 4.5:1 minimum
If contraste < 4.5 Then
' Ajuster la couleur du texte pour améliorer le contraste
If (cellule.Interior.Color And &HFF) + ((cellule.Interior.Color And &HFF00) / &H100) + ((cellule.Interior.Color And &HFF0000) / &H10000) < 384 Then
cellule.Font.Color = RGB(255, 255, 255) ' Blanc sur fond sombre
Else
cellule.Font.Color = RGB(0, 0, 0) ' Noir sur fond clair
End If
End If
Next cellule
End Sub
Alternatives et Extensions
Compléments Excel Avancés
Considérez des outils tiers pour des fonctionnalités avancées :
Solutions Professionnelles :
- Kutools for Excel : Plus de 300 fonctions dont gestion couleurs avancée
- ASAP Utilities : Fonctions de formatage batch et automation
- Excel Color Assistant : Palettes professionnelles et harmonies couleurs
- Power Utility Pak : Fonctions personnalisées pour formatage conditionnel
Extensions Open Source :
- ExcelDNA : Framework pour créer des add-ins .NET
- Office Scripts : Automation avec TypeScript (Excel Online)
- VSTO Add-ins : Intégration complète avec .NET Framework
Intégration Power Platform
Power Query - Transformation avec Couleurs :
let
Source = Excel.CurrentWorkbook(){},
AjoutCouleur = Table.AddColumn(Source, "CouleurCode",
each if > 100 then "Vert"
else if > 50 then "Jaune"
else "Rouge"),
TypesModifies = Table.TransformColumnTypes(AjoutCouleur,{{"CouleurCode", type text}})
in
TypesModifies
Power BI - Mesures avec Formatage Conditionnel :
Couleur Performance =
SWITCH(
TRUE(),
>= 0.9, "Vert",
>= 0.7, "Jaune",
>= 0.5, "Orange",
"Rouge"
)
Solutions Cloud et Collaborative
Microsoft 365 - Collaboration Couleurs :
- Teams Integration : Partage de thèmes couleurs standardisés
- SharePoint Lists : Formatage conditionnel synchronisé
- Power Automate : Automatisation des changements de couleurs selon workflows
Services Tiers :
- Smartsheet : Alternative avec gestion couleurs avancée
- Airtable : Base de données avec personnalisation visuelle
- Notion : Documentation avec codes couleurs collaboratifs
Gagnez des heures sur Excel chaque semaine
Rejoignez les milliers d’utilisateurs qui automatisent leurs tâches Excel avec Elyx AI.
Conclusion
Maîtriser les techniques de remplacement de couleurs dans Excel vous permet d'optimiser significativement vos tableaux de bord et analyses. Que vous utilisiez des formules couleur cellule excel simples ou des macros VBA avancées, chaque méthode a sa place selon le contexte.
Les fonctions couleur excel que nous avons explorées offrent une flexibilité remarquable pour tous les niveaux d'utilisateurs. De la simple formule excel couleur à la programmation VBA, vous disposez maintenant d'un arsenal complet pour gérer efficacement les couleurs dans vos feuilles de calcul.
N'hésitez pas à expérimenter avec ces différentes approches et à les adapter à vos besoins spécifiques. La clé du succès réside dans la pratique et l'adaptation de ces techniques à vos projets concrets.
Points Clés à Retenir
-
La mise en forme conditionnelle est idéale pour les couleurs dynamiques
-
Les macros VBA automatisent les tâches répétitives
-
La méthode Rechercher et Remplacer convient aux modifications ponctuelles
-
Toujours tester sur un petit échantillon avant l'application globale
-
Documenter vos codes couleurs pour faciliter la maintenance
Vous avez aimé cet article ?
Partagez-le avec vos collègues !
Thomas L'Exceleur
Formateur Excel certifié
J'accompagne les professionnels dans le développement de leur expertise Excel depuis plus de 10 ans. Retrouvez mes astuces quotidiennes sur Instagram !
