Un probleme simple de boucle je voudrais avoir ce style de code mais ca ne
fonctionne pas
La boucle fonction jusqu'a ce que elle soit au derniere enregistrement ou
lorsque la condition <
Do Until compte.EOF = True Or compte("close") < compte("moyennemobile")
compte.MoveNext
Loop
Je vois pas trop comment faire pour que ca marche
merci
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
Patrice Henrio
La question a déjà été posée pour ce type de problème : comment VB gère les conditions "ou". A l'époque j'avais répondu un peu vite que le "ou" renvoyait Vrai dés que l'une des conditions évaluées séquentiellement était vrai. Or ce n'est pas le cas. Le pb vient du fait que pour tester la deuxième condition, il est impératif que la première soit fausse. Une remarque je n'utilise jamais une expression du type If VarBooléenne=True Mais directement If VarBooléenne
pareil dans les while et les until
Ainsi je propose
Finiúlse Do until Fini Fini=compte.EOF If not Fini then Fini=(Compte("close")<Compte("Moyennemobile")) If not Fini then Compte.MoveNext End If Loop
"Marc Paquin" a écrit dans le message de news:oSapb.625$
Rebonjour,
Un probleme simple de boucle je voudrais avoir ce style de code mais ca ne fonctionne pas La boucle fonction jusqu'a ce que elle soit au derniere enregistrement ou lorsque la condition < Do Until compte.EOF = True Or compte("close") < compte("moyennemobile") compte.MoveNext Loop
Je vois pas trop comment faire pour que ca marche merci
La question a déjà été posée pour ce type de problème : comment VB gère les
conditions "ou". A l'époque j'avais répondu un peu vite que le "ou"
renvoyait Vrai dés que l'une des conditions évaluées séquentiellement était
vrai. Or ce n'est pas le cas.
Le pb vient du fait que pour tester la deuxième condition, il est impératif
que la première soit fausse.
Une remarque je n'utilise jamais une expression du type
If VarBooléenne=True
Mais directement
If VarBooléenne
pareil dans les while et les until
Ainsi je propose
Finiúlse
Do until Fini
Fini=compte.EOF
If not Fini then
Fini=(Compte("close")<Compte("Moyennemobile"))
If not Fini then Compte.MoveNext
End If
Loop
"Marc Paquin" <paquin.marc@sympatico.ca> a écrit dans le message de
news:oSapb.625$mB5.64758@news20.bellglobal.com...
Rebonjour,
Un probleme simple de boucle je voudrais avoir ce style de code mais ca ne
fonctionne pas
La boucle fonction jusqu'a ce que elle soit au derniere enregistrement ou
lorsque la condition <
Do Until compte.EOF = True Or compte("close") < compte("moyennemobile")
compte.MoveNext
Loop
Je vois pas trop comment faire pour que ca marche
merci
La question a déjà été posée pour ce type de problème : comment VB gère les conditions "ou". A l'époque j'avais répondu un peu vite que le "ou" renvoyait Vrai dés que l'une des conditions évaluées séquentiellement était vrai. Or ce n'est pas le cas. Le pb vient du fait que pour tester la deuxième condition, il est impératif que la première soit fausse. Une remarque je n'utilise jamais une expression du type If VarBooléenne=True Mais directement If VarBooléenne
pareil dans les while et les until
Ainsi je propose
Finiúlse Do until Fini Fini=compte.EOF If not Fini then Fini=(Compte("close")<Compte("Moyennemobile")) If not Fini then Compte.MoveNext End If Loop
"Marc Paquin" a écrit dans le message de news:oSapb.625$
Rebonjour,
Un probleme simple de boucle je voudrais avoir ce style de code mais ca ne fonctionne pas La boucle fonction jusqu'a ce que elle soit au derniere enregistrement ou lorsque la condition < Do Until compte.EOF = True Or compte("close") < compte("moyennemobile") compte.MoveNext Loop
Je vois pas trop comment faire pour que ca marche merci
