Question sur l'utilisation de While

Bonsoir

je sollicite votre aide pour un tout petit code que j'ai écrit et qui est le suivant et dont le test ne fournit aucune réponse :

While j < 5 And j >= 2
 j = j + 1
 Cells(2, j) = j
Wend

le resultat attendu est que les cellules Cells(2,1), cells(2,2) ..cells(2,5) prennent les valeurs 2,3,4 et 5 , seulement rien ne se passe

est ce le fait de la double condition dans while ?

Merci pour vos réponses

oups !! je viens de comprendre j'ai oublié d'initialiser ma variable j , merci quand meme !!

Bonsoir,

l'on voit pas ou tu initialise ta variable j , pour mémoire la valeur par défaut d'un entier (ou un long..) est 0 .. donc si tu n'effectue aucune initialisation particulière j prends la valeur 0 lors du premier passage dans while et ne respecte pas la condition j>= 2 , du coup aucun passage dans la boucle..

Bonsoir

A tester

j = Range("A1")
While j < 5 And j >= 1
 j = j + 1
 Cells(2, j) = j
Wend
End Sub

merci pour vos réponses , j'ai pu faire comme suit et ca marche !

For p = 0 To 4
    j = p
 While j < 5 And j >= p
   j = j + 1
   Cells(p + 1, j) = j
 Wend
Next