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

[Résolu] Taille de marqueurs d'un graphe en VBA

  • Initiateur de la discussion Initiateur de la discussion kulbank
  • Date de début Date de début

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 !

kulbank

XLDnaute Nouveau
Salut le forum,
J'aimerais modifier la taille des marqueurs d'une série dans un graphique de nuage de points. La taille est dans une cellule de la feuille Excel. Le graphique est déjà créé mais j'aimerais qu'il se mette à jour automatiquement lorsque la cellule de la taille du marqueur change.
Je suis allé voir sur internet et dans mes bouquins mais les réponses ne m'ont pas fait avancé.
Le code le plus proche de ce que je pense être correct devrait être :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N6")) Is Nothing Then
Call Macro2
End If
End Sub
Code:
Sub Macro2()
Graphique1.Plot.SeriesCollection(5).SeriesMarker.Auto = False
Graphique1.Plot.SeriesCollection(5).DataPoints(-1).Marker.Size = Range("N6")
End Sub
Mais bon étant donné qu'un code presque juste fonctionne pas, je sollicite votre aide 😎

Merci d'avance pour votre aide!!

KulbanK
 

Pièces jointes

Dernière édition:
Re : Taille de marqueurs d'un graphe en VBA

Bonjour.
Essayez comme ça :
VB:
Feuil1.ChartObjects("Graphique  1").Chart.SeriesCollection(5).MarkerSize = Feuil1.[N8].Value

P.S. En tout cas j'ai pu faire fonctionner ça, chez moi :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$16" Then ChartObjects("Graphique1").Chart.SeriesCollection(5).MarkerSize = Target.Value
End Sub

Edit: Bonjour Gardien de phare
 
Dernière édition:
- 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
Microsoft 365 Probléme VBA
Réponses
8
Affichages
447
Réponses
4
Affichages
408
Réponses
1
Affichages
770
  • Question Question
XL 2019 Code VBA
Réponses
12
Affichages
837
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…