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

XL 2016 Changement couleur cellule sélectionné

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
Solution
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
J'ai bien vu ce post que j'ai testé même problème que la MFC fonctionne en essai puis adapter à mon projet cela ne fonctionne pas l'un ou l'autre était parfait pour moi. Cela vient de ma feuille qui est pas mal chargé en macro. les menus sélectionner se trouvent sur la gauche de la feuille.

 
Vote positif 0 Vote négatif
??? je n'ai pas utilisé de MFC dans mon fichier Excel (ni dans mon code VBA).

où donc veux-tu mettre une couleur de remplissage ? sur les 4 « bandes vertes »
avec « CAPTEUR DE CHLORE » à « INFRASTRUCTURE VPN » ?

ça aurait été plus facile si tu avais mis sur ton image les titres de lignes et de colonnes :
j'aurais pu mettre seulement les références de cellules.

pour t'aider davantage, tu devrais joindre ton fichier (sans données confidentielles) ;
il faut ton fichier pour voir quel est le code couleur de ton vert clair ; et quelle est
la 2ème couleur que tu veux ? le même jaune que celui du fichier précédent ?

soan
 
Vote positif 0 Vote négatif
Oui mais le partage de fichier est limité en taille je crois
 
Vote positif 0 Vote négatif
alors joins un fichier simplifié avec une seule feuille, où il y a les 4 « bandes vertes » ;
mets aussi dans une cellule à part la 2ème couleur que tu désires voir quand on
clique sur une des 4 bandes vertes.

je ne peux pas te demander de mettre ton fichier sur un site de partage de
fichiers, car c'est devenu récemment interdit.

soan
 
Vote positif 0 Vote négatif
ton fichier en retour. 🙂 ça a été plus long que prévu, car j'ai du insérer mon code VBA
dans le code déjà existant de la sub Worksheet_SelectionChange() ; je t'avais demandé
les couleurs, mais tu ne les as pas indiquées ; alors à défaut, j'ai mis les mêmes que
celles du fichier de mon post #10 ; à toi d'adapter les couleurs. 😜

edit : j'ai supprimé mon fichier joint car il y avait un bug ; le bon fichier
corrigé est sur mon post #37 (vous pouvez cliquer sur le lien pour aller dessus).

soan
 
Dernière édition:
Vote positif 0 Vote négatif
Ok merci à toi je regarde ca et te fais un retour🙂
 
Vote positif 0 Vote négatif
Bonsoir le fil

=>Michest
Merci d'avoir testé ma proposition.
Effectivement les cellules fusionnées ne sont pas prises en compte dans mon exemple (qui n'était qu'un exemple illustratif)
L'intérêt de la MFC c'est que c'est plus facile à paramétrer pour qui quelqu'un qui ne maitrise pas encore le VBA.
C'est plus intuitif (cela se pilote à la souris)
 
Vote positif 0 Vote négatif
@Michest

voici la nouvelle version. 🙂 (c'est une version sans MFC)

A) il y a une case unique pour la fusion C28:E28
B) il y a 4 cases en lignes 33 à 36, fusions C:E
C) il y a une case unique pour la fusion C41:E41
D) il y a 8 cases en lignes 46 à 53, fusions C:E

* la case unique de A) est indépendante du reste
* le groupe de 4 cases de B) est indépendant du reste
* la case unique de C) est indépendante du reste
* le groupe de 8 cases de D) est indépendant du reste

-------------------------------------------------------------------------------------

edit : le fichier joint est un bon exemple pour les 2 cases uniques A) et C) +
les 2 groupes de cases B) et D), tous indépendants ; mais j'ai compris ensuite
qu'il fallait voir le tout comme une seule liste unique, même si cette liste n'est
pas continue ; le bon fichier est sur mon post #37 (clic / le lien pour aller dessus).

soan
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re

=>Michest
Avec cette version, la plage de cellules n'est pas figée
Tu sélectionnes par le biais d'un InputBox.
(Il faut sélectionner les cellules avec la souris quand l'InputBox s'affiche)
VB: 
Sub Créer_MFC_v2()
Dim Rng As Range
Set Rng = Application.InputBox("Plage de cellules concernées par la MFC?", "Surbrillance Cellue Active", , , , Type:=8)
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
NB:
Il faudra toujours penser à mettre également la procédure évènementielle Selection_Change() dans la feuille.
 
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

  • Question Question
XL 2010 changement de la couleur d'un onglet (jaune), si une des cellules d'un tableau n'est plus vide sinon l'onglet garde sa couleur d'origine
2
Réponses
23
Affichages
686
sebbbbb
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
137
TooFatBoy
  • Question Question
XL 2013 Couleur d'une seule barre dans un graphique Sparkline
Réponses
2
Affichages
84
CISCO
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
119
Ckyara31
C
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
281
Guy_M
G
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
199
job75
N
  • Résolu(e)
Microsoft 365 Activer/désactiver le "Focus sur la cellule" en VBA
Réponses
6
Affichages
380
oguruma
K
  • Question Question
Microsoft 365 Couleur cellule recherche
Réponses
4
Affichages
99
fanfan38
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
866
Krome36
K
  • Question Question
Microsoft 365 Associer une variable à une couleur dans des graphiques excel à plusieurs feuilles
Réponses
13
Affichages
486
Hecatonchire
H
F
  • Résolu(e)
XL 2016 [VBA] connaître les couleurs d'un format conditionnel 'nuance de couleurs'
2
Réponses
15
Affichages
274
F22Raptor
F
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
439
rtlv17
R
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
359
Attila451
A
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
921
Alain 79
A
G
  • Question Question
XL 2010 Modifier la couleur de bordure d'une ZoneTexte par vba
Réponses
3
Affichages
118
Gnedea
G
G
  • Résolu(e)
Microsoft 365 Formule a deux inconnues
2
Réponses
16
Affichages
292
Gerantoine
G
G
  • Question Question
XL 2010 Modifier couleur de texte de zonetexte par vba
Réponses
3
Affichages
137
patricktoulon
G
  • Question Question
Microsoft 365 Formule a plusieurs inconnues
Réponses
6
Affichages
133
sylvanu
H
  • Résolu(e)
XL 2016 Changer la couleur d'un histogramme sur un graphique en vba
Réponses
2
Affichages
248
hutch57
H
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
255
tuti
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…