Discussion :

[Gualino]

Bonjour à tous,

Je ne comprend pas l'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
 
With MainForm.CZ_datagrid
 
i = 0
            While .Item(i + 24, 2).Value <> 0 'erreur ici
                i = i + 1
                ReDim Preserve FrontRideHeightCZ(i)
                FrontRideHeightCZ(i) = .Item(i + 23, 2).Value 'erreur ici
            End While

Error 1 Option Strict On disallows operands of type Object for operator '<>'. Use the 'Is' operator to test for object identity.

[Gualino]

Résolu!

Code :

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

1
2
3
4
5
6
  i = 0
        While CDbl(MainForm.CZ_datagrid.Item(i + 24, 2).Value) <> 0
            i = i + 1
            ReDim Preserve FrontRideHeightCZ(i)
            FrontRideHeightCZ(i) = CDbl(MainForm.CZ_datagrid.Item(i + 24, 2).Value)
        End While