[VB6] Condition d'une boucle

Bonjour,
C'est pas un problème VisualBasic que tu as, mais un problème de compréhension de l'algorithmie.

Tu souhaite sortir de ta boucle quand 'Condition1=Vrai ET Condition2=Vrai'
Donc il faut boucler tant que 'Condition1=Faux OU Condition2=Faux'

Et donc il faut remplacer ton And par un Or ;
Tant que l'un OU l'autre est faux, on boucle. Donc en sortie de boucle les deux seront vrais.
Dans ton cas, tu sors dès que l'un des deux est vrai.

Cordialement, M.

Bonjour,

Pourquoi faire un While ?

Tu parcours un tableau avec pour index "placeBrebis". Essaie ça:

Dim i As Long 

For i = LBound(TBrebis()) To UBound(TBrebis()) 
     If TAjoutAgnelage.Num_brebis = TBrebis(placeBrebis).noBrebis And _ 
           TAjoutAgnelage.date_nais = TBrebis(placeBrebis).dateNaissance Then 

          'mon code 

     End If 
Next i

;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau