XL 2016 Changer couleur de cellule en un clic et reset

[Chris769375]

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 !!!

 

[pierrejean]

Bonjour Chris769375

Un essai

 

[Dranreb]

Bonjour.
Dans le module Feuil1 (Feuil1):

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 :

Option Explicit
Sub Reset()
   Intersect(Feuil1.[C:R], Feuil1.[3:4,6:7,9:10]).Interior.Color = &HF0F0F0
   End Sub

 

[Chris769375]

Un grand merci à vous 2 pour la solution, mais je vais prendre celle de pierrejean qui me convient le mieux concernant les couleurs.

Quelle variable de couleur utilises-tu pour avoir trouver RGB(216, 228, 188) ? y a t-il une convertion à faire ?

 

[Dranreb]

Ce classeur disponible en téléchargement permet de le trouver.

Élaboration et utilisation de jeux de couleurs.

Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.

www.excel-downloads.com

 

[Chris769375]

J'ai copier le code dans un autre fichier mais la couleur ne correspond pas à la couleur RGB(216, 228, 188) la couleur est un orange pale

 

[Dranreb]

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.

 

[Chris769375]

Le problème je suis pas très bon voir mauvais en VBA, et je ne sais pas comment on fait

 

[Dranreb]

Comme ça par exemple :

Target.Interior.Color = IIf(Target.Interior.Color = RGB(216, 228, 188), &HFFFFFF, RGB(216, 228, 188))

 

[Chris769375]

Merci fonctionne parfaitement