Boucle " if else end if" qui ne s'exécute pas

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:

---

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

bonjour.

Peut-être que tes 2 Nz entrent en conflit.

Essaye en changeant pour :

Code:

---

VarCells = xlSheet.Cells(K, L).value

---

et tu peux tricher dans ton test en faisant

Code:

---

if VarCells & "" = ""

---

A+

Bonjour

Merci pour ces infos mais cela ne fonctionne pas (même la triche) , le programme n'exécute pas la boucle IF et il se plante en erreur 13 car il détecte une valeur vide VarCells au niveau de "MoyenneHeure = VarCells + MoyenneHeure"

J'ai fait un test avec le code suivant A = "" + A ce qui m'a généré une erreur 13 donc c'est bien la valeur vide qui perturbe

Mais je n'arrive pas à comprendre pourquoi la boucle if ne fonctionne pas, j'ai essayé beaucoup de choses mais toujours la même erreur 13, il faut que je puisse mettre ma variable à 0 lorsque l'extraction de la cellule Excel donne une valeur vide.

Je continue à réfléchir

Cordialement

Essaye avec

Code:

---

1 2	if not isempty(VarCell) then end if

---

De quel type est VarCell ?

A+

Bonjour

J'ai essayé mais cela ne fonctionne pas, par contre dans le fichier Excel j'ai viré toutes les valeurs du jour concerné et du coup la boucle fonctionne jusqu'à la 25éme valeur vide
Valeur vide cellule 1 à 24 ma boucle if fonctionne très bien, à la 25éme cellule cela plante
J'ai regardé les propriétés de cette cellule comparé aux 24 premières RAS
Je continue les investigations

Merci pour votre aide

Cordialement

De quel type est VarCell ?

A+

Bonjour

Varcells est du type variant

Je reprends mes investigations pour comprendre pourquoi la boucle "if else end if " ne fonctionne plus à partir de la 25éme cellule

Merci pour l'aide apportée

Cordialement

Bonjour

Dans mon fichier Excel de novembre l'ai mis une valeur bidon dans la cellule qui plantait, la boucle fonctionne correctement, puis j'ai supprimé la valeur la boucle fonctionne aussi !

En voulant importer les valeurs du fichier de décembre j'ai à nouveau l'erreur 13, j'ai donc mis une valeur bidon à la place des valeurs vides --> tout fonctionne !! j'ai supprimé ces valeurs cela fonctionne aussi !!

Il semblerait que le fait de mettre une valeur quelconque puis de la supprimer dans le fichier Excel ma boucle "if else end if" fonctionne, cependant ce n'est guère pratique;

Comme je ne veux pas modifier le fichier Excel, j'ai inhibé le message d'erreur avec "On Error Resume Next" et comme j'ai une instruction qui ne permet d'enregistrer dans ma table que des valeurs > 0 ça marche; Ce n'est pas très élégant mais le résultat est là.

Merci à tous pour le temps passé à essayer de m'aider

Cordialement