Autres (RESOLU)Colorer la cellule sélectionnée

[chaelie2015]

Bonjour FORUM
J'ai trouvé un code qui colore la cellule active , mais si je protège quelque cellule , ce code ne fonctionne pas ?
Merci par avance

 

[Usine à gaz]

Bonjour chaelie2015, bon jour à toutes et à tous,
Je vous souhaite une beau dimanche

Peut-être comme ça, code dans le thisworkbook :

Private Sub Workbook_Open()
Worksheets("Feuil1").Protect Password:="", UserInterfaceOnly:=True
End Sub

voir fichier joint,
lionel

 

[job75]

Bonjour chaelie2015, Lionel,

Le code que vous utilisez est compliqué et insuffisant.

Le plus simple est de créer une MFC :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Unprotect "toto" 'mot de passe à adapter
Cells.FormatConditions.Delete 'RAZ
ActiveCell.FormatConditions.Add xlExpression, Formula1:="=1" 'crée une MFC
ActiveCell.FormatConditions(1).Interior.ColorIndex = 8 'bleu
Protect "toto" 'mot de passe à adapter
End Sub

Si l'on veut colorer toute la sélection remplacer ActiveCell par Target.

Noter que UserInterfaceOnly:=True ne va pas avec les MFC.

A+

 

[chaelie2015]

Bonsoir usine a gaz , job,
Sorry pour ce retard et merci pour les réponses.
Souci RESOLU
A+