Etiquettes de données nuage de points VBA

[Vilain]

Bonjour à tous !

Je vous contacte concernant un "oubli" des développeurs excel. Je m'explique :
J ai un fichier avec une macro permettant de faire un nuage de points en fonction de l'âge en abscisse et du salaire en ordonnée. Je souhaiterai voir apparaître le nom des salariés (ma colonne B) plutôt que le salaire.
Je ne parviens pas à mettre en place le code me permettant de le faire.😕

D'avance merci pour votre aide 🙂

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

Exact, mais je ne parviens pas à l'adapter.
Pour accéder à tout mon code, dans VBA, sélectionne le userform1 puis double cliques sur le bouton valider. Tout mon code devrait apparaître.
Ta solution semble me convenir mais je n'arrive toujours pas à l'adapter à mon fichier.
J'ai de moins en moins de cheveux sur la tête...
Une fois ce problème réglé, je vais essayer d'en faire un tutoriel, car il semblerait que ce soit une demande récurrente mais il n'existe pas de solution "très clair".

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

oui, il vient de chez moi, mais je ne parviens pas à inclure ton code correctement.
Si tu veux voir tout mon code, sélectionne VBA, puis UserForm1 et double cliques sur le bouton valider.
Tout le code devrait s'afficher.

Edit : désolé pour le double post

 

[bond]

Re : Etiquettes de données nuage de points VBA

Ben oui, bien sur, quel idiot je fais... je suis passé trop vite sur l'uf.😱

Bon chez moi ça tourne, faut juste ajouter

ThisWorkbook.Sheets("Base_pour_graph").Activate

devant le code posté ici, au dessus de

Dim i&, plg As Range

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

Je ne comprend pas. As-tu la possibilité de faire la modif et de me renvoyer le fichier ?

 

[bond]

Re : Etiquettes de données nuage de points VBA

Le voici
NB : j'ai passé qqs formules en commentaires dans le chapitre ''calcul médiane quartile et moyenne', pour passer des erreurs.

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

Merci pour ton aide et ta patience. Ca marche enfin !!!
Mais c'est dur d'adapter pour avoir exactement ce que je veux. Je pense que je vais faire une macro à part avec un bouton sur le graphique seulement pour rajouter les noms. Ce devrait être plus simple...
J'ai aussi trouvé un tuto qui pourra aider les personnes avec le même type de problématique :
Ce lien n'existe plus

Encore merci

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

Décidément, je crois que c'est trop dur pour moi.
Ne parvenant pas à adapter parfaitement ton code à mon fichier, j'ai décidé de suivre la solution exposée plus haut.
Je voudrai ainsi que sur mon graphique, un bouton permette d'ajouter les étiquettes de données avec les noms. Après avoir essayé toutes les méthodes que j'ai pu trouver, je n'y arrive toujours pas. Voici mon fichier, la macro s'appelle MAJ_etiquettes.

Merci pour l'aide apportée une fois encore

 

[bond]

Re : Etiquettes de données nuage de points VBA

Ce code fonctionne chez moi (avec des noms en colonne D sur Base_pour_graph) :

Sub MAJ_etiquettes()
Sheets("Graphique").Select
Dim i&, plg As Range
Set plg = Sheets("Base_pour_graph").Range("e2:e11")
    With ActiveChart.SeriesCollection(1)
        .ApplyDataLabels Type:=xlDataLabelsShowLabel
        For i = 1 To plg.Count
          With .Points(i)
            .MarkerBackgroundColorIndex = 7 - 40 * (plg(i).Value = "M")
            .MarkerForegroundColorIndex = 7 - 40 * (plg(i).Value = "M")
            .DataLabel.Text = ThisWorkbook.Sheets("Base_pour_graph").Cells(i + 1, 4)
          End With
        Next i
   End With
ActiveChart.Deselect
End Sub

 

[Vilain]

Re : Etiquettes de données nuage de points VBA

Merci beaucoup pour ton aide et ton soutien.
Ce dernier essai a été le bon.
Je me repencherai la dessus quand je maitriserai mieux la vba.
Encore merci 🙂