Discussion :

[mat-tech]

Bonjour a tous,
dans un programme, grace au forum j'ai une procedure de recherche pour le formatage de point sur une graphique nuage de point.
Ma question : comment faire pour ajouter a cote de ces points un petit text

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub pointss()
Dim Nbpoint As Integer, i As Integer, j As Integer
 
Nbpoint = ActiveChart.SeriesCollection(1).points.Count
For i = Nbpoint To 1 Step -1 ' les points a reculons
    With ActiveChart.SeriesCollection(1).points(i)
        x = ActiveChart.SeriesCollection(1).Values
        If x(i) Then
            .MarkerForegroundColorIndex = 6 '<-- couleur avant plan
            .MarkerBackgroundColorIndex = 6 '<-- couleur arrière plan
            .MarkerStyle = xlCircle '<-- style du point xlCircle, xlSquare, xlDiamond, xlTriangle
            .MarkerSize = 10 '<-- taille du point, 5 par défaut
 
            j = j + 1 ' incrémenter les points modifié
        End If
    End With
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
    True, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=False, _
    ShowPercentage:=True, ShowBubbleSize:=False
    If j = 3 Then Exit For 'arrater après 3 points
Next
End Sub

[ouskel'n'or]

Tu as une réponse de cet excellent DarkVader dans la FAQ VBA-Excel au chapitre "Comment ajouter du texte sur un graphique ?"
Bonne journée

[mat-tech]

Oui j'avai vu cette possibilité la, mais ca m'avait l'aire fort compliqué car je dois alors réccuperer la position de chaque point et les intégrer dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100#, 100#).Select 
Selection.Characters.Text = "Le Texte"

S'il n'existe pas de moyen plus simple, comment puis-je récuper la position des derniers points dans ma boucle ?

Merci

[ouskel'n'or]

Je crois me souvenir que SilkyRoad a mis ça dans la FAQ. Tu devrais chercher un peu pour nous éviter de le faire pour toi.
Je l'ai fait, il m'a fallu 15 secondes.
Regarde au chapitre "Comment afficher des labels personnalisés pour chaque point d'un graphique ?"

[mat-tech]

Ca aussi je l'avait vu dans les Faqs, mais j'ai fini par trouvé en posant la question dans un autre service de la socité.

Merci

PS : Dès que j'aurai plus de temps je vous posterer la methode, afin de l'introduir dans les Faqs