Boucle For avec Listview

Version imprimable

Bonjour à tous,

Après avoir passé plusieurs jours sur une boucle que je ne comprends et ayant lu et relu le forum et le didacticel de Silkyroad
https://silkyroad.developpez.com/VBA/ListView/
je reste perplexe sur une boucle For Each pour alimenter une listeview.
Le tableau source est un tableau trés simple (x lignes et 5 colonnes) filtré dont des lignes sont masqués à partir d'un filtre.

Pour résumer, la boucle For Each ci dessous s'execute autant de fois qu'il y'a de ligne dans le range multiplié par le nombre de ligne non masquée.
Par exemple :
J'ai 3 lignes non masqués dans mon tableau de données
Mon range affiche une plage de 2 lignes.
Au lieu de faire apparaitre 2 lignes dans ma listview, j'ai 2x3=6 lignes qui apparaissent.
Idem si range = 3 et 3 lignes non masquée, j'ai 3x3=9 lignes qui apparaissent.

Je ne comprends pas pourquoi j'ai ce doublement ou triplement de ligne.

Mes cheveux et moi même vous remercions beaucoup
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 Private Sub maj_liste_view1() Dim num_ligne_cell_haute As Integer Dim num_ligne_cell_basse As Integer Dim cell As Range 'J'active ma feuille Worksheets("Feuille1").Activate ' Je récupère les données des cellules num_ligne_cell_haute = Worksheets("Feuille2").Range("A1").Value num_ligne_cell_basse = Worksheets("Feuille2").Range("A1").Value ' Si il n'y a pas de da alors je lance la macro suivante sinon je poursuis la macro If num_ligne_cell_basse < 150 Then Exit Sub Else ' Je cree les entête de la listview With listeview1 With .ColumnHeaders .Clear .Add , , "Num da", 60 .Add , , "Date émission", 35 .Add , , "Commentaire", 35 End With 'C'est ici que ça tourne autant de fois que j'ai de ligne dans mon range. For Each cell In Worksheets("Feuille1").Range("A" & num_ligne_cell_haute & ":A" & num_ligne_cell_basse) If cell.EntireRow.Hidden = False Then .ListItems.Add , , cell.Offset(0, 1) .ListItems(i).ListSubItems.Add , , cell.Offset(0, 2) .ListItems(i).ListSubItems.Add , , cell.Offset(0, 3) End If Next End With ' fin de if pour la condition num_ligne_cell_basse = 4 End If 'Spécifie l'affichage en mode "Détails" liste_da.View = lvwReport End Sub

13/05/2020, 08h09
Menhir

Citation:

Envoyé par Mooohfr

J'ai 3 lignes non masqués dans mon tableau de données
Mon range affiche une plage de 2 lignes.
Au lieu de faire apparaitre 2 lignes dans ma listview, j'ai 2x3=6 lignes qui apparaissent.
Idem si range = 3 et 3 lignes non masquée, j'ai 3x3=9 lignes qui apparaissent.

Je ne comprends pas pourquoi j'ai ce doublement ou triplement de ligne.

A mon avis, si tu mets 5 lignes non masquées, tu auras 15 lignes en résultat.

Je ne suis pas spécialiste des contrôles de UserForm mais avoir 3 .ListItems.Add dans la boucle, ça doit avoir une relation.

Mets un stop dans ton code au niveau du For Each et fais tourner le reste en pas-à-pas, ça devrait confirmer ça.
13/05/2020, 08h39
Patrice740

Bonjour,

Ce code ne peut pas donner le résultat que tu annonces : il n'est pas fonctionnel !
Quand tu publies une code, fais un copier / coller qu'on ait le code exact !

1. Quand on met Option Explicit en début de module, on n’oublie pas certaines variables ....
2. num_ligne_cell_basse et num_ligne_cell_haute ont la même valeur.

Modification sur variable, même problème

Bonjour,

Merci à tous les deux.
L'exemple (mal fait finalement) désolé que j'ai donné était simplifié du code initial pour éviter d'avoir un gros bloc et faire peur :(
1) oui c'est vrai (je vais le faire)
2) c'est l'erreur de la sub simplifié oui.

Ci dessous le vrai code complet qui en fait est fait pour un userform qui contient 3 listview (maj_liste dero + maj_liste_da + maj_liste_pv + maj_liste_enq_amont) mis à jour en "serie" l'un après l'autre donc.
C'est la 2ème et 3ème list view qui fait une double boucle sure "For Each cell In Worksheets("da sur encours_2").Range....

