Changer de couleur de police dans une cellule sélectionnée

Bonjour

Je souhaiterai changer la couleur de la police dans la cellule sélectionnée une fois modifiée (nouveau mot dans la cellule et je tape Entrée).

Dans mon fichier, il y a 12 feuilles représentant les 12 mois de l'année où se trouvent des cellules où il y a noté en gris clair "C/A VSAV", "COND VSAV", "COND FPT", "SERV FPT" (Ce sont des postes à pourvoir dans mon métier). Ces cellules se colorent de cette manière via des boutons qui font référence à des cellules masquées (feuille "Mai").

Objectif souhaité: Une personne postule sur un de ces postes, je souhaiterai qu'en modifiant une de ces cellules en police grise se change en police noir quand on marque le nom de personne à la place.

J'espère avoir été compréhensible.

Cordialement

Johann

Bonsoir,
une proposition en définissant des Mises en Formes Conditionnelles (MFC).
Dans l'exemple ci-dessous, j'ai affecté JEAN, PAUL et EVA au planning de janvier.
Dans le fichier joint, je n'ai traité que le planning de janvier pour être sûr que cela vous convienne.
Pour le reproduire sur les autres mois, il suffit de reproduire la mise en forme

image

Une remarque : Le passage en police noire se fait, y compris pour les cellules du planning autre que "C/A VSAV", "COND VSAV", "COND FPT", "SERV FPT".Un petit plus de votre application serait de bloquer la saisie des cellules réservées puisque leur gestion se fait par bouton. Par exemple en verrouillant toutes les cellules du planning (comme le sont les cellules hors planning) et en déverrouillant spécifiquement les cellules "C/A VSAV", "COND VSAV", "COND FPT", "SERV FPT" dans les macros exécutées à l'activation des boutons. (voir le 2ème fichier)

Le planning avec les plages horaires affectées en noir

image

Les règles MFC

image
Le code des formules
=G5=""
=ET((G5<>"SERV FPT"); (G5<>"COND FPT");(G5<>"C/A VSAV");(G5<>"COND VSAV") )

Pour le planning de nuit, c'est P5 et non G5

Pour les règles, il est très important qu'elles soient dans cet ordre.

Pour la protection, il faut autoriser la sélection des cellules verrouillées puisque les boutons se réfèrent à la cellule sélectionnée. Voici le code

Module 6

Sub DéprotégerFeuille()
    ActiveSheet.Unprotect
End Sub
Sub ProtégerFeuille()
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Module 4 ajout du code correspondant à la déprotection - reprotection

Option Explicit

Sub Cond_VSAV()
DéprotégerFeuille
Worksheets("Mai").Range("X15").Copy Selection
ProtégerFeuille
End Sub

Sub Cond_FPT()
DéprotégerFeuille
Worksheets("Mai").Range("W17").Copy Selection
ProtégerFeuille
End Sub

Sub Supprimer()
DéprotégerFeuille
Worksheets("Mai").Range("W19").Copy Selection
ProtégerFeuille
End Sub

Sub Serv_FPT()
DéprotégerFeuille
Worksheets("Mai").Range("X17").Copy Selection
ProtégerFeuille
End Sub

Sub Autres()
DéprotégerFeuille
Worksheets("Mai").Range("Y17").Copy Selection
ProtégerFeuille
End Sub

Sub Chef_agres_VSAV()
DéprotégerFeuille
Worksheets("Mai").Range("W15").Copy Selection
ProtégerFeuille
End Sub

Bonjour Clr

Je te remercie de pouvoir m'aider.

malheureusement, en appliquant les modifications que tu as faites, cela ne fonctionne pas de mon côté.

Quand on modifie l'une des cases qui a une police grise, ça reste toujours en police grise. Et non en police noire.

çà fonctionne pourtant bien chez moi. As-tu tester directement mon fichier ?

Sinon, tu peux m'envoyer le fichier où c'est ko ?

Les formules des MFC doivent être rigoureuses

Voici le fichier. C'est celui que j'ai téléchargé de ta réponse.

j'ai voulu rajouté des postes au hasard, quand je veux mettre un nom sur ces postes, soit ca reste en gris clair soit ca bloque.

avant que je regarde, avez-vous bien vu que je n'avais fait la mise en place que sur janvier ?
Je viens de voir, effectivement, avec la protection, çà ne marche plus contrairement à l'autre version qui ne marche plus également ce matin !!!.
Je regarde

Voici une nouvelle version corrective

.
Mise en place pour Janvier à juin uniquement pour ce qui concerne le verrouillage (voir ci-dessous).
Ce que j'ai fait :
Pour les cellules cachées du mois de mai (dommage que ce ne soit pas des cellules nommés) j'ai défini les Mises en Forme Conditionnelles (MFC).
Et ce sont elles qui sont reproduites par les boutons.
Voici tout le code que j'ai ajouté ou modifié
Module4

Option Explicit

Sub Cond_VSAV()
DeprotegerFeuille
Worksheets("Mai").Range("X15").Copy Selection
ProtegerFeuille
End Sub

Sub Cond_FPT()
DeprotegerFeuille
Worksheets("Mai").Range("W17").Copy Selection
ProtegerFeuille
End Sub

Sub Supprimer()
DeprotegerFeuille
Worksheets("Mai").Range("W19").Copy Selection
ProtegerFeuille
End Sub

Sub Serv_FPT()
DeprotegerFeuille
Worksheets("Mai").Range("X17").Copy Selection
ProtegerFeuille
End Sub

Sub Autres()
DeprotegerFeuille
Worksheets("Mai").Range("Y17").Copy Selection
ProtegerFeuille
End Sub

Sub Chef_agres_VSAV()
DeprotegerFeuille
Worksheets("Mai").Range("W15").Copy Selection
ProtegerFeuille
End Sub

Module5

Sub DeprotegerFeuille()
    ActiveSheet.Unprotect
End Sub
Sub ProtegerFeuille()
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingCells:=True
End Sub
image

CA FONCTIONNE BIEN.

MERCI BCP

Avez-vous protéger les feuilles de juillet à décembre comme indiqué ?

N'oubliez pas de passer le sujet à "résolu".

Rechercher des sujets similaires à "changer couleur police selectionnee"