Excel remplir une cellule en 1 clic avec VBA Résolu/Fermé

Question

Bonjour, à tous.

J'ai fai une petite macro avec VBA qui me permet de colorier la cellule sur laquel je clic en rouge.
Mais je voudrai que quand je clic et que celle-ci est déja rouge elle repasse en blanc.

Voici le code que j'ai édité mais il ne marche pas ma cellule reste toujours rouge :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex = 0 Then ActiveCell.Interior.ColorIndex = 3 Else ActiveCell.Interior.ColorIndex = 3
End Sub

Quelqu'un pourrait m'aider ??? :-)

Cordialement

Grobibi34

eriiic · Accepted Answer

Bonjour,

Sinon tu peux utiliser l'evenement BeforeDoubleClick.
D'une part ça évite d'avoir à sélectionner une autre cellule pour revenir et déclencher l'evenement selection_change, d'autre part ça évite de changer la couleur par inadvertance.

Et je pense que ce n'est pas la couleur blanche que tu veux detecter mais l'absence de couleur qui est -4142 ou la variable xlColorIndexNone .
De plus pour éviter que ton changement de couleur se fasse sur toutes les cellules il faut sortir du programme après avoir testé si ta cellule (Target) souble-cliquée est en dehors de la zone que tu as défini.
Et si tu veux éviter de passer la cellule en mode édiition suite au double clic il faut ajouter cancel = true

Exemple avec action uniquement sur la colonne B :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    If ActiveCell.Interior.ColorIndex = xlColorIndexNone Then ActiveCell.Interior.ColorIndex = 3 Else ActiveCell.Interior.ColorIndex = xlColorIndexNone
    Cancel = True
End Sub

eric

Ivan-hoe · Answer

Quelle persévérance, Grobibi ! 
Là, le problème est que tu demandes la couleur 3 dans les deux cas !!

L'instruction ci-dessous devrait suffire : 
If ActiveCell.Interior.ColorIndex = 3 Then ActiveCell.Interior.ColorIndex = 0

Grobibi34 · Answer

J'aurai aussi une nouvelle question sur le même sujet.
Penses tu que cette fonction ne sois aplicable que sur certaines cellules, par exemple sur un cadre qui irait de la cellule B5 à la cellule B22 en longueur et j'usqu'a la cellule AA5.

Je sais pas trop si je me suis fais comprendre là..... oO

Cordialement

Grobibi34

tompols · Answer

Re Grobibi34,

y'a un pti souci dans ton code :

If ActiveCell.Interior.ColorIndex = 0 Then ActiveCell.Interior.ColorIndex = 3 Else ActiveCell.Interior.ColorIndex = 3 

en français ça fait : si la cellule est de couleur 0 alors mets là en couleur 3, sinon mets là en couleur 3 !!!!!

Donc :
If ActiveCell.Interior.ColorIndex = 0 Then ActiveCell.Interior.ColorIndex = 3 Else ActiveCell.Interior.ColorIndex = 0

Tom

amigo · Answer

bonjour,

ce code marche chez moi, le probleme c'est qu'il faut quitter la cellule ets revenir pour faire changer la couleur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex <= 0 Then
ActiveCell.Interior.ColorIndex = 3
Else
ActiveCell.Interior.ColorIndex = 0
End If
End Sub

A+.

tompols · Answer

Re,
Je n'ajouterai qu'un chose : http://www.commentcamarche.net/forum/affich 5330748 colorer une cellule en 1 clic ;)
Tom

Grobibi34 · Answer

Bonjour Bonjour, tout d'abord merci à tous pour vous etre penché sur la question.

J'ai réussi à faire fonctionner ton code Amigo, j'ai pu repérer mon erreur qui était plutot bète.

Eric ton code est super aussi et je le trouve super interessant je pense que avec ces éléments je ne peux plus me planter sur ce sujet.

Tom il est pas mal ton lien je vais le lire à fond je pense.

En bref un grand merci à tous pour m'aider à avancer dans ma macro :-)

Cordialement

Grobibi34

Excel remplir une cellule en 1 clic avec VBA

7 réponses

Discussions similaires