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