Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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
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
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.
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.
??? 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 ?
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.
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.
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 monpost #37(vous pouvez cliquer sur le lien pour aller dessus).
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. 😜
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
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)
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 uniquesA) et C) +
les 2 groupes de casesB) 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).
=>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.
- 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