Discussion :

[Sécateur]

Bonjour,

Voici donc ma question :

Sur une feuille graphique, je souhaite, en cliquant sur des éléments d'une ListBox à sélection multiple, faire apparaître ou disparaître les courbes sélectionnées. Je l'ai déjà fait avec un USF mais je voudrais en fait que l'utilisateur puisse le faire directement sans passer par l'ouverture de cette USF. C'est sans doute possible avec un TCD mais je préfère le gérer moi-même.

J'ai voulu insérer une ListBox à partir de la Boîte à outils Contrôles mais les contrôles sont grisés. On ne peut donc pas utiliser de contrôles ActiveX dans une feuille graphique.

Je me suis donc rabattu sur la ListBox de Formulaire. Mais là, je coince : comment faire pour récupérer les éléments sélectionnés et les traiter dans une macro ?

Merci d'avance pour votre aide.

[patricktoulon]

bonjour secateur


tu devrais regarder dans les contributions mon sujet sur le graphique instantané au clic droit sur selection ca pourais t'apporter une piste
un peu différente mais interréssante


au plaisir

[SfJ5Rpw8]

voilà un code avec un listbox de formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub MajListe()
 Dim l As ListBox
 Set l = Graph1.ListBoxes(1)
 Dim s As Series
 l.RemoveAllItems
 'Ajout de donnée dans le list box
 For Each s In Graph1.SeriesCollection
  l.AddItem s.Name
 Next
End Sub
 
Sub MiseAjourMArques()
  Dim l As ListBox
  Dim i As Integer
  Dim s As Series
 Set l = Graph1.ListBoxes(1)
 For i = 1 To l.ListCount
 
   Set s = Graph1.SeriesCollection(i)
   If l.Selected(i) Then 'Si sélectionné
     s.Border.LineStyle = xlAutomatic
     s.MarkerStyle = xlAutomatic
    Else
     s.Border.LineStyle = xlNone
     s.MarkerStyle = xlNone
   End If
 Next
End Sub