Cellule change de couleur suite à un double-clique Résolu

Question

Bonjour, 

N'étant pas un spécialiste en excel, je m'en réfère à vous.

Je souhaiterais que lorsque je double-clique sur les cellules de la colonne D, elles se colorient en vert; lorsque je double-clique sur les cellules de la colonne E, elles se colorient en orange; lorsque je double-clique sur les cellules de la colonne F...

Par avance, merci pour l'aide que vous pourrez m'apporter.

Cordialement
René

pilas31 · Answer

Bonjour,

Pour cela il faut utiliser les macros événementielles en VBA. 
Voici la marche à suivre :
Faire un clic bouton droit sur l'onglet de la feuille et choisir "Visualiser le code"
et copier la macro suivante :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Column
    Case 4 'colonne D
        Target.Interior.Color = 5287936
    Case 5 'colonne E
        Target.Interior.Color = 49407
    Case 6 'colonne F
        Target.Interior.Color = 255
    End Select
End Sub
sortir de l'éditeur VBA .
Les couleurs ne sont peut-être pas les bonnes.
A tester
A+
Cordialement,

René · Answer

Merci Pilas31 pour la réponse rapide. Exactement ce que je voulais. 
Mais, comment faire pour que la couleur de la cellule qui est devenue verte par exemple disparaisse et redevienne blanche si je double-clique à nouveau dessus.

Cordialement

pilas31 · Answer

Voila une  proposition de macro modifiée pour pouvoir enlever la couleur
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Or Target.Column = 5 Or Target.Column = 6 Then
        If Target.Interior.Pattern <> xlNone Then
            Target.Interior.Pattern = xlNone
        Else
            Select Case Target.Column
            Case 4 'colonne D
                Target.Interior.Color = 5287936
            Case 5 'colonne E
                Target.Interior.Color = 49407
            Case 6 'colonne F
                Target.Interior.Color = 255
            End Select
        End If
' ici mettre éventuellement Cancel=True
    End If
End Sub
Une petite remarque : Cette macro met ou enlève la couleur puis entre en saisie de la cellule (ce qui est le comportement standard du double clic en Excel) si on souhaite que cela mette la couleur seulement (et donc désactiver l'entrée en saisie de la cellule) il suffit de mettre Cancel=True 

A tester 
Cordialement,

René · Answer

Merci beaucoup Pilas 31. Ça fonctionne comme je veux.
Cordialement.
René.

Cellule change de couleur suite à un double-clique

4 réponses

Discussions similaires

Newsletters