XL 2016 Changer couleur de cellule en un clic et reset

Chris769375

XLDnaute Nouveau
Bonjour,

Dans ce fichier, je souhaite pouvoir modifier la couleur d'une cellule par un simple clic .
Je souhaite appliquer cela uniquement aux lignes 3, 4, 6, 7, 9 et 10 et aux colonne C à R.

Au départ la cellule d'origine est blanche et à chaque clic sur celle-ci, je souhaiterais que la couleur de la cellule passe au vert pale RGB(216, 228, 188), un autre click elle redevient blanche et ainsi de suite.

Et pour finir je souhaiterais faire un reset (à l'aide du bouton) sur ces meme lignes et colonnes pour qu'elles redeviennent blanches.

Merci d'avance pour votre aide !!!
 

Pièces jointes

  • Changer couleur de cellule en un clic et reset.xlsx
    12.8 KB · Affichages: 10
Dernière édition:

Dranreb

XLDnaute Barbatruc
Bonjour.
Dans le module Feuil1 (Feuil1):
VB:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.CountLarge <> 1 Then Exit Sub
   Set Target = Intersect(Me.[C:R], Me.[3:4,6:7,9:10], Target)
   If Target Is Nothing Then Exit Sub
   Target.Interior.Color = IIf(Target.Interior.Color = &HFFA5&, &HF0F0F0, &HFFA5&)
   End Sub
Dans un module standard :
Code:
Option Explicit
Sub Reset()
   Intersect(Feuil1.[C:R], Feuil1.[3:4,6:7,9:10]).Interior.Color = &HF0F0F0
   End Sub
 

Dranreb

XLDnaute Barbatruc
Utilisez donc RGB(216, 228, 188) comme valeur de propriété Color si vous tenez à ce mi-jaune mi-chartreuse légèrement clair et délavé. C'est la même chose que &HBCE4D8&. Je n'utilise plus du tout pour ma part les ColorIndex pouvant désigner des couleurs différentes d'un classeur à l'autre.
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
300 889
Messages
1 988 140
Membres
210 081
dernier inscrit
&&&&&