Changer la couleur d'une cellule par un clic dessus?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

videocontact

XLDnaute Junior
Bonjour,

excusez mon peu de connaissance en Excel.

* J'aimerai que lorsque je clic sur une des cellules vertes (qui correspond à un terrain) ben celle-ci passe en couleur rouge, avec un clic suivant elle passe en couleur noire et au clic suivant elle redevient en couleur verte.

* J'aimerai que lorsque j'appuie sur le bouton "Reset", toutes les cellules qui étaient verte d'origine, redeviennent en vert.

Est-ce possible?

Si maintenant on est limité à 2 couleurs pour les cellules, supprimer la couleur noire et peut-être alors le permettre via une autre solution (une fois une cellule en "statut noir" elle le restera jusqu'a un Reset).

Merci de votre aide les champions.
 

Pièces jointes

Re : Changer la couleur d'une cellule par un clic dessus?

Bonjour,

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Range("b:b,f:f,j:j,n:n,r:r,v:v,z:z,ad:ad"), Target) Is Nothing And Target.Row < 35 Then
  If Target.Interior.ColorIndex = 4 Then
     Target.Interior.ColorIndex = 3
  Else
    If Target.Interior.ColorIndex = 3 Then
      Target.Interior.ColorIndex = 1
    Else
       If Target.Interior.ColorIndex = 1 Then
         Target.Interior.ColorIndex = 4
       End If
    End If
  End If
 End If
End Sub

Code:
Sub raz()
  Set champ = Range("b4")
  col = 2
  For col = 2 To 30 Step 4
    For lig = 4 To 34 Step 2
      Set champ = Union(champ, Cells(lig, col))
    Next
  Next
  champ.Interior.ColorIndex = 4
End Sub

JB
 

Pièces jointes

Dernière édition:
Re : Changer la couleur d'une cellule par un clic dessus?

Hello,

merci pour cette réponse rapide BOISGONTIER.

c'est effectivement se que je recherche.

* Mais pour changer plusieurs fois de couleur une une cellule, je dois changer de cellule entre chaque changement, pas moyen d'y remédier?

J'ai introduit une horloge dans ma page avec la fonction "Time" mais celle-ci reste bloquée, ma macro n'est donc pas bonne?

Merci de votre aide les amis.
 
Re : Changer la couleur d'une cellule par un clic dessus?

Double-clic

voir PJ

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Range("b:b,f:f,j:j,n:n,r:r,v:v,z:z,ad:ad"), Target) Is Nothing And Target.Row < 35 Then
  If Target.Interior.ColorIndex = 4 Then
     Target.Interior.ColorIndex = 3
  Else
    If Target.Interior.ColorIndex = 3 Then
      Target.Interior.ColorIndex = 1
    Else
       If Target.Interior.ColorIndex = 1 Then
         Target.Interior.ColorIndex = 4
       End If
    End If
  End If
 End If
 Cancel = True
End Sub

JB
 

Pièces jointes

Dernière édition:
Re : Changer la couleur d'une cellule par un clic dessus?

BOISGONTIER,

effectivement, la solution est d'utiliser le double-clic.

Merci de ton aide, voilà qui résout ce point d'avancement.

Je vais passer au dernier point de l'appli, mais je vais ouvrir un nouveau sujet car je pense que c'est assez complexe ce que j'aimerai lol.

Encore merci à toi.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour