Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en couleur de cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion amandeine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

amandeine

XLDnaute Nouveau
Bonjour !

Je cherche de l’aide pour créer une fonction qui permet de colorier des cellules correspondant à des valeurs.

J’ai essayé avec la fonction « mise en forme conditionnelle » mais malheureusement, je n’y arrive pas ou que partiellement. Mes compétences sont relativement limitées à l’emploi des fonctions de base d'excel.

C’est pourquoi je m’adresse à vous pour me fournir une aide, dont je remercie d’avance toute contribution.

Pour expliquer mon besoin, j’ai joint un fichier et ma demande est celle-ci :

Je voudrais mettre en couleur sur la colonne allant de C18 à C 1751 toutes les cellules qui correspondent à la valeur se trouvant dans la cellule C6 et de sa couleur et faire la même chose avec :
la valeur C7 et sa couleur,
la valeur C8 et sa couleur,
la valeur C9 et sa couleur,
la valeur C10 et sa couleur
la valeur C11 et sa couleur
la valeur C12 et sa couleur

ET colorier les cellules allant de C18 à C1751 ayant une valeur se trouvant dans les cellules 1757 à 1780 avec la couleur grise.

Lorsqu’une cellule (C 6 à C 12 et C 1757 à C 1780) est vide (sans valeur), ne pas prendre en compte.

Appliquer le même principe à chacune des colonnes qui se suivent.

Je voudrais avoir la possibilité d’appliquer le principe à de nouvelles colonnes qui n’existent pas encore et au fur à mesure qu’elles seront crées à partir de la colonne D.

Merci d’avance pour toute aide.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Mise en couleur de cellules

La coloration est un peu longue ( sablier) mais le tableau est important !! Patience il n'y a pas d'autre solution pour que cela soit plus rapide ( à moins de réduire le tableau ):

Les explications de la macro sont spécifiés !

Code: 
Sub Colorier_1()
Dim k As Integer
Dim i As Integer
Dim j As Integer
Sheets("Feuil1").Activate
Range("C18:AD1751").Interior.ColorIndex = xlNone
For k = 3 To 28 ' selection des colonnes de la colonne 3 (C) à la colonne 28(AD)
 For i = 1757 To 1780 ' Prise en compte des valeurs des lignes 1757 à 1780
  If Cells(i, k) = 12 Or Cells(i, k) = 8 Or Cells(i, k) = 7 Or Cells(i, k) = 13 _
  Or Cells(i, k) = 20 Or Cells(i, k) = 1 Or Cells(i, k) = 4 Then
   For j = 18 To 1751 ' Coloriage définitif des cellules C18 à AD1751 en fonction des valeurs numérotées
  If Cells(j, k) = 12 And Cells(j, k) = Cells(i, k) Then Cells(j, k).Interior.ColorIndex = 43
  If Cells(j, k) = 8 And Cells(j, k) = Cells(i, k) Then Cells(j, k).Interior.ColorIndex = 6
  If Cells(j, k) = 7 And Cells(j, k) = Cells(i, k) Then Cells(j, k).Interior.ColorIndex = 6
  If Cells(j, k) = 13 And Cells(j, k) = Cells(i, k) Then Cells(j, k).Interior.ColorIndex = 44
  If Cells(j, k) = 20 And Cells(j, k) = Cells(i, k) Then Cells(j, k).Interior.ColorIndex = 33
  If Cells(j, k) = 1 And Cells(j, k) = Cells(i, k) Then Cells(j, k).Interior.ColorIndex = 15
  If Cells(j, k) = 4 And Cells(j, k) = Cells(i, k) Then Cells(j, k).Interior.ColorIndex = 15
 Next j
  End If
 Next i
 Next k
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en couleur de cellules

Autre possibilité signalée par Chris :

NOTA : le coloriage est trés trés long ( patience) il a beaucoup de coloriage à faire !

N'oublions pas que cela doit s’affecter pour chaque colonne !