Quand je change l'ordre de maj des listview et bien le problème se déplace.

Merci à vous,

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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
 
 
Private Sub Userform_Initialize()
 
 
'--------------------------------------
' MISE A JOUR LISTE VIEW DERO
'--------------------------------------
 
    Dim num_1ereligne_filtree_der As Integer
    Dim num_derniere_ligne_der As Integer
    Dim ligne_der As Integer
    Dim cell As Range
    Dim i As Integer
    liste_dero.FullRowSelect = True
    liste_dero.Gridlines = False
    lbl_prev_solde_be.Visible = False
    txt_der_pos.Visible = False
    txt_enga_be.Visible = False
    liste_dero.LabelEdit = 1
 
'Je récupère les valeurs des variables et j'active la feuille des DERO sur encours_1
    Worksheets("Dero sur encours_1").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_der = 2
    Do While Range("_FilterDataBase").Rows(ligne_der).Hidden
    ligne_der = ligne_der + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_der, 1).Select
    num_1ereligne_filtree_der = ActiveCell.Row
    MsgBox num_1ereligne_filtree_der
 
 ' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("Dero sur encours_1").Activate
    num_derniere_ligne_der = Range("A65536").End(xlUp).Row
    MsgBox num_1ereligne_filtree_der
 
' Si il n'y a pas de dero alors je lance la macro suivante sinon je poursuis la macro
    If num_derniere_ligne_der = 5 Then 'si le n° de la dernière ligne = n° de la ligne de l'entête de colonne alors pas de déro
    maj_liste_da
    Else
' Je rempli les en-têtes
    With liste_dero
        With .ColumnHeaders
            .Clear
            .Add , , "Num déro", 60
            .Add , , "Pos", 35
            .Add , , "Type", 35
            .Add , , "Emission le", 60
            .Add , , "Signature BE le", 70
            .Add , , "Prev Signature BE", 70
            .Add , , "Signature DIN le", 70
            .Add , , "Signature Q le", 70
            .Add , , "Commentaire Responsable Technique ", 120
            .Add , , "Commentaire Emetteur", 120
            .Add , , "DER & POS", 35
        End With
 
'Les autres lignes contiennent les données
    For Each cell In Worksheets("Dero sur encours_1").Range("A" & num_1ereligne_filtree_der & ":A" & num_derniere_ligne_der)
            If cell.EntireRow.Hidden = False Then
                i = i + 1
            .ListItems.Add , , cell.Offset(0, 3)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 4)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 6)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 7)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 8)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 9)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 10)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 11)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 13)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 14)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 15)
            End If
        Next
    End With
 
'"End if" de la verif si pas de dero
    End If
 
'Spécifie l'affichage en mode "Détails"
    liste_dero.View = lvwReport
 
' je passe à la maj de la list view suivante
maj_liste_da
 
End Sub
 
Sub maj_liste_da()
'--------------------------------------
' MISE A JOUR LISTE VIEW DA
'--------------------------------------
    Dim num_1ereligne_filtree_da As Integer
    Dim num_derniere_ligne_da As Integer
    Dim ligne_da As Integer
    Dim i As Integer
    Dim cell As Range
    liste_da.FullRowSelect = True
    liste_da.Gridlines = False
 
'Je récupère les valeurs des variables et j'active la feuille des da sur encours_1
    Worksheets("da sur encours_2").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_da = 2
    Do While Range("_FilterDataBase").Rows(ligne_da).Hidden
    ligne_da = ligne_da + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_da, 1).Select
    num_1ereligne_filtree_da = ActiveCell.Row
    MsgBox num_1ereligne_filtree_da
 
 ' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("da sur encours_2").Activate
    num_derniere_ligne_da = Range("A65536").End(xlUp).Row
    MsgBox num_derniere_ligne_da
 
' Si il n'y a pas de da alors je lance la macro suivante sinon je poursuis la macro
    If num_derniere_ligne_da = 4 Then 'si le n° de la dernière ligne = n° de la ligne de l'entête de colonne alors pas de da
    maj_liste_pv
    Else
