Comment colorier une case avec une macro

Bonsoir,

Malgré de très nombreuses tentatives je n'arrive toujours pas à créer une macro qui fait que quan je mets dans la cellule D20 de l'onglet par "mois" de mon tableau la lettre A j'aimerais que la cellule devienne rouge si je mets B elle devienne bleu si je mets V elle devienne jaune etc.

Ceci afin de ne pas être obligé de mettre les couleurs à la main.

J'ai déjà utilisé la mise en forme conditionnelle pour autre chose.

J'ai enregistrer un fichier sur le net malgré mes tentatives de copier les données dasn BVA je suis toujours au même résultat.

Alors s'il y avait un internaute ou une internaute compétente ce serait génial

merci d'avance

Camon

https://www.excel-pratique.com/~files/doc/testcoloration.xls

Bonsoir

L'onglet "mois" et la cellule D20 n'existent pas sur le fichier exemple, tu as du faire une erreur.

Cordialement

Salut la communauté Excel-Pratique

Dans le code VBA de ta feuille "mois", tu ajoutes ce code

Adapte la Cellule "D20" et le choix des couleurs R, B et J

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D20")) Is Nothing Then
    Select Case UCase(Target)
        Case "R"
            Target.Interior.ColorIndex = 3
        Case "B"
            Target.Interior.ColorIndex = 5
        Case "J"
            Target.Interior.ColorIndex = 6
        Case Else
            Target.Interior.ColorIndex = xlNone
    End Select
End If
End Sub

Mytå

Merci de répondre aussi rapidement comme le fichier était trop lourd j'ai voulu en découper une partie mais évidement il manque l'étentiel.

Le voila zipper j'espère que cela est posible merci encore

et bonne nuit

Camon

https://www.excel-pratique.com/~files/doc/Testcoloriage.zip

Salut Camon et le forum

Une macro ne réglera pas ton problème, la MFC va toujours avoir le dernier mot,

tu vas devoir changer ta façon de faire.

A te relire Mytå

Merci et bonjour Mytå et le Forum,

Merci d'avoir travailler si tard. je commence à comprendre mais je ne suis quand même pas arrivé à créer cette macro.

En fait la MFC étant pour les jours fériés et les W-E se pose la question, la macro va-t-elle avoir le dessus pour les jours de travail du lundi au vendredi sauf les jours fériés puisque mes lettres A ou B ou V pour vacances ne sont pas utilisée le W-E et les jours fériés ou est-il plus raisonnable de vider les MFC pour la semaine ?

Evidement je suppose que nous pourrions tout faire en macro soit pour les W-E, les jours fériés et ensuite les jours d'absences vacances maladie etc (voir ligne 22 de l'onglet mois) mais j'avoue que je ne suis pas certain d'avoir la capacité de mener cela à bien.

En tout cas déjà un grand merci pour tes réponses et si tu as la possibilité de me donner ton avis pour la suite ce sera génial .

Déjà bonne journée.

Camon

Re Camon et le Forum

Essaye avec cette macro sur le code de ta feuille "Par mois"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D19:AA384")) Is Nothing Then
    Select Case UCase(Target)
        Case "R"
            Target.Interior.ColorIndex = 3 'Rouge
        Case "B"
            Target.Interior.ColorIndex = 5 'Bleu
        Case "J"
            Target.Interior.ColorIndex = 6 'Jaune
        Case Else
            Target.Interior.ColorIndex = xlNone
    End Select
End If
End Sub

Et pour la MFC tu pourrais enlever la troisième condition, et remplacer la formule de la deuxième par

=OU(JOURSEM($B21)=1;JOURSEM($B21)=7)

Mytå

Bonsoir Mytå et le forum,

Et un très grand merci à toi Mytå, génial tout fonctionne et j'ai i pu ajouter de nouvelles couleurs et les MFC fonctionnent aussi.

alors un grand merci de donner ton temps et de permettre à d'autres d'apprendre.

Bon Noël à toi

Camon