XL 2019 MFC ou VBA pour couleur de cellule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Kev1407
  • 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
K

Kev1407

XLDnaute Nouveau
Bonjour,

Je cherche un moyen de mettre en couleur mes cellules en fonction de la valeur de celle-ci.

Dans les colonnes C2:G1000 je voudrais rechercher toutes les nombres identique et les mettre de la même couleur.

J'ai pensé à un truc dans le genre
Sub couleur ()
Range("C2:G1000").select
if cell.value = 1 then
cell.value font.colorindex = 3

and if cell.value = 2
cell.value font color index = 4

et ainsi de suite, par exemple pour que toute les valeur à 1 dans ces colonne devienne rouge la valeur 2 devienne verte etc...

Le problème c'est que je n'arrive pas à l'écrire correctement.
Pouvez vous m'aider, car j'ai tenté la MFC mais j'ai plus de 40 valeur différente cela risque de faire une grosse mise en forme et choisir les couleur est compliqué.

Merci de votre aide.

Cordialement
 
Solution
sylvanu
Bonjour Kev, et bienvenu sur XLD,
Une possibilité en PJ avec :
VB: 
Sub couleur()
Dim C
For Each C In Range("C2:G1000")
    Select Case C.Value
        Case 1: C.Font.ColorIndex = 3
        Case 2: C.Font.ColorIndex = 6
        Case 3: C.Font.ColorIndex = 8
        Case 4: C.Font.ColorIndex = 10
        Case 5: C.Font.ColorIndex = 12
        Case 6: C.Font.ColorIndex = 14
        Case 7: C.Font.ColorIndex = 16
        Case 8: C.Font.ColorIndex = 18
        Case 9: C.Font.ColorIndex = 20
    End Select
Next C
End Sub
Il "suffit" de construire la liste des 40 valeurs désirées.
Trier par date Trier par votes
Bonjour Kev, et bienvenu sur XLD,
Une possibilité en PJ avec :
VB: 
Sub couleur()
Dim C
For Each C In Range("C2:G1000")
    Select Case C.Value
        Case 1: C.Font.ColorIndex = 3
        Case 2: C.Font.ColorIndex = 6
        Case 3: C.Font.ColorIndex = 8
        Case 4: C.Font.ColorIndex = 10
        Case 5: C.Font.ColorIndex = 12
        Case 6: C.Font.ColorIndex = 14
        Case 7: C.Font.ColorIndex = 16
        Case 8: C.Font.ColorIndex = 18
        Case 9: C.Font.ColorIndex = 20
    End Select
Next C
End Sub
Il "suffit" de construire la liste des 40 valeurs désirées.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonjour Kev, Gdinfo,
GDINFO à dit:
mais comment je créer les 40 valeurs
Cliquez pour agrandir...
Je ne comprends pas. Il vous suffit de continuer :
VB: 
Sub couleur()
Dim C
For Each C In Range("C2:G1000")
    Select Case C.Value
        Case 1: C.Font.ColorIndex = 3
        Case 2: C.Font.ColorIndex = 6
        Case 3: C.Font.ColorIndex = 8
        ......
        Case 39: C.Font.ColorIndex = 51
        Case 40: C.Font.ColorIndex = 18
    End Select
Next C
End Sub
A ce sujet, il existe une approche plus simple à écrire et à exécuter, mais peut être plus complexe à comprendre. En mettant les couleurs dans un tableau :
Code: 
Option Explicit: Option Base 1
Sub Couleur()
Dim C, Couleur, a
Couleur = Array(3, 6, 8, 10, 12, 14, 16, 18, 20)
For Each C In Range("C2:G1000")
    On Error Resume Next
    C.Font.ColorIndex = Couleur(C.Value)
Next C
End Sub
La valeur de la cellule pointe directement la couleur à appliquer en lisant la table Couleur.
" On Error Resume Next" évite les erreurs si la valeur de la cellule pointe au delà du tableau. Par ex si C.value=999 alors Couleur(999) n'existe pas.
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Kev, Gdinfo,