' Je rempli les en-têtes
    With liste_da
        With .ColumnHeaders
            .Clear
            .Add , , "DA", 60
            .Add , , "Date émission", 35
            .Add , , "Commentaire", 35
        End With
 
'Les autres lignes contiennent les données
    For Each cell In Worksheets("da sur encours_2").Range("A" & num_1ereligne_filtree_da & ":A" & num_derniere_ligne_da)
            If cell.EntireRow.Hidden = False Then
            i = i + 1
            .ListItems.Add , , cell.Offset(0, 3)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 4)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 6)
            End If
        Next
    End With
 
'"End if" de la verif si pas de da
    End If
 
'Spécifie l'affichage en mode "Détails"
    liste_da.View = lvwReport
 
' je passe à la maj de la list view suivante
maj_liste_pv
 
End Sub
 
Sub maj_liste_pv()
'--------------------------------------
' MISE A JOUR LISTE VIEW PV
'--------------------------------------
 
    Dim num_1ereligne_filtree_pv As Integer
    Dim num_derniere_ligne_pv As Integer
    Dim ligne_pv As Integer
    Dim cell As Range
    Dim i As Integer
    liste_pv.FullRowSelect = False
    liste_pv.Gridlines = False
 
'Je récupère les valeurs des variables et j'active la feuille des PV sur encours_3
    Worksheets("PV sur encours_3").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_pv = 2
    Do While Range("_FilterDataBase").Rows(ligne_pv).Hidden
    ligne_pv = ligne_pv + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_pv, 1).Select
    num_1ereligne_filtree_pv = ActiveCell.Row
 
 
' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("PV sur encours_3").Activate
    num_derniere_ligne_pv = Range("A65536").End(xlUp).Row
 
' Si il n'y a pas de pv alors je reviens sur la feuille initiale sinon je poursuis la macro
    If num_derniere_ligne_pv = 4 Then
    maj_liste_enq_amont
    Else
' Je rempli les en-têtes
    With liste_pv
        With .ColumnHeaders
            .Clear
            .Add , , "Num PV", 60
            .Add , , "Création le", 60
            .Add , , "Description anomalie", 400
        End With
 
'Les autres lignes contiennent les données
        For Each cell In Worksheets("Pv sur encours_3").Range("A" & num_1ereligne_filtree_pv & ":A" & num_derniere_ligne_pv)
            If cell.EntireRow.Hidden = False Then
            MsgBox cell.Address
                 i = i + 1
            .ListItems.Add , , cell.Offset(0, 3)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 4)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 6)
            End If
        Next
    End With
 
'"End if" de la verif si pas de pv
End If
 
 'Spécifie l'affichage en mode "Détails"
    liste_pv.View = lvwReport
 
' je passe à la maj de la list view suivante
maj_liste_enq_amont
 
End Sub
 
Sub maj_liste_enq_amont()
 
'--------------------------------------
' MISE A JOUR LISTE VIEW ENQ AMONT
'--------------------------------------
   Dim num_1ereligne_filtree_enq_amont As Integer
    Dim num_derniere_ligne_enq_amont As Integer
    Dim ligne_enq_amont As Integer
    Dim cell As Range
    Dim i As Integer
    liste_enq_amont.FullRowSelect = False
    liste_enq_amont.Gridlines = False
 
'Je récupère les valeurs des variables et j'active la feuille des ENQ AMONT
    Worksheets("ENQ AMONT").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_enq_amont = 2
    Do While Range("_FilterDataBase").Rows(ligne_enq_amont).Hidden
    ligne_enq_amont = ligne_enq_amont + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_enq_amont, 1).Select
    num_1ereligne_filtree_enq_amont = ActiveCell.Row
 
 
' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("ENQ AMONT").Activate
    num_derniere_ligne_enq_amont = Range("A65536").End(xlUp).Row
 
' Si il n'y a pas de pv alors je reviens sur la feuille initiale sinon je poursuis la macro
    If num_derniere_ligne_enq_amont = 1 Then
      Worksheets(feuille_courante).Select
    Else
 
' Je rempli les en-têtes
    With liste_enq_amont
        With .ColumnHeaders
            .Clear
            .Add , , "Num Enq Amont", 60
            .Add , , "Création le", 60
            .Add , , "Description anomalie", 400
        End With
 
