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
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
Les règles MFC
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 SubModule 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 SubBonjour 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 SubModule5
Sub DeprotegerFeuille()
ActiveSheet.Unprotect
End Sub
Sub ProtegerFeuille()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingCells:=True
End Sub
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".