cellule

[eutrophisation]

bonjour tout le monde

Est il possible d'avoir un code qui permettrait dans une cellule avec des clicks modifier la couleur de la valeur saisie au depart en noir.
Par exemple le premier click bleu le second rouge et pouvoir revenir egalement sur la couleur noire en cliquant une troisieme fois.
(noir bleu rouge).
Mille mercis

 

[Pierrot93]

Re : cellule

Bonjour,

essaye le code ci-dessous, macro événementielle à placer dans le module de la feuille concernée, le changement de couleur est effecté lors de la sélection des cellules :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Font
    .ColorIndex = IIf(.ColorIndex = xlAutomatic, 5, IIf(.ColorIndex = 5, 3, xlAutomatic))
End With
End Sub

A noter que tu peux également le placer dans l'événement doubleclick :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Il n'y a pas d'événement lié au click gauche...

bonne journée
@+

 

[eutrophisation]

Re : cellule

avec double click c'est plus interressant

merci doublement de la rapidité et de la réponse

 

[Pierrot93]

Re : cellule

Re,

avec l'événement double click, il y a peut être lieu de rajouter la ligne ci-dessous en fin de procédure, elle évite de "rentrer" à l'intérieure de la cellule :

Cancel = True

@+

 

[eutrophisation]

Re : cellule

puis je avoir le bleu en gras et le rouge en gras alos que le noir normal couleur de la premiere saisie

 

[mutzik]

Re : cellule

bonjour
With Target.Font
.ColorIndex = IIf(.ColorIndex = xlAutomatic, 5, IIf(.ColorIndex = 5, 3, xlAutomatic))
.bold = true ' ---- ligne a rajouter
End With

 

[JNP]

Re : cellule

Bonjour le fil 🙂,
@ Mutzik : Si tu ne mets pas le test avant le Bold, même le noir restera gras au 2ème passage 😛...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.Font
    .ColorIndex = IIf(.ColorIndex = xlAutomatic, 5, IIf(.ColorIndex = 5, 3, xlAutomatic))
    If .ColorIndex = xlAutomatic Then .Bold = False Else .Bold = True
End With
Cancel = True
End Sub

@ Eutrophisation : Pour le Cancel, cela empêche de rentrer dans la cellule, pour le contourner, F12 pour modifier le contenu de la cellule 😉.
Bonne journée 😎

 

[Pierrot93]

Re : cellule

Re, bonjour Bertrand, JNP,

pour continuer avec le "IIF" :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.Font
    .ColorIndex = IIf(.ColorIndex = xlAutomatic, 5, IIf(.ColorIndex = 5, 3, xlAutomatic))
    .Bold = IIf(.ColorIndex = xlAutomatic, 0, 1)
End With
Cancel = True
End Sub