Code: 
Sub Colorier_1()
Dim k As Integer
Dim i As Integer
Dim j As Integer
Sheets("Feuil1").Activate
Range("C18:AD1751").Interior.ColorIndex = xlNone ' effacement des couleurs
For k = 3 To 28 ' sélection des colonnes de la colonne 3 (C) à la colonne 28(AD)
 For i = 1757 To 1780 ' Prise en compte des valeurs des lignes 1757 à 1780
  If Cells(i, k) > 0 Then
   For j = 18 To 1751 ' Coloriage définitif des cellules C18 à AD1751 en tenant compte de toutes les valeurs
  If Cells(j, k) = 12 And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 43
  ElseIf Cells(j, k) = 8 And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 6
  ElseIf Cells(j, k) = 7 And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 6
  ElseIf Cells(j, k) = 13 And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 44
  ElseIf Cells(j, k) = 20 And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 33
  ElseIf Cells(j, k) = 1 And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 15
  ElseIf Cells(j, k) = 4 And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 15
  ElseIf Cells(j, k) <> "" And Cells(j, k) = Cells(i, k) Then
  Cells(j, k).Interior.ColorIndex = 47
  End If
 Next j
  End If
 Next i
 Next k
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Mise en couleur de cellules

Juste un petit coucou vite fait pour dire de ne pas perdre de temps à continuer à travailler dessus, car de ce que j'ai vu des derniers fichiers, cela ne correspond pas à la demande formulée, peut-être mal expliquée.

je repasserai plus tard (car là, je travaille ) pour expliquer plus précisément ce qui ne va pas !

encore merci
 
Vote positif 0 Vote négatif
Re : Mise en couleur de cellules

Juste un petit coucou vite fait pour dire de ne pas perdre de temps à continuer à travailler dessus, car de ce que j'ai vu des derniers fichiers, cela ne correspond pas à la demande formulée, peut-être mal expliquée.

je repasserai plus tard (car là, je travaille ) pour expliquer plus précisément ce qui ne va pas !

encore merci
 
Vote positif 0 Vote négatif
Re : Mise en couleur de cellules

Bonjour,

J’avoue ( pardons nous avouons que nous avons rien compris, Chris, moi et tout ceux qui sont prêts à t'aider) !!

Le plus simple est d'envoyer un fichier avec les couleurs souhaitées manuellement dans quelques lignes et sur une colonne avec les valeurs adéquates ( nous comprendrons mieux) !

Bonne journée !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Résolu(e)
Autres Changer la couleur de fond de cellules.
Réponses
4
Affichages
112
BIBIX
B
T
  • Résolu(e)
Microsoft 365 Macro pour changer la couleur d'une cellule si...
2 3
Réponses
36
Affichages
1 K
Toubabou
T
B
  • Résolu(e)
XL 2021 compter les cellules de la même couleur
2 3
Réponses
36
Affichages
1 K
mapomme
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
173
Ckyara31
C
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
351
mapomme
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
2
Affichages
300
Payne
P
G
  • Question Question
Microsoft 365 couleur cellule
Réponses
1
Affichages
101
JHA
J
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
313
sylvanu
B
  • Résolu(e)
XL 2021 Appliquer une couleur
Réponses
10
Affichages
222
Staple1600
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
199
TooFatBoy
A
  • Résolu(e)
XL 2016 Colorer cellules suivant condition saisie texte en VBA
Réponses
5
Affichages
388
Al1_44
A
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
553
rtlv17
R
P
  • Question Question
Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs
Réponses
4
Affichages
197
Perceval973
P
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
394
sylvanu
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
372
tuti
T
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
359
didier09
D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
736
deuxnid
D
E
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
541
TooFatBoy
E
  • Question Question
Microsoft 365 Règle de surbrillance d'une cellule qui dépasse une valeur selon l'intitulé d'une colonne.
Réponses
2
Affichages
196
Emeline20
E
  • Question Question
Microsoft 365 Fonction perso ref couleur Hexa en couleur de fond de cellule
2
Réponses
24
Affichages
1 K
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…