Boucle et listbox

Version imprimable

Boucle et listbox

bonjour les amis, je viens vous voir car j'ai un petit probleme dans mon code et je ne comprend pas trop pourquoi ca ne marche pas.

je souhaiterais que si l'année marque en cellule Cells(i, 1) = à celle en cours et que la cellule i,2 et celle du mois en cours alors ca affiche dans la liste box. mais la ca ne me fait rien, je ne comprend pas pourquoi ?
de plus, quand je laisse juste le code avec le "year(now), j'ai une erreur en dessous : impossible de définir la propriété list.index de table de propriété non valide
alors que si j'enleve la condition si, la boucle marche bien.
Code:

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 Private Sub appel_vrac() 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 Worksheets("planification vrac").Cells(i, 1) <> "" 'If Worksheets("planification vrac").Cells(i, 1) = Year(Now) Then 'And Worksheets("planification vrac").Cells(i, 2) = Month(Now) Then planing.AddItem planing.List(j, 0) = Worksheets("planification vrac").Cells(i, 5) planing.List(j, 1) = Worksheets("planification vrac").Cells(i, 6) planing.List(j, 2) = Worksheets("planification vrac").Cells(i, 4) planing.List(j, 3) = Worksheets("planification vrac").Cells(i, 8) planing.List(j, 4) = Worksheets("planification vrac").Cells(i, 3) planing.List(j, 5) = Worksheets("planification vrac").Cells(i, 9) 'End If j = j + 1 i = i + 1 Loop End Sub
Merci pour vos réponse
gipn

04/12/2014, 18h20
pgz

Bonsoir.

Pour ton test qui est inefficace, il faudrait voir ce qu'il y a dans les cellules. Year() et Month() renvoient des numériques. Si dans tes cellules tu as du texte, tu n'auras jamais l'égalité.
Pour ton deuxième point : quand tu actives le test (if ...) je pense que l'incrémentation de j devrait être dans la condition et pas après.

Cordialement,

PGZ
04/12/2014, 18h50
gipn14

bonsoir pgz,

merci pour ta réponse. pour etre plus précis, les données dans years et month sont en numérique : 2014 et 11.

pour l'incrémentation de j, tu parles du j=j+1 avant le end if ? si oui je viens de faire le changement et ca ne fonctionne toujours pas :/

cordialement
gipn
07/12/2014, 17h20
SfJ5Rpw8

Bonjour, gipn14

et quel est le code que tu utilise dans le seul code que tu montre il n'y as pas d'instruction Year active... ( la seule que l'on voit est en commentaire..)
07/12/2014, 18h41
gipn14

Bonsoir bbil,

je l'ai mis en commentaire afin de voir si mon code marchait sans, et oui. mais si je l'enleve le " ' " et pour le "end if" aussi, plus rien ne s'affiche :/.

si tu vois ou pourrait se situer le problème ?

cordialement
gipn
07/12/2014, 18h47
SfJ5Rpw8

Contrôle, si tu utilise bien la bonne cellule et son contenu en rajoutant un msbox par exemple :

Code:

msgbox "Cellule : " & Worksheets("planification vrac").Cells(i, 1).address & vbcrlf & "Contient : " & Worksheets("planification vrac").Cells(i, 1)
07/12/2014, 19h04
gipn14

Merci bbli pour ton retour,

le code que tu m'a fournis ne fonctionne pas : propriété ou méthode non géré par cet objet.

j'ai donc mis le if avec le "year now" et enlevé celui avec le "month now", le code fonctionne comme tu peux le voir dans la photo, seules les lignes avec l'année en cours sont affichées. cependant, des que je met "le mois en cours" plus rien ne s"affiche". peu etre que cela est du au "and" dans la condition ?

http://img15.hostingpics.net/pics/54...a768185435.png

cordialement
gipn
07/12/2014, 19h08
SfJ5Rpw8

Tu ne nous as toujours pas montré ton code complet sans commentaires parasite ....

désolé,
le voici :

Code:

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
 
Private Sub CommandButton1_Click()
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
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
Call appel_conditionnement
 
End If
End Sub
 
Private Sub appel_conditionnement()
 
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 Worksheets("planification conditionnement").Cells(i, 1) <> ""
    If Worksheets("planification conditionnement").Cells(i, 1) = Year(Now) And Worksheets("planification conditionnement").Cells(i, 2) = Month(Now) Then
 
    planing.AddItem
    planing.List(j, 0) = Worksheets("planification conditionnement").Cells(i, 5)
    planing.List(j, 1) = Worksheets("planification conditionnement").Cells(i, 6)
    planing.List(j, 2) = Worksheets("planification conditionnement").Cells(i, 4)
    planing.List(j, 3) = Worksheets("planification conditionnement").Cells(i, 8)
    planing.List(j, 4) = Worksheets("planification conditionnement").Cells(i, 3)
    planing.List(j, 5) = Worksheets("planification conditionnement").Cells(i, 9)
    End If
    j = j + 1
   i = i + 1
 
Loop
End Sub
 
 
Private Sub appel_vrac()
 
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 Worksheets("planification vrac").Cells(i, 1) <> ""
   If Worksheets("planification vrac").Cells(i, 1) = Year(Now) Then 'And Worksheets("planification vrac").Cells(i, 2) = Month(Now) Then
    planing.AddItem
    planing.List(j, 0) = Worksheets("planification vrac").Cells(i, 5)
    planing.List(j, 1) = Worksheets("planification vrac").Cells(i, 6)
    planing.List(j, 2) = Worksheets("planification vrac").Cells(i, 4)
    planing.List(j, 3) = Worksheets("planification vrac").Cells(i, 8)
    planing.List(j, 4) = Worksheets("planification vrac").Cells(i, 3)
    planing.List(j, 5) = Worksheets("planification vrac").Cells(i, 9)
     j = j + 1
    End If
    i = i + 1
 
Loop
 
End Sub
 
 
Private Sub UserForm_Click()
 
End Sub

07/12/2014, 19h23
SfJ5Rpw8

Et pour quoi tu nous montre une image de la feuille "planification vrac" alors que ton code traite la feuille "planification conditionnement" ?
07/12/2014, 19h35
gipn14

dans le code que j 'ai fournis il ya celui pour le "vrac" et pour "condtionnement" et se sont les memes.