Corrigé une boucle

TOUATI -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je voudrai simplifié ces 06 conditions par une boucle mais ça n'a pas marché

FOR i + 15 TO 16
IF ZCODE = i then
TXTNJ_LIGNE1 = TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1

End If
NEXT i


LES 06 CONDITIONS SONT :
If ZCODE = 15 Then
TXTNJ_LIGNE1 = TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
Else

If ZCODE = 16 Then
TXTNJ_LIGNE1 = TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
Else

If ZCODE = 17 Then
TXTNJ_LIGNE1 = TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
Else

If ZCODE = 18 Then
TXTNJ_LIGNE1 = TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
Else

If ZCODE = 19 Then
TXTNJ_LIGNE1 = TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
Else

If ZCODE = 20 Then
TXTNJ_LIGNE1 = TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
Else



If TXTN_LIGNE1 = "" Then
TXTNJ_LIGNE1 = (CDate(TXTD2_LIGNE1) - CDate(TXTD1_LIGNE1))
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
Else



TXTNJ_LIGNE1 = (CDate(TXTD2_LIGNE1) - CDate(TXTD1_LIGNE1)) * TXTN_LIGNE1
TXTMTHT_LIGNE1 = TXTNJ_LIGNE1 * TXTPU_LIGNE1
End If
End If
End If
End If
End If
End If
End If

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
ne serait-ce pas plutôt:
For i=15 to 20
0

Discussions similaires

Quelqu'un a le corrigé du livre transmath 3eme ?
leila -
irongege -

1 réponse
Corrigé d'un exercice du livre transmaths 3e
maudi95 -
AssassinTourist -

1 réponse
Corrigés 350 exercices niveau moyen
Profrances -
shizukalinka -

1 réponse
Transmath 4e reponse
choux7 -
zipe31 -

1 réponse
Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses