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.
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.