Discussion :

[kristoch91]

Bonjour

Je dois faire une boucle FOR.
je dois aller de la ligne 3 jusqu'à la cellule de la colonne qui doit être égal à X.
c la deuxième partie que je n'arrive pas à faire (aller à la cellule de la colonne qui doit être égal à X)

quelqu'un pourrait m'aider?

[zandru]

Bonjour,

ce n'est pas un for qu'il faut utiliser mais un while comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
i = 3
While (feuil1.cells (i,colonne) <> X)
    i = i + 1
wend

à adapter bien sur...

[kristoch91]

Voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
i = 3
While ((Worksheets(1).Cells(i, 1)) <> ReferenceSpeed.Speed95_h)
    Si = Si + (Worksheets(1).Cells(i + 1, 1) - Worksheets(1).Cells(i, 1)) * Worksheets(1).Cells(i + 1, 2) + 0.5 * ((Worksheets(1).Cells(i + 1, 1) - Worksheets(1).Cells(i, 1)) * (Worksheets(1).Cells(i + 1, 2) - Worksheets(1).Cells(i, 2)))
    If Si < (0.51 * Stot) Then
     Nmin = Worksheets(1).Cells(i + 1, 1)
     Smin = Si
     Tmin = Worksheets(1).Cells(i + 1, 2)
    Else
     Nmax = Worksheets(1).Cells(i + 1, 1)
     Smax = Si
     Tmax = Worksheets(1).Cells(i + 1, 2)
     Exit while
End If
Wend

il y a moyen de quitter cette boucle si il y a un condition à l'intérieur qui ne va pas?
je dois la quitter mais exit while ne marche pas. il y a moyen de quitter cette boucle si il y a un condition à l'intérieur qui ne va pas?

[ucfoutu]

Bonjour,

Utilise alors la forme Do While .... Loop (à voir dans ton aide en ligne) , qui, elle, permet le Exit Do...