VBA: Affichage de données dans bulles d'un nuage de points

ted75

XLDnaute Nouveau
Bonjour,

j'ai besoin d'un coup de main.
Je suis novice en VBA et j'ai un petit problème avec mon code.

Mon code a pour but d'afficher les données de la plage "$B$2:$B$500" de ma feuille "RECAP" dans les bulles d'un nuage de points quand je clique sur le bouton "CommandButton2".
Celui-ci marche très bien cependant quand j'effectue un tri sur ma plage "$B$2:$B$500" il lui arrive d'afficher des données de cellules masquées dans les bulles de mon nuage de points malgré le .SpecialCells(xlCellTypeVisible) .

Voici le code en question:
Private Sub CommandButton2_Click()
' AFFICHER BULLES

On Error Resume Next

Dim Données As Range
Dim Noms As Range
Dim i

Set Données = Sheets("RECAP").Range("$A$2:$P$500").SpecialCells(xlCellTypeVisible)
Set Noms = Sheets("RECAP").Range(Sheets("$B$2:$B$500").SpecialCells(xlCellTypeVisible)
Sheets("Matrice").ChartObjects("Graphique").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



Je n'arrive pas à comprendre d'où vient l'erreur.
Merci pour votre aide :)
Ted
 
Dernière modification par un modérateur:

Discussions similaires

Réponses
2
Affichages
217
Réponses
8
Affichages
396
Réponses
6
Affichages
160

Statistiques des forums

Discussions
298 812
Messages
1 971 980
Membres
203 577
dernier inscrit
mathjuris