Boucle conditionnelle non détectée

**Yoruba65** · 07/04/2016, 17h28

Bonjour à tous;

J'ai une boucle if then else qui n'est pas interpretée dans mon code, soit le if n'est pas détécté lorsque le else ou le end if est lu. (en rouge dans le code).
Je débute en VBA donc soyez indulgents avec les éventuelles complexités inutiles.
Et, en corrolaire, je suis preneur de conseils avisés.

Merci d'avance.

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
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim x As Integer
Dim y As Integer
Dim Z As Integer
Dim xx As Integer
Dim vDat As Date
Dim vNom As String
Dim vEqui As String
Dim itGronde As Integer
Dim tGronde(6) As String
Dim nbLignesDonneesBrutes As Integer
Dim nbLignesGdRondes As Integer
Dim tCompteuretat() As String
Dim tCompteur() As String 'currency
Dim tCompteur2() As Variant 'currency
Dim tTitres() As String
Dim tNumeros() As String
Dim tIndic() As String
Dim tIndic2() As String
Dim tIndic3() As String
Dim compt As Integer




Sub Essai()
If MsgBox("Etes-vous certain de vouloir valider l'encodage?", vbYesNo, "Demande de confirmation") = vbYes Then
Application.ScreenUpdating = False


    
vDat = Sheets("Feuilles_rondes").Range("S5")
vNom = Sheets("Feuilles_rondes").Range("S3")
vEqui = Sheets("Feuilles_rondes").Range("Z5")


'recherche nombre de lignes de la feuille de ronde
Sheets("Feuilles_rondes").Activate
ActiveSheet.Unprotect
a = Range("C65536").End(xlUp).Row
b = a - 8
c = b * 10
'recherche dernière ligne de la feuille de données brutes
Sheets("Données_Brutes").Activate
ActiveSheet.Unprotect
nbLignesDonneesBrutes = Range("A65536").End(xlUp).Row + 1
'recherche dernière ligne de la feuille des données brutes grande ronde
Sheets("Données_Brutes_Grandes_rondes").Activate
ActiveSheet.Unprotect
nbLignesGdRondes = Range("A65536").End(xlUp).Row + 1

Worksheets("Feuilles_Rondes").Activate

For itGronde = 0 To 6
    Cells(6, itGronde + 6).Activate
    'si la couleur de fond est orange, le contenu des deux cellules situées au dessus sont stockées dans la variable tGronde
    If ActiveCell.Interior.Color = 5296274 Then tGronde(itGronde) = ActiveCell.Offset(-1, 0).Value & ActiveCell.Offset(-2, 0)
    ' Suppression de l'information semaine pour les trois valeurs A,B et C
    If Left(tGronde(itGronde), 1) = "A" Then
    tGronde(itGronde) = Left(tGronde(itGronde), 1)
    ElseIf Left(tGronde(itGronde), 1) = "B" Then
    tGronde(itGronde) = Left(tGronde(itGronde), 1)
    ElseIf Left(tGronde(itGronde), 1) = "C" Then
    tGronde(itGronde) = Left(tGronde(itGronde), 1)
    Else
    End If
