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_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Dim cel As Range, n&
For Each cel In [A:A].SpecialCells(xlCellTypeConstants, 1)
n = n + 1
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points(n)
.MarkerBackgroundColorIndex = IIf(cel = Target, 3, 47)
.MarkerForegroundColorIndex = IIf(cel = Target, 3, 47)
End With
Next
End Sub
Fichier joint.
PS pour JJ1 : j'aurais quand même souhaité un accusé de réception du post #6 sur ce fil :
Je connais les usages....j'ai testé ta MFC avec réponse hier à 16H09: "Bonjour Job et meilleurs voeux également.
Bravo pour cette MFC avec la priorité des ET D4,D3,D2,D1...astucieux."
Merci pour ton code VBA pour la courbe mais je pense en rester à la 2ème série sans trait plus simple.
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.