Colorer une cellule en 1 clic

Résolu
Grobibi34 Messages postés 83 Statut Membre -  
tompols Messages postés 1325 Statut Contributeur -
Bonjour, à tous.
Bon alors voila un de mes petits problèmes: je voudrai lorsque je clique sur une cellule elle se colore en rouge et lorsque je reclic dessus elle repasse en blanc.

Actuellement j'arrive à colorer une cellule en rouge en un clic, et je la repasse en blanc en double cliquant.
Mais je n'aime pas trop cette technique car quand je double clic j'active l'écriture dans la cellule.

Voici mon code actuel que j'ai placé dans la feuille 1:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Interior.ColorIndex = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 3
End Sub

et voici se que sa donne :

https://www.cjoint.com/?dgln7yW3zo

Cordialement

Grobibi34

1 réponse

tompols Messages postés 1325 Statut Contributeur 435
 
Ca c un grand classique, le gestion simple et double clic en VBA !!!!
un ptit lien bien utile : http://xcell05.free.fr/pages/api/utilisation.htm (voir le premier exemple puis lire un peu tt si tu veux en apprendre sur Excel ;) )

Tom
1