Boucle et listbox

**gipn14** · 04/12/2014, 17h33

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 :

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
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

**pgz** · 04/12/2014, 18h20

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

**gipn14** · 04/12/2014, 18h50

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

**SfJ5Rpw8** · 07/12/2014, 17h20

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..)

**gipn14** · 07/12/2014, 18h41

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

**SfJ5Rpw8** · 07/12/2014, 18h47

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

Code :

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

msgbox "Cellule : " & Worksheets("planification vrac").Cells(i, 1).address & vbcrlf & "Contient : " & Worksheets("planification vrac").Cells(i, 1)

**gipn14** · 07/12/2014, 19h04

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 ?

cordialement
gipn

**SfJ5Rpw8** · 07/12/2014, 19h08

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

**gipn14** · 07/12/2014, 19h11

désolé,
le voici :

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
 
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

**SfJ5Rpw8** · 07/12/2014, 19h23

Et pour quoi tu nous montre une image de la feuille "planification vrac" alors que ton code traite la feuille "planification conditionnement" ?

**gipn14** · 07/12/2014, 19h35

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

Boucle et listbox

Macros et VBA Excel

Discussions similaires

Partager

Partager