VBA : Nuage de point - libellés & filtres
Résolu
cs_Ronan44
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Ronan44 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
cs_Ronan44 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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 !
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 !
A voir également:
- VBA : Nuage de point - libellés & filtres
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
2 réponses
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
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
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 :
--
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
--
