Coloration cellule par click
Résolu
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.
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
11 réponses
-
Bonjour,
comme celaPrivate 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 couleursPrivate 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
-
-
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. -
Bonjour,
Je ne sais pas si j'ai bien compris mais au cas où!!! voir fichier joint
https://www.cjoint.com/c/LDrlyFZ6UEj
Slts -
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
-
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
-
-
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 -
J'ai testé ta solution Mike-31 et ça marche nickel! encore un grand merci à tous!
Bonne fin de journée -
Re,
Alors je passe le statut de la discussion en résolu
-
oui pardon merci encore
