Bonjour à tous

Dans un formulaire Access j'ai une boucle "For next" dans laquelle j'ai fait une boucle "If else End if" pour tester les valeurs vides issues d'un fichier excel afin d'éviter une erreur

Mais cette boucle de test if ne fonctionne pas et le code génère une erreur 13 car la valeur de la cellule est vide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
              For L = 3 To 8 Step 1
                    VarCells = Nz(xlSheet.Cells(K, L))
 
                    If Nz(VarCells, "") = "" Then
                        VarCells = 0
                        MoyenneHeure = 0
                    Else
                        MoyenneHeure = VarCells + MoyenneHeure
                    End If
                Next L
Tant que la cellule Excel contient une valeur numérique tout fonctionne, Si la valeur est vide la boucle de test if n'est pas reconnue.

J'ai déjà fait des If Else dans des boucles For Next sans problème mais je n'importais pas des valeurs de fichiers Excel

Si vous avez des pistes pour résoudre ce problème je vous en remercie à l'avance

Cordialement