Configure "ScatterLineMarkers" dans Chartspace en VBA et se prend la tête...

  • Initiateur de la discussion Initiateur de la discussion RomainDumoulin
  • 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 !

R

RomainDumoulin

Guest
salut tout le monde !
me revoila qques jours apres un dernier post avec mon interface graphique permettant d'afficher des mesures.
cette fois-ci, l'histoire, c'est de ne PAS faire apparaitre les points de mesures qui sont égales à zéros (et la ligne entre les points...)
Jetez un coup d'oeil au fichier joint, c'Est assez moche quand la courbe part de zero...

si je remplace les zero par des cellules vides, le grahpique se decale sur l'Axe des abcisses.. 🙁

J'ai tenté
VB:
 If Plage(i) = 0 Then
        .SeriesCollection.Item(x).Points.Item(i - 1).Border.Color = "white"
         .SeriesCollection.Item(x).Points.Item(i - 1).Interior.Color = "white"
          End If
mais bon on voit toujours la ligne et des markers blancs...vraiment moche...

J'Essaye de creer un graphique de type ScatterLineMarkers mais je seche sur le parametrage...


voici le code actuel :
VB:
For j = 0 To ListBoxLocataire.ListCount - 1 'boucle sur les éléments de la listbox
    If ListBoxLocataire.Selected(j) = True Then
    If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
        
        For i = 1 To 26
        Plage(i) = visibles(j + 1, i) 'recuperation Ordonnees pour chaque série
        Next i
   
        With Cht
        .SetData C.chDimCategories, C.chDataLiteral, Tableau
        .SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
         
         For i = 1 To 26
          If Plage(i) = 0 Then
        .SeriesCollection.Item(x).Points.Item(i - 1).Border.Color = "white"
         .SeriesCollection.Item(x).Points.Item(i - 1).Interior.Color = "white"
          End If
       Next i
        End With
        x = x + 1
        Erase Plage
 End If
Next j
End Sub

si quelqu un a une idée, une suggestion, notamment pour le parametrage du type scatterlineMarkers : Je suis preneur !
Merci d'avance et à plus !
 

Pièces jointes

Dernière modification par un modérateur:
Re : Configure "ScatterLineMarkers" dans Chartspace en VBA et se prend la tête...

Re !
j'ai modifié le coeur du message et le titre : ca s'eclaircit un peu..
Je coince sur le code...MERci pour votre aide !
 
Re : Configure "ScatterLineMarkers" dans Chartspace en VBA et se prend la tête...

Bonjour


Juste de passage pour une petite demande

Le rouge cela fait mal au yeux

Prends le temps de lire ma signature, stp.

Merci au cas ou après sa lecture tu éditerais ton message précédent.
 
Re : Configure "ScatterLineMarkers" dans Chartspace en VBA et se prend la tête...

Salut JM!
effectivement, ca fait moins mal aux yeux...et ca me donnera un peu plus de chance de trouver de l'aide!
 
- 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.

Discussions similaires

Réponses
5
Affichages
826
Réponses
4
Affichages
685
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
870
Réponses
3
Affichages
897
Retour