Etiquette et nuage

[elninogone]

Bonjour à tous
Je souhaite utiliser cette macro afin de mettre rapidement une tonne d'étiquettes sur mon graphique en nuage de points.
Le seul hic, c'est que vu la quantité de point que j'ai sur mon graphique, cela devient illisible.
Si j'utilise le filtre automatique, la macro ne fonctionne plus correctement.
N'existerai pas une autre macro ou l'étiquette n'apparait que lorsque que je pointe le point.

Merci par avance.

Cordialement.

 

[Pierrot93]

Re : Etiquette et nuage

Bonjour Elninogone,

modifies la fin de ta macro comme suit, j'ai rajouté un controle sur le fait que la cellule soit visible, attention tes variables ne sont pas définies, la variable "c" doit être de type "range" :

For Each c In plage
    If c.SpecialCells(xlCellTypeVisible) = True Then
        Set point = ActiveChart.SeriesCollection(1).Points(i)
        With point
            .ApplyDataLabels Type:=xlShowValue
            .DataLabel.Text = "=" & c.Address _
            (ReferenceStyle:=xlR1C1, external:=True)
        End With
        i = i + 1
    End If
Next

à tester...

bonne journée
@+