Discussion :

[gipn14]

Bonjour à vous tous, j'espere que vous avez passé un bon reveillon ^^.

j'ai un petit soucis de listbox. je souhaiterais afficher dans le columnhead le titre de mes données qui sont définis avec le j (voir code), mais des que j'active je n'arrive pas à l'afficher dans le tableau.


voici le code :

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
 
Private Sub retour_Click()
    planing.Clear
    Unload Me
    degustation.Show
End Sub
Private Sub CheckBox1_Click()
' si elle a coché la case vrac, la case conditionnement ne peut pas etre coché
    If CheckBox1.Value = True Then
        CheckBox2.Value = False
        Worksheets("planification vrac").Select
        Call appel_vrac
    End If
End Sub
 
Private Sub CheckBox2_Click()
    ' si elle a coché la case conditionnement, la case vrac ne peut pas etre coché
    If CheckBox2.Value = True Then
        CheckBox1.Value = False
        Worksheets("planification conditionnement").Select
        Call appel_conditionnement
 
    End If
End Sub
 
Private Sub appel_conditionnement()
    Dim a As Object
    Set a = Worksheets("planification conditionnement") ' reduis le texte du dessous
 
        ' ajoute les données dans la liste box
    planing.Clear
    planing.ColumnCount = 6
    i = 4
    j = 0
    montant_ht = 0
    planing.AddItem
    planing.List(j, 0) = "Nom du produit"
    planing.List(j, 1) = "Catégorie"
    planing.List(j, 2) = "N°of/code"
    planing.List(j, 3) = "N°de lot/N° de caisse"
    planing.List(j, 4) = "Date de dégustation"
    planing.List(j, 5) = "date d'entrée"
 
 
    j = j + 1
 
    Do While a.Cells(i, 1) <> ""
        If a.Cells(i, 1) = Year(Now) And a.Cells(i, 2) = Month(Now) Then ' seules les données de l'année et du mois en cours sont affichées
 
            planing.AddItem
            planing.List(j, 0) = a.Cells(i, 5)
            planing.List(j, 1) = a.Cells(i, 6)
            planing.List(j, 2) = a.Cells(i, 4)
            planing.List(j, 3) = a.Cells(i, 8)
            planing.List(j, 4) = a.Cells(i, 3)
            planing.List(j, 5) = a.Cells(i, 9)
        End If
        j = j + 1
        i = i + 1
 
    Loop
End Sub
 
Private Sub appel_vrac()
    Dim b As Object
    Set b = Worksheets("planification vrac") ' reduis le texte du dessous
 
    ' ajoute les données dans la liste box
    planing.Clear
    planing.ColumnCount = 6
    i = 4
    j = 0
 
    planing.AddItem
    planing.List(j, 0) = "Nom du produit"
    planing.List(j, 1) = "Catégorie"
    planing.List(j, 2) = "N°of/code"
    planing.List(j, 3) = "N°de lot/N° de caisse"
    planing.List(j, 4) = "Date de dégustation"
    planing.List(j, 5) = "date d'entrée"
    j = j + 1
 
    Do While b.Cells(i, 1) <> ""
 
       If b.Cells(i, 1) = Year(Now()) And b.Cells(i, 2) = Month(Now()) Then ' seules les données de l'année et du mois en cours sont affichées
            planing.AddItem
            planing.List(j, 0) = b.Cells(i, 5)
            planing.List(j, 1) = b.Cells(i, 6)
            planing.List(j, 2) = b.Cells(i, 4)
            planing.List(j, 3) = b.Cells(i, 8)
            planing.List(j, 4) = b.Cells(i, 3)
            planing.List(j, 5) = b.Cells(i, 9)
       End If
        j = j + 1
        i = i + 1
    Loop
End Sub
 
 
Private Sub UserForm_Click()
 
End Sub

photo du tableau



Si vous voyez le problème.

Cordialement
Gipn