Vilain
XLDnaute Accro
Bonjour à tous,
J'ai déjà parlé de ce problème hier mais je reviens avec une approche différente, d'ou la création d'un nouveau sujet.
Voici une macro que j'ai moi-même créée pour l'affichage des étiquettes de données sur un nuage de points.
Elle est pratique car elle permet de sélectionner l'emplacement des infos (et ainsi de supprimer au préalable certains noms si on ne souhaite pas tous les voir apparaître).
Aujourd'hui, je souhaite la modifier pour ajouter automatiquement les étiquettes (et donc ne plus avoir à faire la sélection. Oui mais voila, entre temps il s'est passé plusieurs mois et mes faibles connaissances en VBA se sont évaporées et je ne parviens pas à la modifier.
Pour info, mes données sont en colonne AO et mes noms en colonne E.
Merci d'avance pour votre aide. Je suis à votre disposition si vous avez des questions.
A plus
J'ai déjà parlé de ce problème hier mais je reviens avec une approche différente, d'ou la création d'un nouveau sujet.
Voici une macro que j'ai moi-même créée pour l'affichage des étiquettes de données sur un nuage de points.
Elle est pratique car elle permet de sélectionner l'emplacement des infos (et ainsi de supprimer au préalable certains noms si on ne souhaite pas tous les voir apparaître).
Aujourd'hui, je souhaite la modifier pour ajouter automatiquement les étiquettes (et donc ne plus avoir à faire la sélection. Oui mais voila, entre temps il s'est passé plusieurs mois et mes faibles connaissances en VBA se sont évaporées et je ne parviens pas à la modifier.
Pour info, mes données sont en colonne AO et mes noms en colonne E.
Merci d'avance pour votre aide. Je suis à votre disposition si vous avez des questions.
A plus
Code:
Sub Etiquettes()
Dim Données As Range
Dim Noms As Range
Dim i
Set Données = Application.InputBox("Sélectionnez la plage de données", "SÉLECTION", Type:=8)
Set Noms = Application.InputBox("Sélectionnez la plage des noms", "SÉLECTION", Type:=8)
With ActiveChart.SeriesCollection(1)
.ApplyDataLabels Type:=xlDataLabelsShowLabel
For i = 1 To Données.Count
With .Points(i)
.DataLabel.Text = noms(i)
End With
Next i
End With
ActiveChart.Deselect
End Sub
Dernière édition: