Discussion :

[magikmed]

Salut,
J’ai un soucis avec les listbox… Je souhaiterais faire en sorte qu’une action de sélection dans la listbox tracer une courbe et qu’une action de désélection la supprime. Seulement je ne sais pas différencier ces deux actions. De plus je voudrais avoir la possibilité de cumuler plusieurs courbes si plusieurs éléments sont sélectionnés.
En pièce jointe le fichier test sur lequel je travaille. En feuil1, le bouton remplissage permet de remplir les 2 listbox et le bouton SupprSer permet de remettre le graph à zéro. Un click sur la première listbox trace la courbe de la personne sélectionnée par rapport aux autres personnes de la liste. Pas de problèmes sur ce graph.
En sélectionnant un nom sur la listbox2, on ajoute un point correspondant à la personne sélectionnée. Mais le fait de cocher un deuxième nom de listbox2 remplace le point précédemment tracé (à cause du « Call SupprSer » dans le Private Sub ListBox2_Change() mais c’est le mieux que j’ai trouvé pour le moment) alors que je voudrais que le nouveau point s’ajoute à l’ancien. Et une désélection ne supprime pas le point tracé…
J’espère m’être fait comprendre.

En vous remerciant par avance

[Invité]

Regardes ça

Code Feuil1 :

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

1
2
3
4
5
Private Sub CommandButton2_Click()
 
Call SupprSer(True)
 
End Sub

Code Module1 :

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

1
2
3
4
5
6
7
8
Sub SupprSer(Optional ViderListe As Boolean)
Dim Sr As Series
If ViderListe = True Then Feuil1.ListBox1.Clear: Feuil1.ListBox2.Clear
With Feuil1.ChartObjects(1).Chart
   .ChartArea.ClearContents
End With
 
End Sub

[magikmed]

Merci beaucoup, je vais voir comment je peux adapter ça.