Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

cellule

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

eutrophisation

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
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 :

Code: 
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 :

Code: 
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
@+
 
Dernière édition:
Vote positif 0 Vote négatif
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 :

Code: 
Cancel = True

@+
 
Vote positif 0 Vote négatif
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 😛...
Code: 
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 😎
 
Vote positif 0 Vote négatif
Re : cellule

Re, bonjour Bertrand, JNP,

pour continuer avec le "IIF" :

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2013 Création de planning en 3x8 pour 11 agents
Réponses
0
Affichages
181
Atexide
A
A
  • Question Question
XL 2013 Création d'un planning en 3x8 sur l'année 2026
2
Réponses
29
Affichages
1 K
Atexide
A
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
436
sylvanu
  • Résolu(e)
Microsoft 365 Changer Couleur de Texte dans cellule
Réponses
7
Affichages
557
Electron24
M
  • Résolu(e)
Microsoft 365 Formules (imbriquées) pour suivi action
Réponses
4
Affichages
346
AtTheOne
F
  • Question Question
XL 2016 Demande aide formules Excel
Réponses
3
Affichages
445
Laurent78
L
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
652
Tophe2
T
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
578
pvander
P
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
307
Sissou71
S
C
  • Résolu(e)
XL 2021 Addition des colonnes Cliquée
2
Réponses
16
Affichages
451
sylvanu
P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
552
cathodique
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
706
iruri
I
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
366
Paulle
P
A
  • Question Question
Autres VBA Chaîne de caractères de couleur à extraire dans cellule Excel
2
Réponses
21
Affichages
2 K
Armand11
A
P
  • Résolu(e)
Microsoft 365 Modifier couleur du texte d'une cellule
Réponses
6
Affichages
296
pat66
P
Utilisez des couleurs indexées
Réponses
2
Affichages
867
Lu76Fer
J
  • Question Question
XL 2019 mettre une couleur en arrière plan dans une cellule en fonction de la valeur d'une autre cellule
Réponses
1
Affichages
878
JLR67
J
  • Résolu(e)
XL 2016 Appliquer sur une sélection la couleur d'une autre cellule
Réponses
4
Affichages
557
halecs93
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
712
Jacky67
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
657
souhaib ad
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…