XL 2016 Changement couleur cellule sélectionné

Créer une discussion
Répondre

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
Solution
job75
Bonjour JM,

Fichier (2) si une plage est concernée :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [D8:D27] 'plage à adapter
    .Interior.Color = 12874308 'couleur de fond bleue
    .Font.ColorIndex = 2 'couleur police blanche
    If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
End With
With ActiveCell
    .Interior.Color = 49407 'couleur de fond orange
    .Font.ColorIndex = xlAutomatic 'couleur police noire
End With
End Sub
A+
Trier par date Trier par votes
Bonjour Michest, le fil,

ton fichier en retour ; clique sur ta cellule D8.

ah, ben voilà c'que c'est d'jouer au fantôme ! 👻

t'as fais si peur à ta cellule qu'elle a attrapé la jaunisse ! 🤢

le smiley vert, c'est pour dire que D8 est malade, mais D8 est bien jaune,
pas verte ! ça va, tu as tout suivi ? 🤪 (sinon, relis tout bien lentement)

fais Alt F11 pour voir le code VBA ; puis quand tu auras terminé
d'admirer ma belle macro, fais Alt F11 pour aller sur Excel.
VB: 
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$D$8" Then .Interior.Color = 49407
  End With
End Sub
voici un remède pour ta cellule D8 : 😷

soan
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Michest, soan,
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [D8]
    .Interior.Color = IIf(Target.Address = .Address, 49407, 12874308) 'couleur de fond
    .Font.ColorIndex = IIf(Target.Address = .Address, xlAutomatic, 2) 'couleur police
End With
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour le fil Michest, soan

