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

[anthoYS]

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 :

Colorer en vert ou rouge après double clic et compter les cel. vertes [résolu]

Bonjour, Dans mon fichier, j'ai de B3:B17 des pronostics. Le but, colorer par double clic le bon résultat (vert) et les mauvais (rouge).Pour cela, un double clic doit colorer en vert, 2, en rouge. Et ainsi de suite, faire une boucle. Revenir à rien, puis vert, puis rouge.Ensuite, en B19, compter...

www.excel-downloads.com

Merci

 

[Phil69970]

Bonjour @anthoYS

Je te propose ceci :
1 dbl clic colorie en vert
1dbl clic enlève le vert

*Merci de ton retour

@Phil69970

 

[anthoYS]

Merci beaucoup. Par contre, chez moi malgré le fait d'avoir activé la protection ou la modification, ça ne fait rien...

Merci encore

 

[Phil69970]

Re

Tu fais bien un double clic
Toutes les cellules en vert dans le fichier ont été faite par le double clic pour tester la macro

le fait d'avoir activé la protection ou la modification

J'ai pas compris cette phrase


@Phil69970

 

[Jacky67]

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

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

 

[anthoYS]

Re

Tu fais bien un double clic
Toutes les cellules en vert dans le fichier ont été faite par le double clic pour tester la macro


J'ai pas compris cette phrase


@Phil69970

 

[anthoYS]

Toujours rien, ça ne fonctionne pas...

 

[Phil69970]

Re

Et dans cette version pour varier les plaisirs
Dbl clic ==> vert

Clic droit ==> rouge

J'ai limité aux cellules A1:E30 le clic droit

@Phil69970

 

[anthoYS]

Même combat, ça ne fonctionne pas chez moi.

 

[Staple1600]

Bonjour le fil

Juste histoire de faire refroidir mon café
(Jacky67, tu m'autorises ?)

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]

Je ne comprends pas ce qui bloque...

 

[Phil69970]

Re

Une idée avec ce fichier pour test

@Phil69970

 

[anthoYS]

en fermant tous les classeurs actifs et en rouvrant, ça fonctionne.

 

[anthoYS]

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

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

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

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

Merci à tous !

 

[Phil69970]

Re

Avec ma macro du post #12 j'ai réactivé les évènements qu'un autre fichier aurait pu désactivé !

As tu essayé mes fichiers que j'ai mis dans ce fil ?
Normalement ils doivent tous fonctionner ....

@Phil69970