coloration cellule par click Résolu/Fermé

Question

Bonjour à tous,

Je suis novice et je voudrais que lorsque je double click dans une cellule cell-ci se colorie en vert et si je redouble click celle ci redevienne blanche ou vide.

En bidouillant j'ai tapé ça :

Private Sub WORKSHEET_BEFOREDOUBLECLICK(ByVal TARGET As Range, CANCEL As Boolean)
If (Not Application.Intersect(TARGET, Me.Range("A1:C5")) Is Nothing) Then
CANCEL = True
TARGET.Interior.Color = 3394611
End If
End Sub
Private Sub WORKSHEET_BEFORERIGHTCLICK(ByVal TARGET As Range, CANCEL As Boolean)
If (Not Application.Intersect(TARGET, Me.Range("A1:C5")) Is Nothing) Then
CANCEL = True
TARGET.Interior.Color = -4142
End If
End Sub

Mais le problème c'est que lorsque je veux masquer une ligne ce n'est plus possible.
D'avance merci pour votre aide.



Configuration: Windows / Firefox 99.0

Mike-31 · Answer

Bonjour,

comme cela
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Not Application.Intersect(Target, Me.Range("A1:C5")) Is Nothing) Then
If Target.Interior.ColorIndex = xlNone Then Target.Interior.ColorIndex = 4 Else Target.Interior.ColorIndex = xlNon
End If
End Sub

ou en utilisant tes codes couleurs
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Not Application.Intersect(Target, Me.Range("A1:C5")) Is Nothing) Then
If Target.Interior.Color = 3394611 Then Target.Interior.Color = -4142 Else Target.Interior.Color = 3394611
End If
End Sub

Mike-31 · Answer

Re,

Bizarre, regarde le fichier joint

https://www.cjoint.com/c/LDnj1W0SW1F

doumyc · Answer

Bonjour et merci désolé pour la réponse tardive un peu occupé... Je pense que c'est mon fichier qui pose problème et non votre formule

https://www.cjoint.com/c/LDrjOx51EZB

la coloration doit se faire de la cellule K3 à P100 et c'est ma liste déroulante qui donne le message d'erreur je pense.
Il faudrait qu'on ne puisse pas écrire dans ces cellules je pense mais je ne vois pas comment faire.

D'avance merci.

The_boss_68 · Answer

Bonjour,

Je ne sais pas si j'ai bien compris mais au cas où!!! voir fichier joint

https://www.cjoint.com/c/LDrlyFZ6UEj

Slts

Mike-31 · Answer

Bonjour,

il suffit de cocher Ignorer si vide dans la Validation 

commence par sélectionner la plage K3:P100
Validation de données et coche la case Ignorer si vide
https://www.cjoint.com/c/LDrmCd6yanF

par contre si tu ne veux pas coloriser les cellules vides, confirme le moi il faudra modifier le code

Mike-31 · Answer

Doumyc,

Ce qui serait bien, serait que tu suives tes discussions et que la moindre des corrections serait d'apporter une réponse à chaque intervenant qui prends de son temps pour essayer d'aider. 
Les bonnes manières se perdent.
Cordialement

ccm81 · Answer

Bonjour à tous

Une autre
https://www.cjoint.com/c/LDstpQDKbsB

Cdlmnt

doumyc · Answer

Bonjour,
Désolé je suis actuellement à l'étranger et pas mal pris par le boulot... Merci à tous pour vos réponses et vos réponses je teste tout ça dès que je peux et vous réponds.
Bonne continuation à tous

doumyc · Answer

J'ai testé ta solution Mike-31 et ça marche nickel! encore un grand merci à tous!
Bonne fin de journée

Mike-31 · Answer

Re,

Alors je passe le statut de la discussion en résolu

doumyc · Answer

oui pardon merci encore

Coloration cellule par click

11 réponses

Discussions similaires