'Les autres lignes contiennent les données
        For Each cell In Worksheets("ENQ AMONT").Range("A" & num_1ereligne_filtree_enq_amont & ":A" & num_derniere_ligne_enq_amont)
            If cell.EntireRow.Hidden = False Then
            MsgBox cell.Address
                 i = i + 1
            .ListItems.Add , , cell.Offset(0, 0)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 1)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 8)
            End If
        Next
    End With
 
'"End if" de la verif si pas de pv
    End If
 
 'Spécifie l'affichage en mode "Détails"
    liste_enq_amont.View = lvwReport
 
' je revient à ma feuille initiale (variable déclaré en public)
Worksheets(feuille_courante).Select
 
  End Sub

Bonjour,

Commences par adopter une architecture mieux structurée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Private Sub Userform_Initialize()
  Call maj_liste_dero
  Call maj_liste_da
  Call maj_liste_pv
  Call maj_liste_enq_amont
End Sub
Private Sub maj_liste_dero()
  '...
End Sub
Private Sub maj_liste_da()
  '...
End Sub
Private Sub maj_liste_pv()
  '...
End Sub
Private Sub maj_liste_enq_amont()
  '...
End Sub

13/05/2020, 12h59
Mooohfr

1 pièce(s) jointe(s)

Merci Patrice,

Je viens de le faire et toujours le même soucis.

J'ai la boucle de création de la première colonne qui tourne 2x au lieu de 1x.
Quand je fais un pas à pas j'ai effectivement la boucle qui tourne 2x au lieu d'une fois et celà quelque soit le nombre de ligne visible dans mon tableau de donnée.

Voir la capture.
Pièce jointe 565218

Le pire c'est que dans mon tableau de donnée si je filtre sur une autre donnée et bien la boucle ne tourne qu'une seule fois.
C'est comme si Excel disait "toi chiffre aléatoire" je ne t'aime pas alors je te traite différemment.

Cela m'échappe vraiment.

Merci,
13/05/2020, 18h12
Patrice740

Citation:

Envoyé par Mooohfr

Je viens de le faire et toujours le même soucis.

Où est le nouveau code ?

Re bonjour,

Ci dessous le code modifié :calim2:
Merci beaucoup

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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
 
Option Explicit
 
Private Sub UserForm_Initialize()
 
DoEvents
Call maj_liste_dero
Call maj_liste_da
Call maj_liste_pv
Call maj_liste_enq_amont
 
' je reviens à ma feuille initiale (variable déclaré en public)
Worksheets(feuille_courante).Select
 
End Sub
 
Private Sub maj_liste_dero()
 
'--------------------------------------
' MISE A JOUR LISTE VIEW DERO
'--------------------------------------
 
    Dim num_1ereligne_filtree_der As Integer
    Dim num_derniere_ligne_der As Integer
    Dim ligne_der As Integer
    Dim cell As Range
    Dim i As Integer
    liste_dero.FullRowSelect = True
    liste_dero.Gridlines = False
    lbl_prev_solde_be.Visible = False
    txt_der_pos.Visible = False
    txt_enga_be.Visible = False
    liste_dero.LabelEdit = 1
 
'Je récupère les valeurs des variables et j'active la feuille des DERO sur encours_1
    Worksheets("Dero sur encours_1").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_der = 2
    Do While Range("_FilterDataBase").Rows(ligne_der).Hidden
    ligne_der = ligne_der + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_der, 1).Select
    num_1ereligne_filtree_der = ActiveCell.Row
 
 
 ' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("Dero sur encours_1").Activate
    num_derniere_ligne_der = Range("A65536").End(xlUp).Row
 
 
' Si il n'y a pas de dero alors je lance la macro suivante sinon je poursuis la macro
    If num_derniere_ligne_der = 5 Then 'si le n° de la dernière ligne = n° de la ligne de l'entête de colonne alors pas de déro
    maj_liste_da
    Else
' Je rempli les en-têtes
    With liste_dero
        With .ColumnHeaders
            .Clear
            .Add , , "Num déro", 60
            .Add , , "Pos", 35
            .Add , , "Type", 35
            .Add , , "Emission le", 60
            .Add , , "Signature BE le", 70
            .Add , , "Prev Signature BE", 70
            .Add , , "Signature DIN le", 70
            .Add , , "Signature Q le", 70
            .Add , , "Commentaire Responsable Technique ", 120
            .Add , , "Commentaire Emetteur", 120
            .Add , , "DER & POS", 35
        End With
 
