Macro : griser une cellule au clic gauche

[newmacroman]

Bonjour à tous,

Je suis débutant en macro et j'aurais besoin d'un conseil.
J'aimerais créer une macro qui grise une cellule quand je clique gauche dessus et idéalement qui se "dégrise" au clic droit.
En fait, je ne souhaite pas insérer de case à cocher...

Cela vous semble-t-il possible ?
Et si oui, avez-vous des conseils ?

Merci de votre aide.

 

[Gurgeh]

Re : Macro : griser une cellule au clic gauche

Salut newmacroman,

Je te suggère d'utiliser deux événements de l'objet worksheet :
* SelectionChange pour le clic gauche (inconvénient : si tu veux regriser une cellule que tu viens de blanchir, ça ne marche pas)
* BeforeRightClick pour le clic droit

Voici un exemple de code :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    With Target.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
End Sub

Gurgeh

 

[Robert]

Re : Macro : griser une cellule au clic gauche

Bonjour Newmacroman et bienvenu, bonjour Gurgeh, bonjour le forum,

Avec un seul événement, le clic du bouton droit (BeforeRightClick). Clic du bouton droit une fois pour griser, clic de bouton droit sur des cellules grisées pour enlever la couleur :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cel As Range 'déclare la variable cel (CELlule)


Cancel = True 'empêche le menu contextuel lié au clic du bouton droit
For Each cel In Selection 'boucle sur toutes les cellules cel de la sélection
    cel.Interior.ColorIndex = IIf(cel.Interior.ColorIndex = 15, xlNone, 15) 'définit la couleur de la cellule (grise si aucune couleur, aucune couleur si grise)
Next cel 'prochaine cellule de la boucle
End Sub

 

[newmacroman]

Re : Macro : griser une cellule au clic gauche

Bonjour Robert et Gurgeh,

Merci beaucoup de votre aide.
Ca marche !

Passez une bonne journée.

A plus tard

Newmacroman