Bonjour à tous,

J'ai fait un code un peu laborieux dans un module où il semblait fonctionner. Mais comme je n'ai pas réussi à appeler ses methodes depuis un code situé dans thisworkbook, je l'ai replacé dans thisworkbook, et là il ne fonctionne plus.

Arrivé à "While (Cells(i + 24, 2).Value <> 0)" il saute direct à la fin alors que la cellule n'est pas nulle...

Je devrais apprendre mieux vba avant de faire tout çà mais c'est dans l'urgence...

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
Private Sub CZGrid()
Dim i As Integer, j As Integer
 
Worksheets("Speed & Aero Map").Select
 
i = 0
While (Cells(i + 24, 2).Value <> 0)
i = i + 1
ReDim Preserve FrontRideHeightCZ(i)
FrontRideHeightCZ(i) = Cells(i + 23, 2).Value
Wend
 
i = 0
While (Cells(23, i + 3).Value <> 0)
i = i + 1
ReDim Preserve RearRideHeightCZ(i)
RearRideHeightCZ(i) = Cells(23, i + 2).Value
Wend
 
ReDim CZ(UBound(FrontRideHeightCZ), UBound(RearRideHeightCZ))
 
For i = 1 To UBound(FrontRideHeightCZ)
    For j = 1 To UBound(RearRideHeightCZ)
 
        CZ(i, j) = Cells(i + 23, j + 2).Value
 
    Next
Next
 
End Sub