XL 2016 Changement couleur cellule sélectionné

Michest94

Michest94

XLDnaute Occasionnel
Bonjour,

Comment changer la couleur d'une cellule quand elle est sélectionnée?

Merci à vous
 

Pièces jointes

  • Classeur1.xlsx
    8.5 KB · Affichages: 43
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
Michest94

Michest94

XLDnaute Occasionnel
soan à dit:
Bonjour @Michest, le fil,

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

Regarde la pièce jointe 1089042

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
Cliquez pour agrandir...
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.

1608301625692.png
 
Vote positif 0 Vote négatif
Michest94

Michest94

XLDnaute Occasionnel
soan à dit:
Bonjour @Michest, le fil,

je crois que tu as manqué mon post #10. :confused:

soan
Cliquez pour agrandir...

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
S

soan

XLDnaute Barbatruc
Inactif
??? 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
Michest94

Michest94

XLDnaute Occasionnel
soan à dit:
??? 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)

soan
Cliquez pour agrandir...
Oui mais le partage de fichier est limité en taille je crois
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
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
S

soan

XLDnaute Barbatruc
Inactif
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
Michest94

Michest94

XLDnaute Occasionnel
soan à dit:
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 l'as pas indiqué ; alors à défaut, j'ai mis les mêmes que celles
du fichier de mon post #10 ; à toi d'adapter les couleurs. 😜

soan
Cliquez pour agrandir...
Ok merci à toi je regarde ca et te fais un retour🙂
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

=>Michest
Michest à dit:
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
Cliquez pour agrandir...
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
S

soan

XLDnaute Barbatruc
Inactif
@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

  • feuilleDOC1.xlsm
    437.6 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
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

Discussions similaires

M
  • Résolu(e)
Microsoft 365 colorier une rangée de cellules
2
Réponses
15
Affichages
372
Marvin57
M
S
  • Résolu(e)
XL 2016 si cellule de couleur alors écrire X
Réponses
2
Affichages
154
sevsev38
S
H
  • Question
Microsoft 365 Mise en forme conditionnelle sur autre tableau
Réponses
2
Affichages
214
hbb
H
F
  • Résolu(e)
Microsoft 365 Copier juste couleur cellule.
Réponses
7
Affichages
311
Francky79
F
F
  • Question
XL 2016 Demande aide formules Excel
Réponses
3
Affichages
115
Laurent78
L
M
  • Résolu(e)
Microsoft 365 lancer une macro en sélectionnant une cellule
Réponses
6
Affichages
136
sylvanu
sylvanu
E
  • Résolu(e)
Microsoft 365 VBA Function Recherche d'une couleur et renvoi résultats
Réponses
5
Affichages
273
Englobe
E
E
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas
Réponses
5
Affichages
150
Englobe
E
S
  • Question
Microsoft 365 Changement automatique de la couleur de la cellule clonée
Réponses
7
Affichages
325
danielco
D
G
  • Question
Microsoft 365 Couleur dans cellule
Réponses
13
Affichages
280
Gotteland Jean Claude
G

Membres actuellement en ligne

19 membres et 411 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 238
Messages
2 086 492
Membres
103 234
dernier inscrit
matteo75654548