Coloration cellule par click
Résolu
doumyc
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
doumyc Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
doumyc Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Coloration cellule par click
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Msi click bios 5 ✓ - Forum BIOS
- Click&clean - Télécharger - Nettoyage
11 réponses
Bonjour,
comme cela
ou en utilisant tes codes couleurs
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
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.
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
Je ne sais pas si j'ai bien compris mais au cas où!!! voir fichier joint
https://www.cjoint.com/c/LDrlyFZ6UEj
Slts
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
Bonne fin de journée
cette valeur ne correspond pas aux restrictions de validation de données pour cette cellule
J'ai oublié de préciser que pour ces cellules j'avais une liste déroulante je ne sais pas si ça change quelque chose