[Résolu] Probleme boucle toute simple pourtant

Marsh Posté le 24-03-2006 à 11:29:05

Salut all , voila mon petit prob avec If Then ...
Le premier for marche nikel
LE second ne s'execute pas ... une idée ?

Code :

Sub espoir()
Set Selec = Worksheets("Selection des choix" )
Set Calc = Worksheets("Calculs dépréssu" )
For k = 3 To (2 + Selec.Cells(33, 4))
Calc.Cells(k, 1) = Calc.Cells(k - 1, 1) + Selec.Cells(35, 4)
Next k
End
If Selec.Cells(24, 5).Value <> 0 Then
For k = 2 To (1 + Selec.Cells(33, 4))
Calc.Cells(k, 8) = Selec.Cells(24, 5)
Next k
End
End If
End Sub

A noter que la valeur dans la case Selec.Cells(24,5) = 300 donc bien différente de zéro
Merci
[:shurik_tt_bis] :jap:

Message édité par cosmospirit le 27-03-2006 à 10:55:02

Marsh Posté le 24-03-2006 à 11:29:05

Marsh Posté le 24-03-2006 à 11:35:04

Salut cosmospirit,
C'est quoi ces "end" en lignes 11 et 18 ?
Tu dois sortir du programme en ligne 11.

@+

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Marsh Posté le 24-03-2006 à 11:35:38

Bonjour Cosmospirit
Bonjour à tous

Je pense que tu devrais réinitialiser "k" à 0 car il doit garder la valeur du premier for, mais je n'ai pas essayer
Cordialement

Marsh Posté le 24-03-2006 à 11:39:18

il faut pas un end à la fin d'un FOR ?

Message édité par cosmospirit le 24-03-2006 à 11:39:32

Marsh Posté le 24-03-2006 à 11:41:04

HAN c'était ça ........ pas de end en fin de boucle for ...l'habitude d'autres langages ..zut Merci pour votre aides les amis

Marsh Posté le 24-03-2006 à 12:00:23

de rien cosmo manque juste un petit résolu dans le titre

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *