Boucle For...Next

[stef784]

Bonjour,

je commence tout juste les boucles en macro et je n'arrive pas à comprendre à quoi ça sert, je n'arrive pas à l'illustrer avec un exemple dans ma tete,

pouvez vous m'éclaircir un peu, car on a juste une petite partie dans le cour et je comprends pas bien ...

 

[Staple1600]

Re : Boucle For...Next

Bonjour


Regardes ici:
https://www.excel-downloads.com/threads/ref-wiki-page-7-de-michelxld.92375/

A la rubrique:
Les différents types de boucles


Tu peux aussi regarder dans l'aide VBA d' Excel
(ALT+F11 puis F1)

 

[Cousinhub]

Re : Boucle For...Next

Bonjour un exemple tout simple

On fait une boucle de 1 à 10, et les cellules A1 à A10 se remplissent de la valeur de la boucle :

Sub boucle()
Dim i As Long
For i = 1 To 10
    Cells(i, 1).Value = i
Next i
End Sub

 

[fanfan38]

Re : Boucle For...Next

Bonjour
La boucle for next comprend une variable qui s' incrémente à chaque boucle...
for i=1 to 10
'action exemple
msgbox i
next
tu auras 10 fois une boite de dialogue qui t'affichera la valeur de i

A+ François

 

[stef784]

Re : Boucle For...Next

Ok merci

Ici on me demande :

Ecrire le programme qui affiche les entiers entre 1 et 10 en utilisant une boucle "for". Dans chaque boite de dialogue vous afficherez la valeur initiale et la valeur finale de la boucle.
j'ai fais :

Sub macro()
Dim x As Integer
For i = 0 To 9
x = 1 + i
MsgBox (x)
Next
End Sub


On me demande ensuite: modifiez le programme de l'exo 1 pour que maintenant soient affichés les entiers situés entre a et b qui sont donnés par l'utilisateur

j'ai fais:

Sub macro()
Dim x As Integer
Dim z As Integer
Dim i As Integer
x = InputBox("Entrez un entier")
y = InputBox("Entrez un second entier")
For i = a To b
MsgBox ("un entier entre " & " " & a & " " & " et" & b & " " & "est" & i)
Next
End Sub

mais ca marche pas Oo

 

[Spitnolan08]

Re : Boucle For...Next

Bonjour,

 For i = x To y
MsgBox ("un entier entre " & " " & x & " " & " et" & y & " " & "est" & i)

devrait être mieux.

Cordialement

 

[stef784]

Re : Boucle For...Next

Ben je fais

Sub macro()
Dim x As Integer
Dim y As Integer
Dim i As Integer
x = InputBox("Entrez un entier")
y = InputBox("Entrez un second entier")
For i = x To y
MsgBox ("un entier entre " & " " & x & " " & " et" & y & " " & "est" & i)
Next
End Sub


et ca fait "débogage"

 

[Spitnolan08]

Re : Boucle For...Next

Re,

Il n'y a pas de raison...
Sur quelle ligne est placé le débogage ?
As tu compilé ton projet avant ?

Cordialement

 

[stef784]

Re : Boucle For...Next

Sur la ligne x = InputBox("Entrez un entier")

Compilé mon projet ?? c'est a dire ?

 

[Spitnolan08]

Re : Boucle For...Next

Re,
Toujours pas de raison...
As tu parcouru ta macro en pas à pas ?

Compilé mon projet ?

Dans le menu VBA : Débogage/Compiler projet

Eventuellement envoyer fichier...

Cordialement

 

[Cousinhub]

Re : Boucle For...Next

Re-,
salut Spit 🙂

Quel est le message d'erreur?

 

[stef784]

Re : Boucle For...Next

Ah voila c'est bon merci à vous ça marche 🙂

on me demande de repreendre ce deuxieme exo en utilisant la boucle "while" mais la je viois pas ?

 

[stef784]

Re : Boucle For...Next

s'il vous plait :$ ?

 

[cbea]

Re : Boucle For...Next

Bonjour à tous,

Remplacer :

     For i = x To y
         MsgBox ("un entier entre " & " " & x & " " & " et " & y & " " & " est " & i)
     Next

par

    i = x
    While i <= y
        MsgBox ("un entier entre " & " " & x & " " & " et " & y & " " & " est " & i)
        i = i + 1
    Wend

 

[stef784]

Re : Boucle For...Next

Ok merci, mais c'est quoi la différence, ca donne la meme chose ?