Boucle while

Bonjour,

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

Cordialement

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

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

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
merci de ce code
je ne sias pas comment finir ce code près Loop je sais pas terminer
merci encore de m'iader

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,
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

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 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

merci beaucoup de votre aide bonne soiree