'Les autres lignes contiennent les données
    For Each cell In Worksheets("Dero sur encours_1").Range("A" & num_1ereligne_filtree_der & ":A" & num_derniere_ligne_der)
            If cell.EntireRow.Hidden = False Then
                i = i + 1
            .ListItems.Add , , cell.Offset(0, 3)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 4)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 6)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 7)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 8)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 9)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 10)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 11)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 13)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 14)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 15)
            End If
        Next
    End With
 
'"End if" de la verif si pas de dero
    End If
 
'Spécifie l'affichage en mode "Détails"
    liste_dero.View = lvwReport
 
End Sub
 
Sub maj_liste_da()
'--------------------------------------
' MISE A JOUR LISTE VIEW DA
'--------------------------------------
    Dim num_1ereligne_filtree_da As Integer
    Dim num_derniere_ligne_da As Integer
    Dim ligne_da As Integer
    Dim i As Integer
    Dim cell As Range
    liste_da.FullRowSelect = True
    liste_da.Gridlines = False
    Dim Nbr_visible As Integer
 
'Je récupère les valeurs des variables et j'active la feuille des da sur encours_1
    Worksheets("da sur encours_2").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_da = 2
    Do While Range("_FilterDataBase").Rows(ligne_da).Hidden
    ligne_da = ligne_da + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_da, 1).Select
    num_1ereligne_filtree_da = ActiveCell.Row
 
 ' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("da sur encours_2").Activate
    num_derniere_ligne_da = Range("A65536").End(xlUp).Row
 
' Si il n'y a pas de da alors je lance la macro suivante sinon je poursuis la macro
    If num_derniere_ligne_da = 4 Then 'si le n° de la dernière ligne = n° de la ligne de l'entête de colonne alors pas de da
    maj_liste_pv
    Else
 
' Je rempli les en-têtes
    With liste_da
        With .ColumnHeaders
            .Clear
            .Add , , "DA", 70
            .Add , , "Date émission", 70
            .Add , , "Commentaire", 500
        End With
 
        'Nbr_visible = Worksheets("da sur encours_2").Range("A" & num_1ereligne_filtree_da & ":A" & num_derniere_ligne_da).Rows.Count
        'MsgBox "Nb de ligne visible" & Nbr_visible
 
        'For i = 1 To 2
         ''   If cell.EntireRow.Hidden = False Then
         '       .ListItems.Add , , cell.Offset(0, 3)
          ' End If
        'Next i
 
'Les autres lignes contiennent les données
    For Each cell In Worksheets("da sur encours_2").Range("A" & num_1ereligne_filtree_da & ":A" & num_derniere_ligne_da)
            If cell.EntireRow.Hidden = False Then
            i = i + 1
            .ListItems.Add , , cell.Offset(0, 3)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 4)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 6)
            End If
        Next cell
    End With
 
'"End if" de la verif si pas de da
End If
 
'Spécifie l'affichage en mode "Détails"
    liste_da.View = lvwReport
 
End Sub
 
Sub maj_liste_pv()
'--------------------------------------
' MISE A JOUR LISTE VIEW PV
'--------------------------------------
 
    Dim num_1ereligne_filtree_pv As Integer
    Dim num_derniere_ligne_pv As Integer
    Dim ligne_pv As Integer
    Dim cell As Range
    Dim i As Integer
    liste_pv.FullRowSelect = False
    liste_pv.Gridlines = False
 
'Je récupère les valeurs des variables et j'active la feuille des PV sur encours_3
    Worksheets("PV sur encours_3").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_pv = 2
    Do While Range("_FilterDataBase").Rows(ligne_pv).Hidden
    ligne_pv = ligne_pv + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_pv, 1).Select
    num_1ereligne_filtree_pv = ActiveCell.Row
 
 
' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("PV sur encours_3").Activate
    num_derniere_ligne_pv = Range("A65536").End(xlUp).Row
 
' Si il n'y a pas de pv alors je reviens sur la feuille initiale sinon je poursuis la macro
    If num_derniere_ligne_pv = 4 Then
    maj_liste_enq_amont
    Else
' Je rempli les en-têtes
    With liste_pv
        With .ColumnHeaders
            .Clear
            .Add , , "Num PV", 60
            .Add , , "Création le", 60
            .Add , , "Description anomalie", 400
        End With
 
 
