VBA : Nuage de point - libellés & filtres Résolu/Fermé

Question

Bonjour, 

Je sollicite votre aide car je suis bloqué sur un problème de macro.
Je souhaite faire un graphique en nuage de points avec 3 colonnes de données : une pour l'abscisse, une pour l'ordonnée, et une pour les légendes des points.

Excel ne laissant pas la possibilité de la troisième colonne en légende, j'ai trouvé une solution sur les forums de commentcamarche, une macro qui ajoute les légendes sur les points.

Le problème c'est que je souhaite ajouter un filtre.
En effet mon graphique de base comporte 200 points et avec les libellés, on ne voit plus rien...

J'ajoute donc une 4ème colonne et un filtre à ma base, mais là, la macro ne suit plus : elle garde les légendes des premières lignes et les applique à celles que le filtre sélectionne.

J'ai joint un excel pour plus de clarté :
http://we.tl/1KjL2pLQua

Je vous remercierais profondément si vous aviez une réponse sur ce sujet !

tontong · Answer

Bonjour,
Avec la macro complémentaire xy chart labeller et un filtre automatique il n'ya apparement pas de problème.
http://appspro.com/Utilities/ChartLabeler.htm
Je n'ai pas vérifié avec la macro proposée par Jacques Boisgontier:
http://boisgontierjacques.free.fr/pages_site/graphiques.htm#EtiqNuage

cs_Ronan44 · Answer

Merci pour ta réponse tontong.
J'avais pensé à xy chart labeller mais malheureusement le problème est sur mon pc pro... sur lequel je ne peux pas installer de programmes évidemment.
Par contre je ne connaissais pas la page internet de J.Boisgontier et je ne vais pas m'en priver, merci pour ce filon !

En attendant on m'a donné une macro sur un autre forum  qui fonctionne ! C'était la commande "SpecialCells(xlCellTypeVisible)" qui me manquait.

Pour ceux qui cherchent :

Dim Données As Range
Dim Noms As Range
Dim i

Set Données = Sheets("Paramètres Graph").Range("$D$2:$E$203").SpecialCells(xlCellTypeVisible)
    Set Noms = Sheets("Paramètres Graph").Range("$C$2:$C$203").SpecialCells(xlCellTypeVisible)
    Sheets("Graph").ChartObjects("Graphique 1").Activate
    With ActiveChart.SeriesCollection(1)
        .ApplyDataLabels Type:=xlDataLabelsShowLabel
        For i = 1 To .Points.Count
            With .Points(i)
                .DataLabel.Text = Noms(i)
            End With
        Next i
    End With

End Sub
--

VBA : Nuage de point - libellés & filtres

2 réponses

Discussions similaires