XL 2013 Changement de couleur au doubleclic

[Antoine85]

Bonjour à tous.

Lors d'un précédent projet, j'ai dû faire intervenir une fonction me permettant de changer la couleur d'une cellule et de la lettre présente dans cette cellule au double clic.

En l’occurrence, toutes les cellules possèdent un "R" qui signifie "Réparation". Lorsque je double clic sur une cellule, je veux que le fond passe en rouge et la lettre R en blanc. Puis, lorsque je re-doubleclic, je souhaite que la cellule reprenne sa forme initiale.

Mon programme est le suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "R" Then Exit Sub
Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 3, 19, 3)
Target.Font.ColorIndex = IIf(Target.Interior.ColorIndex = 3, 2, 0)
Target(2, 1).Select
End Sub

Il fonctionnait très bien jusqu'à aujourd'hui, sans que je comprenne pourquoi il s'est arrêté de fonctionner.

 

[M12]

Re : Changement de couleur au doubleclic

Bonjour,

La macro marche trés bien chez moi,
J'ai juste changé la couleur du fond de cellule en blanc au lieu de jaune clair

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "R" Then Exit Sub
Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 3, 0, 3)
Target.Font.ColorIndex = IIf(Target.Interior.ColorIndex = 3, 2, 0)
Target(2, 1).Select
End Sub

 

[Antoine85]

Re : Changement de couleur au doubleclic

Ma boîte avait bloqué les macros pour des raisons de sécurité suite à un piratage
Problème résolu !

 

[chris]

Re : Changement de couleur au doubleclic

Bonjour

A noter qu'il serait à mon avis plus simple de créer un style de cellule et d'alterner entre le style standard et le style rouge avec blanc (le style existant Accent2 est assez proche mais tu peux créer ce que tu veux).