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

Phil69970

XLDnaute Barbatruc

• 27 Mars 2022

• #2

Bonjour @anthoYS

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

*Merci de ton retour

@Phil69970

 

Pièces jointes

• Dbl Clic couleur V1.xlsm

  14 KB · Affichages: 12

Vote positif 0 Vote négatif

Solution

anthoYS

XLDnaute Barbatruc

• 27 Mars 2022

• #3

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

Merci encore

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Mars 2022

• #4

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

Cliquez pour agrandir...

J'ai pas compris cette phrase


@Phil69970

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 27 Mars 2022

• #5

anthoYS à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Mars 2022

• #6

Phil69970 à dit:

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

Cliquez pour agrandir...

 

Pièces jointes

• 270322143502.jpg

  29.3 KB · Affichages: 23

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Mars 2022

• #7

Toujours rien, ça ne fonctionne pas...

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Mars 2022

• #8

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

 

Pièces jointes

• Dbl Clic couleur V2.xlsm

  15.2 KB · Affichages: 4

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Mars 2022

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2022

• #10

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Mars 2022

• #11

Je ne comprends pas ce qui bloque...

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Mars 2022

• #12

Re

Une idée avec ce fichier pour test

@Phil69970

 

Pièces jointes

• Dbl Clic couleur V3.xlsm

  15.3 KB · Affichages: 3

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Mars 2022

• #13

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

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Mars 2022

• #14

Jacky67 à dit:

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

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Mars 2022

• #15

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

 

Vote positif 0 Vote négatif