Rechercher tous les graphiques sparkline d’une feuille

L’exemple de code suivant utilise une zone de liste sur un formulaire utilisateur pour afficher tous les groupes sparkline sur la feuille active. Lorsque vous cliquez sur l’un des groupes sparkline dans la zone de liste, le groupe sparkline est sélectionné dans la feuille.

Cet exemple nécessite un formulaire utilisateur nommé SparklineForm, une zone de liste sur le formulaire utilisateur nommée SparklineListBox et un bouton sur le formulaire utilisateur nommé CloseBtn.

Dans Visual Basic Editor, insérez un module et copiez et collez le code suivant. Ce code affiche le formulaire utilisateur.

Sub ShowUserForm()
    SparklineForm.Show
End Sub

Dans Visual Basic Editor, cliquez avec le bouton droit sur le formulaire SparklineForm , sélectionnez Afficher le code, puis copiez et collez le code suivant. La procédure UserForm_Activate itère dans tous les groupes sparkline de la feuille active et obtient les adresses des groupes sparkline à l’aide de la propriété Address de l’objet Range . L’adresse est ensuite ajoutée à la zone de liste. La procédure SparklineListBox_Click est appelée lorsque vous cliquez sur l’adresse d’un groupe sparkline dans la zone de liste. Cette procédure active le groupe sparkline sélectionné sur la feuille à l’aide de la méthode Activate de l’objet Range . La procédure CloseBtn_Click est appelée lorsque vous cliquez sur le bouton du formulaire utilisateur et ferme le formulaire utilisateur.

Private Sub UserForm_Activate()
    'The sparkline group
    Dim oSparkGroup As SparklineGroup
    
    'Loop through all the sparkline groups on the sheet
    For Each oSparkGroup In ActiveSheet.Range("A:XFD").SparklineGroups
        'For each sparkline group found, add the address to the listbox
        SparklineListBox.AddItem oSparkGroup.Location.Address(, , , True)
    Next oSparkGroup
End Sub

Private Sub SparklineListBox_Click()
    'Activate the selected range that has the sparklines
    Range(SparklineListBox.Value).Activate
End Sub

Private Sub CloseBtn_Click()
    'Close the userform
    Unload Me
End Sub

Voir aussi

Programmation d’objets SparklineGroupavec des graphiques sparkline dans Excel

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.