XL 2019 colorer en vert après double clic la cellule concernée

  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • 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 !

anthoYS

XLDnaute Barbatruc
Bonjour,

je souhaite simplement colorer la cellule concernée par un double clic en vert fluo...


Cela fait un peu référence à ce topic :


Merci
 
je souhaite simplement colorer la cellule concernée par un double clic en vert fluo...
Bonjour à tous
Ceci met ou enlève la couleur verte par double clic
A placer dans le module de la feuille et adapter la plage
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [a2:d20]) Is Nothing Then Exit Sub ' plage à adapter
    Cancel = True
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
End Sub
 
Bonjour le fil

Juste histoire de faire refroidir mon café
(Jacky67, tu m'autorises 😉?)
VB:
Const V As Long = 65280
Const Z = -4142
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
If Intersect(R, [A2:D20]) Is Nothing Then Exit Sub ' plage à adapter
Cancel = -1: R.Interior.Color = IIf(R.Interior.Color = V, Z, V)
End Sub
NB: ce qui confirme que le code de Jacky67 fonctionne 😉
Phil, j'ai pas testé le tien car pas copiable/collable directement depuis ton message 😉
 
Bonjour à tous
Ceci met ou enlève la couleur verte par double clic
A placer dans le module de la feuille et adapter la plage
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [a2:d20]) Is Nothing Then Exit Sub ' plage à adapter
    Cancel = True
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
End Sub


VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [a2:d20]) Is Nothing Then Exit Sub ' plage à adapter
    Cancel = True
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
End Sub
Code:



chez moi ça colore en bleu pas vert. Je ne comprends pas pourquoi.

Merci à tous !
 
- 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
72
Affichages
1 K
  • Question Question
Réponses
5
Affichages
785
Retour