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

chaelie2015 · 8 Août 2021

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

job75 · 8 Août 2021

Bonjour chaelie2015, Lionel,

Le code que vous utilisez est compliqué et insuffisant.

Le plus simple est de créer une MFC :

VB:

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+

Usine à gaz · 8 Août 2021

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

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

VB:

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

voir fichier joint,
lionel

job75 · 8 Août 2021

Bonjour chaelie2015, Lionel,

Le code que vous utilisez est compliqué et insuffisant.

Le plus simple est de créer une MFC :

VB:

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 · 8 Août 2021

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

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

chaelie2015

XLDnaute Accro

Pièces jointes

job75

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires