Cellule change de couleur suite à un double-clique
Résolu/Fermé
A voir également:
- Double clic cellule excel
- Double ecran - Guide
- Whatsapp double sim - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
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
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 :
sortir de l'éditeur VBA .
Les couleurs ne sont peut-être pas les bonnes.
A tester
A+
Cordialement,
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,
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
Modifié par pilas31 le 3/02/2014 à 17:47
Voila une proposition de macro modifiée pour pouvoir enlever la couleur
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,
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,
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
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