Je ne comprends pas. Il vous suffit de continuer :
VB: 
Sub couleur()
Dim C
For Each C In Range("C2:G1000")
    Select Case C.Value
        Case 1: C.Font.ColorIndex = 3
        Case 2: C.Font.ColorIndex = 6
        Case 3: C.Font.ColorIndex = 8
        ......
        Case 39: C.Font.ColorIndex = 51
        Case 40: C.Font.ColorIndex = 18
    End Select
Next C
End Sub
A ce sujet, il existe une approche plus simple à écrire et à exécuter, mais peut être plus complexe à comprendre. En mettant les couleurs dans un tableau :
Code: 
Option Explicit: Option Base 1
Sub Couleur()
Dim C, Couleur, a
Couleur = Array(3, 6, 8, 10, 12, 14, 16, 18, 20)
For Each C In Range("C2:G1000")
    On Error Resume Next
    C.Font.ColorIndex = Couleur(C.Value)
Next C
End Sub
La valeur de la cellule pointe directement la couleur à appliquer en lisant la table Couleur.
" On Error Resume Next" évite les erreurs si la valeur de la cellule pointe au delà du tableau. Par ex si C.value=999 alors Couleur(999) n'existe pas.
Cliquez pour agrandir...
Oui j’ai posé une question bête
 
Vote positif 0 Vote négatif
Re,
Evidemment, mais seulement avec le premier ex, puisque la valeur ne peut pas servir d'index à la table couleur le second ex ne marche pas.
Essayez :
VB: 
Sub couleur()
Dim C
For Each C In Range("C2:G1000")
    Select Case C.Value
        Case "Mot1": C.Font.ColorIndex = 3
        Case "Mot2": C.Font.ColorIndex = 6
        Case "Mot3": C.Font.ColorIndex = 8
        Case "Mot4": C.Font.ColorIndex = 10
        Case "Mot5": C.Font.ColorIndex = 12
        Case "Mot6": C.Font.ColorIndex = 14
    End Select
Next C
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Re,
Evidemment, mais seulement avec le premier ex, puisque la valeur ne peut pas servir d'index à la table couleur le second ex ne marche pas.
Essayez :
VB: 
Sub couleur()
Dim C
For Each C In Range("C2:G1000")
    Select Case C.Value
        Case "Mot1": C.Font.ColorIndex = 3
        Case "Mot2": C.Font.ColorIndex = 6
        Case "Mot3": C.Font.ColorIndex = 8
        Case "Mot4": C.Font.ColorIndex = 10
        Case "Mot5": C.Font.ColorIndex = 12
        Case "Mot6": C.Font.ColorIndex = 14
    End Select
Next C
End Sub
Cliquez pour agrandir...
Oui c’est bien ce que j’ai mis . Suivant votre modèle ,très satisfait
est il possible que la macro s’exécute automatiquement après changement de la valeur saisie,
 
Vote positif 0 Vote négatif
Re,
Oui bien sur, avec une macro événementielle, à mettre obligatoirement dans la feuille concernée.
Et surtout ne pas changer le nom de cette macro.
Elle s'exécutera à chaque fois qu'une cellule de la feuille sera modifiée.
Code: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub ' Fin si plusieurs cellules sont sélectionnées
    ' La suite ne s'éxécutera que si la la cellule concernée est dans cette plage
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then   ' Adapter la plage utile A1:B10
         On Error GoTo Fin:
         Application.EnableEvents = False                       ' Interdit tout nouvel événement
         Application.ScreenUpdating = False                     ' Fige l'écran
         ' Choix couleur
        Select Case Target                                      ' Target est la valeur de la cellule modifiée
            Case "Mot1": Target.Font.ColorIndex = 3
            Case "Mot2": Target.Font.ColorIndex = 6
            Case "Mot3": Target.Font.ColorIndex = 8
            Case "Mot4": Target.Font.ColorIndex = 10
            Case "Mot5": Target.Font.ColorIndex = 12
            Case "Mot6": Target.Font.ColorIndex = 14
        End Select
    End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Re,