Next itGronde
ReDim tIndic(b, 9, 3) As String
ReDim tIndic2(b, 6) As String
ReDim tIndic3(b, 10) As String
ReDim tCompteuretat(b) As String
ReDim tCompteur(b, 4) As String 'currency
ReDim tCompteur2(c, 4) As Variant 'currency
ReDim tTitres(b, 2) As String


 For x = 0 To b
    tCompteuretat(x) = Cells(x + 8, 13).Value
    tCompteur(x, 0) = Cells(x + 8, 14).Value
    tTitres(x, 0) = Cells(x + 8, 4).Value
    tTitres(x, 1) = Cells(x + 8, 3).Value
        For y = 0 To 7
            Cells(x + 8, y + 15).Activate
            'si la cellule n'est pas vide
            If ActiveCell.Value <> "" Then
                'affecter sa valeur  au premier niveau de la matrice tIndic
                tIndic(x, y, 0) = Sheets("Feuilles_rondes").Cells(x + 8, y + 15).Value
                'affecter le titre de la ligne au deuxieme niveau de la matrice tIndic
                tIndic(x, y, 1) = Sheets("Feuilles_rondes").Cells(x + 8, 4).Value
                'affecter le titre de la colonne au dernier niveau de la matrice
                tIndic(x, y, 2) = Sheets("Feuilles_rondes").Cells(7, y + 15).Value
            End If
        Next y
    Next x
    'Comptage du nombre de fois X dans chaque ligne
    For x = LBound(tIndic, 1) To UBound(tIndic, 1)
        compt = 0
        For y = LBound(tIndic, 2) To UBound(tIndic, 2) - 1
            If tIndic(x, y, 0) = "" Then compt = compt
            Else
            tIndic3(x, compt) = tIndic(x, y, 2)
            compt = compt + 1
            tIndic(x, 8, 0) = compt
            End If
        Next y
    Next x
    'définition des cellules dans lesquelles rechercher les valeurs et stockage des valeurs dans la variable tableau tIndic2
    For x = 0 To UBound(tIndic, 1)
        If tIndic(x, 8, 0) = 3 Then
        tIndic2(x, 0) = Cells(x + 8, 23).Value
        tIndic2(x, 1) = Cells(x + 8, 25).Value
        tIndic2(x, 2) = Cells(x + 8, 27).Value
        ElseIf tIndic(x, 8, 0) = 2 Then
        tIndic2(x, 0) = Cells(x + 8, 23).Value
        tIndic2(x, 1) = Cells(x + 8, 26).Value
        ElseIf tIndic(x, 8, 0) = 1 Then
        tIndic2(x, 0) = Cells(x + 8, 23).Value
        Else
        End If
    Next x
    For x = 0 To UBound(tCompteur, 1)
        For y = 1 To UBound(tCompteur, 2)
        tCompteur(x, y) = tIndic2(x, y - 1)
        Next y
    Next x
    'Z = 0
       ' For x = 0 To UBound(tCompteur, 1)
            'For y = 0 To UBound(tCompteur, 2)
            'If tIndic(x, 8, 0) = 3 Then
            'tCompteur2(Z, 0) = tTitres(x, 0)
            'tCompteur2(Z, 2) = tTitres(x, 1)
            'tCompteur2(Z, 3) = tCompteur(x, 0)
            'Z = Z + 1
            'tCompteur2(Z, 1) = tIndic2(x, 3)
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
           ' Z = Z + 1
           ' tCompteur2(Z, 1) = tIndic2(x, 4)
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
          '  Z = Z + 1
           ' tCompteur2(Z, 1) = tIndic2(x, 5)
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
           ' Z = Z + 1
           ' ElseIf tIndic(x, 8, 0) = 2 Then
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
           ' Z = Z + 1
           ' tCompteur2(Z, 1) = tIndic2(x, 3)
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
            'Z = Z + 1
           ' tCompteur2(Z, 1) = tIndic2(x, 4)
            'tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
           ' Z = Z + 1
           ' ElseIf tIndic(x, 8, 0) = 1 Then
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
           ' Z = Z + 1
           ' tCompteur2(Z, 1) = tIndic2(x, 3)
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
           ' Z = Z + 1
           ' Else
           ' tCompteur2(Z, 0) = tTitres(x, 0)
           ' tCompteur2(Z, 2) = tTitres(x, 1)
           ' tCompteur2(Z, 3) = tCompteur(x, 0)
           ' Z = Z + 1
          '  End If
          '  Next y
      '  Next x
    

    'alimentation de la feuille Données_Brutes
    Sheets("Données_Brutes").Activate
    Cells(nbLignesDonneesBrutes, 1) = vDat
    Cells(nbLignesDonneesBrutes, 2) = vNom
    Cells(nbLignesDonneesBrutes, 3) = vEqui
  '  For x = 0 To UBound(tCompteur2, 1)
    '    For y = 0 To UBound(tCompteur2, 2)
       ' Cells(1, 4 + x) = tCompteur2(x, 0)
       ' Cells(2, 4 + x) = tCompteur2(x, 2)
       ' Cells(3, 4 + x) = tCompteur2(x, 1)
       ' Cells(nbLignesDonneesBrutes, 4 + x) = tCompteur2(x, 3)
    '    Next y
   ' Next x
    
    Sheets("Données_Brutes_Grandes_rondes").Activate
    For xx = 0 To UBound(tGronde)
        If vEqui = tGronde(xx) Then
        Cells(nbLignesGdRondes, 1) = vDat
        Cells(nbLignesGdRondes, 2) = vNom
        Cells(nbLignesGdRondes, 3) = vEqui
            For x = 0 To UBound(tCompteur2, 1)
                For y = 0 To UBound(tCompteur2, 2)
                Cells(1, 4 + x) = tCompteur2(x, 0)
                Cells(2, 4 + x) = tCompteur2(x, 2)
                Cells(3, 4 + x) = tCompteur2(x, 1)
                Cells(nbLignesDonneesBrutes, 4 + x) = tCompteur2(x, 3)
                Next y
            Next x
        End If
    Next xx
    
 Sheets("Déboguage").Activate
 
 Range(Cells(1, 1), Cells(UBound(tTitres, 1), UBound(tTitres, 2))) = tTitres
 Range(Cells(1, 4), Cells(UBound(tIndic2, 1), UBound(tIndic2, 2) + 4)) = tIndic2
 Range(Cells(1, 10), Cells(UBound(tIndic3, 1), UBound(tIndic3, 2) + 6)) = tIndic3
 'Range(Cells(1, 11), Cells(UBound(tIndic3, 1), Ubound(tIndic,2)+11) = tIndic(, , 0)


Else: MsgBox ("Encodage de ronde annulé!" & Chr(10) & " La Prochaine feuille de ronde n'est pas imprimée!")
End If ' Msgbox
End Sub

**Philippe Tulliez** · 07/04/2016, 20h34

Bonjour,

Le meilleur conseil que j'ai à te donner est l'utilisation des outils de débogage qu'offre l'éditeur VBE et pour cela je te suggère la lecture de cet excellent tutoriel sur le sujet Le débogage sous Visual Basic 6& Visual Basic pour Application(1ère partie)