Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel que faire après Next

que faire après Next

2 réponses
Avatar
nicolas S
Bonour,
J'essaye de modifier le code suivant:



Public Function NOUV_ENTREE(bd_ori As Range, bd_comp As Range, cel_vide)

Dim ori, comp, aa, bb As Variant

For Each ori In bd_ori
If ori = "" Then GoTo fin0
deb:
For Each comp In bd_comp

If ori = comp Then


GoTo present

End If

Next
If ori = "" Then GoTo deb
NOUV_ENTREE = ori
GoTo fin

present:

Next
fin0:
If cel_vide = 1 Then GoTo present
'NOUV_ENTREE = 0
fin:
End Function

Lorsque la première boucle a fini de balayer la plage et n'a pas trouvé de
nouvelle valeur le code s'arrête après l'instruction Next sans aller jusqu'à
End Function. Ceci a pour conséquence de donner pour résultat à une cellule
qui n'a pas de nouvelle valeur : #valeur!.



Est il possible de remédier à ce problème ?



Merci de votre contribution.

Nicolas
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jr
Es-tu sûr que le code ne va pas jusqu'au bout (test avec un print
'coucou') ?
Dans le code que tu as copié/collé, la ligne 'NOUV_ENTREE = 0 est un
commentaire, c'est ce que tu veux ?
Avatar
nicolas S
"jr" a écrit dans le message de news:

Es-tu sûr que le code ne va pas jusqu'au bout (test avec un print

'coucou') ?


j'ai mit un point d'arrêt sur la première ligne et je passe tout le code par
F8.
Au dervier passage sur next, le code s'arrête sans aller plus loin.

Dans le code que tu as copié/collé, la ligne 'NOUV_ENTREE = 0 est un
commentaire, c'est ce que tu veux ?


oui c'est ca,
merci