Oui bien sur, avec une macro événementielle, à mettre obligatoirement dans la feuille concernée.
Et surtout ne pas changer le nom de cette macro.
Elle s'exécutera à chaque fois qu'une cellule de la feuille sera modifiée.
Code: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub ' Fin si plusieurs cellules sont sélectionnées
    ' La suite ne s'éxécutera que si la la cellule concernée est dans cette plage
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then   ' Adapter la plage utile A1:B10
         On Error GoTo Fin:
         Application.EnableEvents = False                       ' Interdit tout nouvel événement
         Application.ScreenUpdating = False                     ' Fige l'écran
         ' Choix couleur
        Select Case Target                                      ' Target est la valeur de la cellule modifiée
            Case "Mot1": Target.Font.ColorIndex = 3
            Case "Mot2": Target.Font.ColorIndex = 6
            Case "Mot3": Target.Font.ColorIndex = 8
            Case "Mot4": Target.Font.ColorIndex = 10
            Case "Mot5": Target.Font.ColorIndex = 12
            Case "Mot6": Target.Font.ColorIndex = 14
        End Select
    End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Cliquez pour agrandir...
Super . Merci je vais adapté et mettre en place , cela évitera de lancer la macro
trop bien 👍
 
Vote positif 0 Vote négatif
Ceci étant dit, pour se référer au titre de ce post "MFC ou VBA pour couleur de cellule" vous pourriez utiliser simplement une MFC :
1649491146324.png
 
Vote positif 0 Vote négatif
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

Yann71
  • Question Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
783
job75
job75
B
  • Résolu(e)
XL 2021 compter les cellules de la même couleur
2 3
Réponses
36
Affichages
663
mapomme
mapomme
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
151
sylvanu
sylvanu
D
  • Question Question
Microsoft 365 Compter les couleur avec MFC
2
Réponses
19
Affichages
783
TooFatBoy
TooFatBoy
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
352
Tophe2
T
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
287
pvander
P
treza88
  • Question Question
Microsoft 365 Fonction perso ref couleur Hexa en couleur de fond de cellule
2
Réponses
24
Affichages
930
Dudu2
Dudu2
jeff1494
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
337
jeff1494
jeff1494
D
  • Résolu(e)
Microsoft 365 MFC Cellule vide
Réponses
4
Affichages
486
Derrdio
D
Lu76Fer
XLS : Sélecteur de Couleur
Réponses
10
Affichages
316
Lu76Fer
Lu76Fer
E
  • Résolu(e)
Microsoft 365 Couleur Police sur grand nombre de cellules
2
Réponses
22
Affichages
945
TooFatBoy
TooFatBoy
A
  • Résolu(e)
Microsoft 365 VBA - Tri par couleur de cellule
2
Réponses
16
Affichages
734
AD95
A
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
708
Laliepomm
L
L
  • Résolu(e)
XL 2016 MFC sur plusieurs critères
2 3 4
Réponses
55
Affichages
2 K
Lorenzini
L
Chaton77
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
364
Chaton77
Chaton77
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
631
dadu35
D
Roseline
  • Résolu(e)
Microsoft 365 Colorier une cellule selon plusieurs critères en VBA
Réponses
5
Affichages
713
Roseline
Roseline
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
561
Corentin26270
C
Jouxte
  • Question Question
XL 2021 Recherche mot ou expression dans une cellule pour en déduire une imputation
2
Réponses
15
Affichages
1 K
Jouxte
Jouxte
M
  • Question Question
XL 2013 Je voudrais que les colonnes f g et h se colorent automatiquement en fonction de la couleur de la colonne M
Réponses
2
Affichages
575
MARLIOT
M
Retour