Cellule change de couleur suite à un double-clique

Résolu/Fermé
René - 3 févr. 2014 à 11:03
 MACx - 10 mars 2023 à 11:03
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é
A voir également:

4 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 644
Modifié par pilas31 le 3/02/2014 à 11:25
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,
1
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 644
Modifié par pilas31 le 3/02/2014 à 17:47
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,
1
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
0
Merci beaucoup Pilas 31. Ça fonctionne comme je veux.
Cordialement.
René.
0

Où est sa réponse ?

0