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

  • Initiateur de la discussion Initiateur de la discussion ted75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
672
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour