Boucle qui boucle mais ne repond pas a la condition

**jpvba** · 07/02/2018, 22h47

Bonjour a vous,

Je travail présentement a ajouté une seconde boucle dans une premiere procedure afin de pouvoir remplir automatiquement certains champs, je suis présentement vraiment désespéré, j'ai 4 heures de temps a trouvé le pourquoi que cela ne fonctionne pas. J'ai donc fais du pas a pas a l'aide de F8 et trouvé que dans la boucle problématique tourne mais la condition if n'est jamais répondu malgré dû fais que ca devrais etre répondu.

J'ai donc extrait la deuxieme partie de mon code (celle qui est problématique) et fais plusieurs test mais en vains. J'ai écrit au long certaines variables, écrit au long les range et pas plus de résultats.

je vous mets donc mon code, la section problématique

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
Sub test_2()
Dim modif_descr_reg As Variant
Dim feuille_mandatAValider As Worksheet
    Set feuille_mandatAValider = Sheets("R_ItemsPourMandatAValider")
Dim LettreVoulue As String
    LettreVoulue = TrouveLettreColonne(feuille_mandatAValider.Range("creation_ou_modif"))
Dim x As Long
Dim feuille_modif_reg As Worksheet
    Set feuille_modif_reg = Sheets("Demande modif reg seulement")
 
 
x = x + 1
 
Sheets("R_ItemsPourMandatAValider").Activate
 
For Each modif_descr_reg In feuille_mandatAValider.Range(LettreVoulue & 2, LettreVoulue & LastLignUsedInColumn(LettreVoulue))
 
 
 
     If Cells(x + 1, feuille_mandatAValider.Range("creation_ou_modif").Column) = "Modif. Desc. Rég. seul." Then
 
        feuille_modif_reg.Cells(x + 1, 1) = "toto"
 
 
 
 
 
     End If
 
    Next modif_descr_reg
 
 
End Sub

Je vous joinds également un imprime écran dû fichier en question avec le contenu de ma liste déroulante ... j'ai également fait par exemple le changement du teste par un autre moins compliqué tel que allo et toujours le meme résultats

Nom : Sans titre.jpg
Affichages : 277
Taille : 275,3 Ko

Nom : Sans titre.jpg
Affichages : 277
Taille : 275,3 Ko

en espérant que vous pouvez mettre le doigt sur le bobo

amicalement JP

**clementmarcotte** · 08/02/2018, 02h51

Bonjour,

Je n'ai pas essayé, mais ton

Code :

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

x = x + 1

semble être à l'extérieur de ta boucle. Si tu veux que x soit un compteur, tu dois mettre ta ligne dans ta boucle. Sinon, la seule chose que je vois, c'est de mettre des espions et de vérifier les valeurs des variables et la concordance des nom de feuilles et des noms de plage. Ou bien, tu peux avoir une plage nommée qui a été modifiée, ou effacée.

**jpvba** · 08/02/2018, 15h41

Un gros merci Clement,

Je valide le tout ce matin a cerveau reposé

**jpvba** · 08/02/2018, 15h45

Mon test scindé fonctionne présentement mais si je fais un copier/coller dans mon code originale, ca ne fonctionne plus

j'ai le gout de mettre mon code integrale

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
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
Sub genere_creation_produit()
 
'On Error GoTo errorHandler:
 
 
Dim start As Single
Dim finish As Single
Dim LettreVoulue As String
    LettreVoulue = TrouveLettreColonne([creation_ou_modif])
Dim produit_a_creer As Variant
Dim modif_descr_reg As Variant
 
Dim x As Integer
Dim classification As Range
Dim creation As Range
Dim modif_reg As Range
Dim modif_prov As Range
Dim modif_fcg As Range
Dim feuille_creation As Worksheet 'ne peux la setté immédiatement car n'est pas déjà présent
Dim feuille_modif_reg As Worksheet 'ne peux la setté immédiatement car n'est pas déjà présent
 
Dim feuille_revise As Worksheet
    Set feuille_revise = Sheets("tmp-MoulinetteRévisée")
Dim feuille_mandatAValider As Worksheet
    Set feuille_mandatAValider = Sheets("R_ItemsPourMandatAValider")
 
 
start = Timer
 
                            Application.ScreenUpdating = False
 
'Validation si l'onglet R_ItemsPourMandatAValider est existant
 
If sheetExists("R_ItemsPourMandatAValider") = False Then
    MsgBox "Aucun onglet R_ItemsPourMandatAValider a été trouvé !!!", vbCritical
End If
 
'validation si l'onglet demande de création existe
 
If sheetExists("Demande de création") = True And sheetExists("Demande modif reg seulement") = False Then
    MsgBox "Onglet Demande de création déjà existant, veuillez le supprimer et re-généré la macro grâce au bouton !!!", vbCritical
    Exit Sub
 
ElseIf sheetExists("Demande de création") = False And sheetExists("Demande modif reg seulement") = True Then
    MsgBox "Onglet Demande modif reg seulement déjà existant,veuillez le supprimer et re-généré la macro grâce au bouton !!!", vbCritical
    Exit Sub
 
ElseIf sheetExists("Demande de création") = True And sheetExists("Demande modif reg seulement") = True Then
    MsgBox "Onglet Demande de création et demande modif reg seulement sont existantes,veuillez les supprimer et re-généré la macro grâce au bouton !!!", vbCritical
    Exit Sub
 
End If
 
'validation si il y a des demandes de créations
 
Set creation = Range("creation_ou_modif").Find("Création", LookAt:=xlWhole)
 
If creation Is Nothing Then
 
MsgBox "Aucune création a été trouvé"
 
Else
 
'Si il ya des demandes de créations ouvrir le fichier modele de création et copié l'onglet dans le fichier
 
Workbooks.Open ("N:\DOCUMENTS SUPPORT\LAC\Demande création et modification\Demande de création de produits.xlsm")
 
Sheets("Feuil1").Copy Before:=ThisWorkbook.Sheets(1)
 
Workbooks("Demande de création de produits.xlsm").Close
 
'on le renomme Demande de création
 
Sheets("Feuil1").Name = "Demande de création"
 
'on le set afin de pouvoir faire fonctionné la variable
 
Set feuille_creation = Sheets("Demande de création")
 
feuille_mandatAValider.Activate
 
'on mets les données a la bonne endroit
 
    For Each produit_a_creer In feuille_mandatAValider.Range(LettreVoulue & 2, LettreVoulue & LastLignUsedInColumn(LettreVoulue))
 
    x = x + 1
 
     If Cells(x + 1, [creation_ou_modif].Column) = "Création" Then
 
        feuille_mandatAValider.Cells(x + 1, 4).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("desc_prov_long").Column)
 
        feuille_mandatAValider.Cells(x + 1, 4).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("desc_reg_long").Column)
 
        feuille_mandatAValider.Cells(x + 1, 5).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("desc_format").Column)
 
        feuille_mandatAValider.Cells(x + 1, 1).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("ID").Column)
 
        feuille_creation.Cells(x + 1, feuille_creation.Range("nom_fourn").Column) = _
        rmultUnique(feuille_creation.Cells(x + 1, feuille_creation.Range("ID").Column), _
        feuille_revise.Range("A2:t" & LastLignUsedInSheet_Column("tmp-MoulinetteRévisée", "a") + 1), 10)
 
        feuille_creation.Cells(x + 1, feuille_creation.Range("num_prod").Column) = _
        rmultUnique(feuille_creation.Cells(x + 1, feuille_creation.Range("ID").Column), _
        feuille_revise.Range("A2:t" & LastLignUsedInSheet_Column("tmp-MoulinetteRévisée", "a") + 1), 12)
 
 
 
 
     End If
 
    Next produit_a_creer
 
 
'on supprime les lignes vides si bien sur les feuilles ont été créés
 
                    feuille_creation.Select
                    Range("A2").EntireRow.Insert
                    feuille_creation.Range("b1:B" & LastLignUsedInColumn("B")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
 
feuille_creation.Range("b2").Activate
 
 
End If
 
 
'validation si il y a des modifications régionnale
 
Set modif_reg = Range("creation_ou_modif").Find("Modif. Desc. Rég. seul.", LookAt:=xlWhole)
 
If modif_reg Is Nothing Then
 
MsgBox "Aucune modification de descriptions régionnale seulement a été trouvé"
 
Else
 
'Si il ya des demandes de modification ouvrir le fichier modele de modification et copié l'onglet dans le fichier
 
Workbooks.Open ("N:\DOCUMENTS SUPPORT\LAC\Demande création et modification\Demande de modification de produits.xlsm")
 
Sheets("Travail").Copy Before:=ThisWorkbook.Sheets(1)
 
Workbooks("Demande de modification de produits.xlsm").Close
 
'on le renomme Demande de création
 
Sheets("Travail").Name = "Demande modif reg seulement"
 
'on le set afin de pouvoir faire fonctionné la variable
 
Set feuille_modif_reg = Sheets("Demande modif reg seulement")
 
 
Sheets("R_ItemsPourMandatAValider").Activate
 
For Each modif_descr_reg In feuille_mandatAValider.Range(LettreVoulue & 2, LettreVoulue & LastLignUsedInColumn(LettreVoulue))
 
 x = x + 1
 
     If Cells(x + 1, feuille_mandatAValider.Range("creation_ou_modif").Column) = "Modif. Desc. Rég. seul." Then
 
        feuille_modif_reg.Cells(x + 1, 1) = "toto"
 
 
 
 
 
     End If
 
    Next modif_descr_reg
 
 
'on supprime les lignes vides si bien sur les feuilles ont été créés
 
'                    feuille_modif_reg.Select
'                    Range("A2").EntireRow.Insert
'                    feuille_modif_reg.Range("b1:B" & LastLignUsedInColumn("B")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
 
 
 
 
 
 
End If
 
 
 
 
 
 
 
 
 
 
 
finish = Timer
 
 
MsgBox "durée du traitement: " & finish - start & " secondes"
 
Exit Sub
 
errorHandler:
MsgBox "erreur", vbCritical
 
End Sub

Si j'ajoute un ELSE

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
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
ub genere_creation_produit()
 
'On Error GoTo errorHandler:
 
 
Dim start As Single
Dim finish As Single
Dim LettreVoulue As String
    LettreVoulue = TrouveLettreColonne([creation_ou_modif])
Dim produit_a_creer As Variant
Dim modif_descr_reg As Variant
 
Dim x As Integer
Dim classification As Range
Dim creation As Range
Dim modif_reg As Range
Dim modif_prov As Range
Dim modif_fcg As Range
Dim feuille_creation As Worksheet 'ne peux la setté immédiatement car n'est pas déjà présent
Dim feuille_modif_reg As Worksheet 'ne peux la setté immédiatement car n'est pas déjà présent
 
Dim feuille_revise As Worksheet
    Set feuille_revise = Sheets("tmp-MoulinetteRévisée")
Dim feuille_mandatAValider As Worksheet
    Set feuille_mandatAValider = Sheets("R_ItemsPourMandatAValider")
 
 
start = Timer
 
                            Application.ScreenUpdating = False
 
'Validation si l'onglet R_ItemsPourMandatAValider est existant
 
If sheetExists("R_ItemsPourMandatAValider") = False Then
    MsgBox "Aucun onglet R_ItemsPourMandatAValider a été trouvé !!!", vbCritical
End If
 
'validation si l'onglet demande de création existe
 
If sheetExists("Demande de création") = True And sheetExists("Demande modif reg seulement") = False Then
    MsgBox "Onglet Demande de création déjà existant, veuillez le supprimer et re-généré la macro grâce au bouton !!!", vbCritical
    Exit Sub
 
ElseIf sheetExists("Demande de création") = False And sheetExists("Demande modif reg seulement") = True Then
    MsgBox "Onglet Demande modif reg seulement déjà existant,veuillez le supprimer et re-généré la macro grâce au bouton !!!", vbCritical
    Exit Sub
 
ElseIf sheetExists("Demande de création") = True And sheetExists("Demande modif reg seulement") = True Then
    MsgBox "Onglet Demande de création et demande modif reg seulement sont existantes,veuillez les supprimer et re-généré la macro grâce au bouton !!!", vbCritical
    Exit Sub
 
End If
 
'validation si il y a des demandes de créations
 
Set creation = Range("creation_ou_modif").Find("Création", LookAt:=xlWhole)
 
If creation Is Nothing Then
 
MsgBox "Aucune création a été trouvé"
 
Else
 
'Si il ya des demandes de créations ouvrir le fichier modele de création et copié l'onglet dans le fichier
 
Workbooks.Open ("N:\DOCUMENTS SUPPORT\LAC\Demande création et modification\Demande de création de produits.xlsm")
 
Sheets("Feuil1").Copy Before:=ThisWorkbook.Sheets(1)
 
Workbooks("Demande de création de produits.xlsm").Close
 
'on le renomme Demande de création
 
Sheets("Feuil1").Name = "Demande de création"
 
'on le set afin de pouvoir faire fonctionné la variable
 
Set feuille_creation = Sheets("Demande de création")
 
feuille_mandatAValider.Activate
 
'on mets les données a la bonne endroit
 
    For Each produit_a_creer In feuille_mandatAValider.Range(LettreVoulue & 2, LettreVoulue & LastLignUsedInColumn(LettreVoulue))
 
    x = x + 1
 
     If Cells(x + 1, [creation_ou_modif].Column) = "Création" Then
 
        feuille_mandatAValider.Cells(x + 1, 4).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("desc_prov_long").Column)
 
        feuille_mandatAValider.Cells(x + 1, 4).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("desc_reg_long").Column)
 
        feuille_mandatAValider.Cells(x + 1, 5).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("desc_format").Column)
 
        feuille_mandatAValider.Cells(x + 1, 1).Copy _
        feuille_creation.Cells(x + 1, feuille_creation.Range("ID").Column)
 
        feuille_creation.Cells(x + 1, feuille_creation.Range("nom_fourn").Column) = _
        rmultUnique(feuille_creation.Cells(x + 1, feuille_creation.Range("ID").Column), _
        feuille_revise.Range("A2:t" & LastLignUsedInSheet_Column("tmp-MoulinetteRévisée", "a") + 1), 10)
 
        feuille_creation.Cells(x + 1, feuille_creation.Range("num_prod").Column) = _
        rmultUnique(feuille_creation.Cells(x + 1, feuille_creation.Range("ID").Column), _
        feuille_revise.Range("A2:t" & LastLignUsedInSheet_Column("tmp-MoulinetteRévisée", "a") + 1), 12)
 
 
 
 
     End If
 
    Next produit_a_creer
 
 
'on supprime les lignes vides si bien sur les feuilles ont été créés
 
                    feuille_creation.Select
                    Range("A2").EntireRow.Insert
                    feuille_creation.Range("b1:B" & LastLignUsedInColumn("B")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
 
feuille_creation.Range("b2").Activate
 
 
End If
 
 
'validation si il y a des modifications régionnale
 
Set modif_reg = Range("creation_ou_modif").Find("Modif. Desc. Rég. seul.", LookAt:=xlWhole)
 
If modif_reg Is Nothing Then
 
MsgBox "Aucune modification de descriptions régionnale seulement a été trouvé"
 
Else
 
'Si il ya des demandes de modification ouvrir le fichier modele de modification et copié l'onglet dans le fichier
 
Workbooks.Open ("N:\DOCUMENTS SUPPORT\LAC\Demande création et modification\Demande de modification de produits.xlsm")
 
Sheets("Travail").Copy Before:=ThisWorkbook.Sheets(1)
 
Workbooks("Demande de modification de produits.xlsm").Close
 
'on le renomme Demande de création
 
Sheets("Travail").Name = "Demande modif reg seulement"
 
'on le set afin de pouvoir faire fonctionné la variable
 
Set feuille_modif_reg = Sheets("Demande modif reg seulement")
 
 
Sheets("R_ItemsPourMandatAValider").Activate
 
For Each modif_descr_reg In feuille_mandatAValider.Range(LettreVoulue & 2, LettreVoulue & LastLignUsedInColumn(LettreVoulue))
 
 x = x + 1
 
     If Cells(x + 1, feuille_mandatAValider.Range("creation_ou_modif").Column) = "Modif. Desc. Rég. seul." Then
 
        feuille_modif_reg.Cells(x + 1, 1) = "toto"
 
 
    Else
 
        feuille_modif_reg.Cells(x + 1, 1) = "salut"
 
 
     End If
 
    Next modif_descr_reg
 
 
'on supprime les lignes vides si bien sur les feuilles ont été créés
 
'                    feuille_modif_reg.Select
'                    Range("A2").EntireRow.Insert
'                    feuille_modif_reg.Range("b1:B" & LastLignUsedInColumn("B")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
 
 
 
 
 
 
End If
 
 
 
 
 
 
 
 
 
 
 
finish = Timer
 
 
MsgBox "durée du traitement: " & finish - start & " secondes"
 
Exit Sub
 
errorHandler:
MsgBox "erreur", vbCritical
 
End Sub

j'ai un résultat mais vraiment bizzare ie, un resultat sur des lignes qui n'a pas préalablement le "Modif. Desc. Rég. seul. (ligne 17 a 31 quand l'expression est sur ligne 5 et 6 seulement)

merci encore !!!

**jpvba** · 08/02/2018, 16h24

Présentement je sépare le code en 2 et fais exécuté le second dans le premier, ça fonctionne a merveille (a part ma petite passe passe d'ajouté une ligne et supprimé les ligne superflux, mais C'Est un autre histoire ...)

Je voudrais comprendre le pourquoi afin de corrigé ou ne plus répété cette meme erreur.

Est-ce que vous savez pourquoi ???

merci pour vos conseilles !!!

**jpvba** · 08/02/2018, 16h54

JE pense que le probleme viens du fait que dans le gestionnaire de nom, il y a des erreur de REF ...

merci encore une fois Clement !!!

Boucle qui boucle mais ne repond pas a la condition

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager