BozzoDodo
Messages postés185Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention10 janvier 2008
-
20 mai 2006 à 21:39
cs_PaTaTe
Messages postés2126Date d'inscriptionmercredi 21 août 2002StatutContributeurDernière intervention19 février 2021
-
21 mai 2006 à 05:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_PaTaTe
Messages postés2126Date d'inscriptionmercredi 21 août 2002StatutContributeurDernière intervention19 février 20212 21 mai 2006 à 05:49
Effectivement mais le but n'est pas la boucle en elle même :)
BozzoDodo
Messages postés185Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention10 janvier 2008 20 mai 2006 à 21:39
Pour un code plus propre il vaut mieux écrire dans l'évènement form_load:
Dim i As Integer
i = 1
Do
Text1.Text = Text1.Text & Format(i, "000") & " " & Environ(i) & vbNewLine
i = i + 1
Loop While Environ(i) <> Empty
Lorsqu'on atteint la 1ère variable d'environnement vide c'est qu'il n'y en a plus donc on arrète la boucle. On évite de pronostiquer un nombre 255 de variables... d'ailleurs s'il y en avait plus que 255 il ne les afficherait pas :).
21 mai 2006 à 05:49
20 mai 2006 à 21:39
Dim i As Integer
i = 1
Do
Text1.Text = Text1.Text & Format(i, "000") & " " & Environ(i) & vbNewLine
i = i + 1
Loop While Environ(i) <> Empty
Lorsqu'on atteint la 1ère variable d'environnement vide c'est qu'il n'y en a plus donc on arrète la boucle. On évite de pronostiquer un nombre 255 de variables... d'ailleurs s'il y en avait plus que 255 il ne les afficherait pas :).
Bonne prog'