Puisque Michest n'a plus besoin désormais besoin de suivre le conseil de job75.
(cf message#2)
J'y vais aussi de ma macro matinale
VB: 
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 1 Then Exit Sub
T.Interior.Color = IIf(T.Address = "$D$8", Asc("Staple") + 1600, xlNone)
End Sub
Ou plus convivial (et/ou ergonomique*) avec une MFC matinée d'un peu de VBA.
La formule pour la MFC (cf copie écran ci-dessous)
01MFC_HC.jpg
Et dans le code de la feuille concernée par la MFC
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
*: on peut modifier la plage, le format et la couleur sur le Ruban:
Accueil=>Mise en forme conditionnelle

EDITION
Houps, Bonjour job75, je n'ai pas vu ton message.
J'étais en train de mettre en forme le mien pendant que tu postais le tien.
 
Vote positif 0 Vote négatif
Bonjour JM,

Fichier (2) si une plage est concernée :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [D8:D27] 'plage à adapter
    .Interior.Color = 12874308 'couleur de fond bleue
    .Font.ColorIndex = 2 'couleur police blanche
    If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
End With
With ActiveCell
    .Interior.Color = 49407 'couleur de fond orange
    .Font.ColorIndex = xlAutomatic 'couleur police noire
End With
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
soan à dit:
Bonjour Michest, le fil,

ton fichier en retour ; clique sur ta cellule D8.

ah, ben voilà c'que c'est d'jouer au fantôme ! 👻

t'as fais si peur à ta cellule qu'elle a attrapé la jaunisse ! 🤢

le smiley vert, c'est pour dire que D8 est malade, mais D8 est bien jaune,
pas verte ! ça va, tu as tout suivi ? 🤪 (sinon, relis tout bien lentement)

fais Alt F11 pour voir le code VBA ; puis quand tu auras terminé
d'admirer ma belle macro, fais Alt F11 pour aller sur Excel.
VB: 
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$D$8" Then .Interior.Color = 49407
  End With
End Sub
voici un remède pour ta cellule D8 : 😷

soan
Cliquez pour agrandir...
soan à dit:
Bonjour Michest, le fil,

ton fichier en retour ; clique sur ta cellule D8.

ah, ben voilà c'que c'est d'jouer au fantôme ! 👻

t'as fais si peur à ta cellule qu'elle a attrapé la jaunisse ! 🤢

le smiley vert, c'est pour dire que D8 est malade, mais D8 est bien jaune,
pas verte ! ça va, tu as tout suivi ? 🤪 (sinon, relis tout bien lentement)

fais Alt F11 pour voir le code VBA ; puis quand tu auras terminé
d'admirer ma belle macro, fais Alt F11 pour aller sur Excel.
VB: 
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address = "$D$8" Then .Interior.Color = 49407
  End With
End Sub
voici un remède pour ta cellule D8 : 😷

soan
Cliquez pour agrandir...
Désolé pour le retour un peu tardif, j'ai vu la cellule D8 c'est parfait SOAN 👍
Par contre quand je clique sur une autre cellule D8 doit repasser à son ancienne couleur et la nouvelle sélectionnée passe en couleur.
Exemple : j'ai 5 cellules D8;D9;D10;D11;D12 en fonction du clique sur la cellule sélectionner elle passe en couleur. je clique sur D9 (couleur jaune) D8;D10;D11;D12 états initial puis je clique sur D12 (couleur jaune) les autres cellules passent à l'état initial y compris D9

En tout les cas merci pour ton remède 😷
 
Vote positif 0 Vote négatif
job75 à dit:
Bonjour JM,

Fichier (2) si une plage est concernée :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [D8:D27] 'plage à adapter
    .Interior.Color = 12874308 'couleur de fond bleue
    .Font.ColorIndex = 2 'couleur police blanche
    If Intersect(ActiveCell, .Cells) Is Nothing Then Exit Sub
End With
With ActiveCell
    .Interior.Color = 49407 'couleur de fond orange
    .Font.ColorIndex = xlAutomatic 'couleur police noire
End With
End Sub
A+
Cliquez pour agrandir...
NICKEL ! merci
 
Vote positif 0 Vote négatif
Bonjour @Michest, le fil,

tu as écrit : « Exemple : j'ai 5 cellules D8;D9;D10;D11;D12... »

Image.jpg


nouveau fichier ci-dessous, avec cette sub :
VB: 
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If Intersect(Target, [D8:D12]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = 0
    With [D8:D12]
      .Interior.Color = 12874308: .Font.ColorIndex = 2
    End With
    .Interior.Color = 49407: .Font.ColorIndex = 0
  End With
End Sub
clique sur une des cellules sur fond bleu. 🙂

soan
 

Pièces jointes

Vote positif 0 Vote négatif
Staple1600 à dit:
Bonsoir le fil

=>Michest
Pas de retour, avis et/ou commentaires sur le message#5 ?
(notamment la proposition qui mixe VBA et Mise en forme conditionnelle)
J'avais pourtant pris le temps de faire une belle copie d'écran.
🙄
Cliquez pour agrandir...
Désolé aujourd'hui journée un peu compliquée je te fais un retour demain le seul essai que j'ai pu faire à partir d'un fichier exemple correspond bien à mon besoin par contre quand j'essai de l'appliquer dans mon fichier source cela ne fonctionne pas, je vais regarder ton retour sur les MFC si cela peut être concluant.
En tout les cas merci pour ton retour👍
Par contre la formule dans la MFC est tronquée dans ton fichier image
 
Vote positif 0 Vote négatif
Bonsoir Michest

=>Michest
Merci pour ton feedback
Alors pour faire simple
Lance cette macro dans un classeur vierge
Code: 
Sub Créer_MFC()
Dim Rng As Range
Set Rng = [A1:H20] 'adpater ici la plage concernée par la MFC
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=ADRESSE(LIGNE();COLONNE())=CELLULE(""adresse"")"
With Rng.FormatConditions(1).Borders
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThin
End With
Rng.FormatConditions(1).Interior.Color = 65535
End Sub
Ensuite dans le code de la feuille (clic-droit Visualiser le code)
Mettre la procédure évènementielle ci-dessous
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
 
Vote positif 0 Vote négatif
Staple1600 à dit:
Bonsoir Michest

=>Michest
Merci pour ton feedback
Alors pour faire simple
Lance cette macro dans un classeur vierge
Code: 
Sub Créer_MFC()
Dim Rng As Range
Set Rng = [A1:H20] 'adpater ici la plage concernée par la MFC
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=ADRESSE(LIGNE();COLONNE())=CELLULE(""adresse"")"
With Rng.FormatConditions(1).Borders
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThin
End With
Rng.FormatConditions(1).Interior.Color = 65535
End Sub
Ensuite dans le code de la feuille (clic-droit Visualiser le code)
Mettre la procédure évènementielle ci-dessous
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Cliquez pour agrandir...
Ok je te fais un retour demain après les tests de ta macro à dispo.
Merci à toi
 
Vote positif 0 Vote négatif
Staple1600 à dit:
Bonsoir Michest

=>Michest
Merci pour ton feedback
Alors pour faire simple
Lance cette macro dans un classeur vierge
Code: 
Sub Créer_MFC()
Dim Rng As Range
Set Rng = [A1:H20] 'adpater ici la plage concernée par la MFC
Rng.FormatConditions.Add Type:=xlExpression, Formula1:="=ADRESSE(LIGNE();COLONNE())=CELLULE(""adresse"")"
With Rng.FormatConditions(1).Borders
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThin
End With
Rng.FormatConditions(1).Interior.Color = 65535
End Sub
Ensuite dans le code de la feuille (clic-droit Visualiser le code)
Mettre la procédure évènementielle ci-dessous
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Cliquez pour agrandir...
bonjour staple1600,
J'ai fait l'essai avec la MFC sur un classeur vierge cela fonctionne NICKEL et je garde précieusement ta macro.
Par contre quand j'essai de l'adapter dans mon projet sur une de mes feuilles cela ne m'affiche pas de couleur de sélection je pense que ma feuille se trouve avec des cellules fusionnées et perturbe le fonctionnement.
Je vais remettre en en forme cette feuille et l'adapté à nouveau.
Merci à toi
Michest
 
Vote positif 0 Vote négatif
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

N
  • Résolu(e)
Microsoft 365 Activer/désactiver le "Focus sur la cellule" en VBA
Réponses
6
Affichages
135
oguruma
oguruma
K
  • Question Question
Microsoft 365 Couleur cellule recherche
Réponses
3
Affichages
23
fanfan38
fanfan38
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
287
pvander
P
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
52
tuti
T
H
  • Résolu(e)
XL 2016 Changer la couleur d'un histogramme sur un graphique en vba
Réponses
2
Affichages
202
hutch57
H
I
  • Question Question
XL 2016 Supprimer "vrai" ou "faux" dans une case à cocher
Réponses
6
Affichages
961
migau
migau
didier09
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
65
didier09
didier09
B
  • Résolu(e)
XL 2021 compter les cellules de la même couleur
2 3
Réponses
36
Affichages
663
mapomme
mapomme
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
78
Danyk01
D
D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
501
deuxnid
D
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
151
sylvanu
sylvanu
C
  • Question Question
Microsoft 365 VBA activer filtre élaboré suite changement donnée d'une cellule
Réponses
5
Affichages
276
Chounoé
C
M
  • Question Question
XL 2016 Changement de couleur cellule
Réponses
1
Affichages
230
Gégé-45550
Gégé-45550
Yann71
  • Question Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
783
job75
job75
T
  • Question Question
XL 2016 Fleche des dépendants/antecedents : changer la couleur
Réponses
10
Affichages
237
crocrocro
C
kaki31
  • Question Question
XL 2013 Couleur doublons
Réponses
7
Affichages
76
kaki31
kaki31
G
  • Question Question
XL 2016 SI (cellule de couleur) alors
Réponses
4
Affichages
728
Nicolas JACQUIN
Nicolas JACQUIN
Y
  • Question Question
XL 2013 Identifier les éléments "actifs" d'un segment
Réponses
3
Affichages
84
fanch55
fanch55
C
  • Résolu(e)
XL 2021 Addition des colonnes Cliquée
2
Réponses
16
Affichages
112
sylvanu
sylvanu
A
  • Question Question
XL 2016 compter les cellules qui contiennent du TEXTE d'une certaine couleur
Réponses
5
Affichages
405
crocrocro
C
Retour