XL 2016 Changer couleur de cellule en un clic et reset

pierrejean

XLDnaute Barbatruc

• 19 Janvier 2022

• #2

Bonjour Chris769375

Un essai

 

Pièces jointes

• Changer couleur de cellule en un clic et reset.xlsm

  19.7 KB · Affichages: 23

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Janvier 2022

• #3

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

 

Vote positif 0 Vote négatif

C

Chris769375

XLDnaute Nouveau

• 19 Janvier 2022

• #4

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 ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Janvier 2022

• #5

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

 

Vote positif 0 Vote négatif

C

Chris769375

XLDnaute Nouveau

• 19 Janvier 2022

• #6

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Janvier 2022

• #7

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: 19 Janvier 2022

Vote positif 0 Vote négatif

C

Chris769375

XLDnaute Nouveau

• 19 Janvier 2022

• #8

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Janvier 2022

• #9

Comme ça par exemple :

VB:

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

 

Vote positif 0 Vote négatif

Solution

C

Chris769375

XLDnaute Nouveau

• 19 Janvier 2022

• #10

Merci fonctionne parfaitement

 

Vote positif 0 Vote négatif