Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Changement de couleur au doubleclic

Antoine85

XLDnaute Nouveau
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

XLDnaute Accro
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

Code:
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
 

chris

XLDnaute Barbatruc
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).
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…