'Les autres lignes contiennent les données
        For Each cell In Worksheets("Pv sur encours_3").Range("A" & num_1ereligne_filtree_pv & ":A" & num_derniere_ligne_pv)
            If cell.EntireRow.Hidden = False Then
                 i = i + 1
            .ListItems.Add , , cell.Offset(0, 3)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 4)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 6)
            End If
        Next
    End With
 
'"End if" de la verif si pas de pv
End If
 
 'Spécifie l'affichage en mode "Détails"
    liste_pv.View = lvwReport
 
End Sub
 
Sub maj_liste_enq_amont()
 
'--------------------------------------
' MISE A JOUR LISTE VIEW ENQ AMONT
'--------------------------------------
   Dim num_1ereligne_filtree_enq_amont As Integer
    Dim num_derniere_ligne_enq_amont As Integer
    Dim ligne_enq_amont As Integer
    Dim cell As Range
    Dim i As Integer
    liste_enq_amont.FullRowSelect = False
    liste_enq_amont.Gridlines = False
 
'Je récupère les valeurs des variables et j'active la feuille des ENQ AMONT
    Worksheets("ENQ AMONT").Activate
 
' Je récupère le numéro de la première ligne filtrée
    ligne_enq_amont = 2
    Do While Range("_FilterDataBase").Rows(ligne_enq_amont).Hidden
    ligne_enq_amont = ligne_enq_amont + 1
    Loop
    Range("_FilterDataBase").Cells(ligne_enq_amont, 1).Select
    num_1ereligne_filtree_enq_amont = ActiveCell.Row
 
 
' Je récupère le numéro de la dernière ligne filtrée
    Worksheets("ENQ AMONT").Activate
    num_derniere_ligne_enq_amont = Range("A65536").End(xlUp).Row
 
' Si il n'y a pas de pv alors je reviens sur la feuille initiale sinon je poursuis la macro
    If num_derniere_ligne_enq_amont = 1 Then
      Worksheets(feuille_courante).Select
    Else
 
' Je rempli les en-têtes
    With liste_enq_amont
        With .ColumnHeaders
            .Clear
            .Add , , "Num Enq Amont", 60
            .Add , , "Création le", 60
            .Add , , "Description anomalie", 400
        End With
 
'Les autres lignes contiennent les données
        For Each cell In Worksheets("ENQ AMONT").Range("A" & num_1ereligne_filtree_enq_amont & ":A" & num_derniere_ligne_enq_amont)
            If cell.EntireRow.Hidden = False Then
                 i = i + 1
            .ListItems.Add , , cell.Offset(0, 0)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 1)
            .ListItems(i).ListSubItems.Add , , cell.Offset(0, 8)
            End If
        Next
    End With
 
'"End if" de la verif si pas de pv
    End If
 
 'Spécifie l'affichage en mode "Détails"
    liste_enq_amont.View = lvwReport
 
  End Sub

13/05/2020, 21h08
Patrice740

Ligne 54, 130 et 201 ?????
13/05/2020, 21h51
Mooohfr

Sur ces 3 lignes j'arrête la maj de la liste en cours et je passe à la suivante si je n'ai pas données apparaissant après avoir filtré le tableau que je traduis en "si dans le tableau filtré, le numéro de ma première ligne est égal au numéro de ligne de mon en tête de colonne alors c'est que je n'ai aucun résultat".

Merci beaucoup pour le consacré à la résolution de mon problème.
14/05/2020, 00h15
Patrice740

Citation:

Envoyé par Patrice740

Ligne 54, 130 et 201 ?????

Il faut les supprimer, l'enchainement se fait dans initialize, ces lignes provoquent un double passage dans les procédures

L'architecture n'est pas suffisamment claire : les procédures qui mettent à jour les listview ne devraient faire que ça !
Je ne sais pas quel développement tu envisages ensuite mais je pense qu'il faudrait séparer l'initialisation du listview et sa mise à jour (2 procédures différentes).
14/05/2020, 08h21
Mooohfr

Grand meeerrrrrcccciiiii aaahhhhh quel bonheur ça fonctionne, je passe en :resolu::yaisse2::yaisse2:
J'ai remplacé les "maj_liste_xx" par un "exit sub"

Tu es mieux que le minoxidil, je vais pouvoir encore garder des cheveux grâce à toi.

Excellente journée,