Bonjour à tous,

Je suis novice en VBA et je ne comprends pas pourquoi mon petit code bloque au niveau du "while". Je suis sur Office 2010.
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
 
Dim x&
Dim y&
Dim n_&
Dim T&
Dim num_n_ As String
Dim num_CP&
 
Sub test()
'
' test Macro
'
''''Nombre de tickets
T = 0
''''Nombre de lecture
n_ = 0
''''Numéro de ligne data
x = 2
''''Numéro de ligne du type de compteur
y = 2
'''' Référence de la lecture
num_n_ = Sheets(9).Cells(3, 1).Value
 
num_CP = Sheets(9).Cells(2, y).Value
 
b = Sheets(1).Cells(1, x).Value
 
While x < 40000
 
    If num_CP = Sheets(1).Cells(1, x).Value Then
        T = T + Sheets(1).Cells(4, x).Value
        If Sheets(1).Cells(3, x).Value = num_n_ Then
            n_ = n_ + Sheets(1).Cells(4, x).Value
        Else:
        End If
 
    Else:
   End If
 
x = x + 1
 
Wend
 
Sheets(10).Cells(1, 1).Value = T
Sheets(10).Cells(2, 1).Value = n_
Sheets(10).Cells(3, 1).Value = x
Sheets(10).Cells(4, 1).Value = num_n
Sheets(10).Cells(5, 1).Value = num_CP
 
End Sub
Je ne comprends pas pourquoi le programme ne se lance pas.

Merci par avance :-)