Boucle while

merci beaucoup de votre aide bonne soiree

bonjour,
si ca marche c'est quoi que tu veux faire et qui ne marche pas ?
et aussi pourquoi tu n'imbrique pas 2 boucles for ?

Sub testeur()
for i=2 to 8
For j = 2 To 6
Cells(i, j).Value = InputBox("montant")
Next j
next i
End Sub

Sub testeur()
Dim i As Integer, j As Integer, index As Integer

i = 2: j = 2

While i < 9
'ecrire sur une ligne
For j = 2 To 6
Cells(i, j).Value = InputBox("montant")
Next j
'incrementer d'une ligne
i = i + 1
j = 2
Wend

End Sub

voici ce que j'ai ecris cela fonctionne bien peut être que c'est pa sorthodoxe mais bon le résultat est là ce cegrace à vous merci beaucou^p

bonjour,
si tu met :
while i=1 and j=10
...
wend
tu sortira de la boucle quand :
soit i different de 1
soit j different de 10
si tu met :
while i=1 or j=10
...
wend
tu sortira de la boucle quand :
i different de 1
ET
j different de 10
a toi de voir selon ton besoins

Bonjour à tous

Comme ça n'a pas l'air d'être concluant, peux tu nous expliquer en "bon français" le contenu de ta boucle, quelque chose du genre

Tant que cettte condition est réalisée
  je fais ça
  puis ça
  puis ça
fin tant que

Cdlmnt

bonjour
merci de ce code
je ne sias pas comment finir ce code près Loop je sais pas terminer
merci encore de m'iader

re

Dim i As Integer =2
Dim j As Integer = 10

While ( i = 2 and j = 10 )
 ...    
End While 

cdt
En informatique 99% des problèmes se situent entre le fauteuil et le clavier

Bonjour,

Personnellement j'écrirais plutôt :

    Do While i + j = 10
        ' 2e contôle, si echec sortie de la boucle
        If i <> 2 Then Exit Do
        'suite du code...
        
    Loop

bonjour
A ma connaissance il faut faire une boucle dans une boucle.
cordialement

Bonjour,

pour évaluer une condition ( resultat booleen ), il suffit de la mettre entre parentheses

Cordialement