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 WhileError 1 Option Strict On disallows operands of type Object for operator '<>'. Use the 'Is' operator to test for object identity.
Partager