Discussion :

[mimicor15]

Bonsoir

je souhaite modifier les items d'un tcd via une listbox en multiselection dans un userform pour afficher sur mon graphique une ou plusieurs courbes. J'ai passé 2 jours à fouiller sur le forum et le net, testé un tas de code, mais rien ni fait.
Toutefois j'ai trouvé sur un des post une solution proposée qui avait résolu le problème, que j'ai essayé d'adapté, mais chez moi ça ne fonctionne pas.




Vu mon haut niveau de compétence, je ne vois vraiment pas ce qu'il faut que je change,
Néanmoins j'ai réussi à bricolé quelques trucs grâce au forum, notamment importer des graphiques et les manipuler depuis mon userform, qui va bien me faciliter la tache au boulot. Je mettrai le fichier en Pj si çà peut aider quelqu'un comme moi.
Concernant mon problème ci-joint le code que j'ai adapté: La propriété de la listbox est bien en multiselect. La ligne en rouge pose problème
Seul le bouton courbe Nb de jours est censé fonctionner avec la listbox

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Dim CurrentChart, Fname, agents, choixAnnée, i 'déclaration des variables CurrentChart et  Fname
Private Sub UserForm_Initialize()                                              'au demarage le formulaire
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Set choixAnnée = Sheets("Agents")                                                               ' variable enleve la croix rouge (fonction et décalaration dans le  module 1)
Set agents = Sheets("Agents")                                 ' variable Agents =
Me.choix.List = Range(agents.[a2], agents.[a65000].End(xlUp)).Value                                       'remplir liste des séquences
Me.Année.List = Range(choixAnnée.[d2], choixAnnée.[d65000].End(xlUp)).Value
Me.ListBox1.List = Range(choixAnnée.[d2], choixAnnée.[d65000].End(xlUp)).Value


End Sub



Private Sub ListBox1_Change()
  Static nb As Integer
  Dim choisi As Integer, max As Integer
  max = 3 ' tu mets ici la valeur que tu veux (nombre maxi de sélmections autorisées)
  choisi = ListBox1.ListIndex
  If ListBox1.Selected(choisi) = False Then nb = nb - 1: Exit Sub
  If nb >= max Then ListBox1.Selected(choisi) = False
  nb = nb + 1
  If nb > 0 Then
  CommandButton8 = True
  Else
  CommandButton8 = False
  End If
End Sub


Private Sub CommandButton8_Click()                                             'courbe nb  jours
Call Compte_jours                                                              ' applique  la procédure (compte jours décalaration dans lemodule 2)


'Sheets("courbe jours").Select                                                 ' active la feuille contenant le graphique la feuille s'appelle courbe jours
ActiveWorkbook.RefreshAll                                                      ' raffraichir les données du tableau croisé dynamique
Dim x As Integer
 Dim i As Integer
' on place tous à true
With Sheets("courbe jours").PivotTables("Tableau croisé dynamique1").PivotFields( _
        "année")


   For i = 0 To ListBox1.ListCount - 1
       If ListBox1.List(i) <> "" Then
              PivotItems(ListBox1.List(i)).Visible = True
        End If
    Next i
For i = 0 To ListBox1.ListCount - 1
 If ListBox1.List(i) <> "" Then
        If ListBox1.Selected(i) = False Then
             .PivotItems(ListBox1.List(i)).Visible = False
        Else
             .PivotItems(ListBox1.List(i)).Visible = True
        End If
  End If
 Next i


Application.ScreenUpdating = True 'active la mise à jour de l'écran
Set CurrentChart = Sheets("courbe jours").ChartObjects(1).Chart                ' référencé l'objet CurrentChart, là dans l'exemple, c'est le 1er graphique "ChartObjects(1)"
Sheets("courbe jours").ChartObjects("Graphique 1").Activate                    ' active le graphique qui s'appelle "Graphique 1"
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"                                     ' attribution d'un nom pour l'export du graphique, dans le dossier courant du fichier
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
UserForm1.Image1.Picture = LoadPicture(Fname)                                  ' ensuite j'ai créé un UserForm (userform6) avec juste une image (vierge, qui s'appelle Image1), qui charge donc l'image venant d'être enregistré.
 
End With


End Sub

Merci encore pour votre aide

[78chris]

Bonjour

Déjà il manque un point au début de la ligne

[mimicor15]

merci, effectivement, j'avais pas vu, j'ai corrigé mais ça ne change rien, et de plus je viens de voir que lorsque je veux sélectionnet une année dans la listbox ça déclenche la procédure sans même que je touche au bouton. Curieux comme comportement??

[78chris]

Re

Ton fichier ne contient pas cette procédure a priori...

[mimicor15]

il me semble que ça doit être ça dont tu parles, pourtant la référence VBA "scripting runtime" est bien cochée.
Je n'ai fait que reproduire un code, possible qu'il me manque quelque chose, mais je pas le niveau nécessaire pour corrigé, je bricole c'est tout.
C'est un métier, mais pas le mien, c'est pour ça que je demande l'aide.

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
Private Sub UserForm_Initialize()
Dim MonDico As Object, Cellule As Range
 
'Application.ScreenUpdating = False 'désactive la mise à jour de l'écranMsgBox ListBox1.List
 
'*** on note les analytiques présents ds feuil1
  Set MonDico = CreateObject("Scripting.Dictionary")
   For Each Cellule In Sheets("Agents").Range("d2:d10")
      If Not MonDico.Exists(Cellule.Value) Then MonDico.Add Cellule.Value, Cellule.Value
      Next Cellule
        ListBox1.List = MonDico.Items
        MonDico.RemoveAll
 
 
 
 
'au demarage le formulaire
'Me.ListBox1.MultiSelect = fmMultiSelectMulti
Set choixAnnée = Sheets("Agents")                                                               ' variable enleve la croix rouge (fonction et décalaration dans le  module 1)
Set agents = Sheets("Agents")                                 ' variable Agents =
Me.choix.List = Range(agents.[a2], agents.[a65000].End(xlUp)).Value                                       'remplir liste des séquences
Me.Année.List = Range(choixAnnée.[d2], choixAnnée.[d65000].End(xlUp)).Value
'Me.ListBox1.List = Range(choixAnnée.[d2], choixAnnée.[d65000].End(xlUp)).Value
 
End Sub

[78chris]

Bonjour

Utilise l'évènement Exit et non Change

L'année est numérique dans la Box mais Texte dans le TCD.
Convertis avec par exemple

Code :

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

              .PivotItems(ListBox1.List(i) & "").Visible = True

attention aussi à 2020 qui n'existe pas dans le TCD

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
if selected=false then
Visible =false
Else 
Visible =true
End if

Quelle drôle d'idée!
visible=selected