XL 2013 Changement de couleur au doubleclic

  • Initiateur de la discussion Initiateur de la discussion Antoine85
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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
 
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).
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
Réponses
12
Affichages
1 K
Retour