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

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
 

Jacky67

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

Staple1600

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

anthoYS

XLDnaute Barbatruc
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 !
 

Discussions similaires

L
Réponses
4
Affichages
428
Liorzherezh
L

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL