fonction "until"?

[_RV]

salut à tous,

je cherche à savoir s'il existe une fonction 'until', je m'explique:

j'ai un code du type:

for k = 1 to 4
If Cells(i,j+k).Value < 4 Then Cells(i,j).delete (c'est un exemple, le vrai code n'est pas celui-là)

end if

Next k until cells(i,j+k).Value>4


cad, passe au k suivant jusqu'à ce que la valeur de la cellule i,j+k soit supérieure à 4,

est-ce que ce 'until' existe dans excel, qqun voit?

merci beaucoup...

 

[Creepy]

Hello

Essaie ca :

Dim i as integer
i = cells(i,j+k).Value
Do
for k = 1 to 4
If Cells(i,j+k).Value < 4 Then Cells(i,j).delete (c'est un exemple, le vrai code n'est pas
celui-là)
end if
Next k
Loop While i > 4

Voila

Tu as plusieurs posssibilités de boucle : Do while, Do until, regarde dans l'aide VBA à 'do'

++

Creepy

 

[myDearFriend!]

Re:fonction \"until\"?

Bonjour _RV, Creepy,

Si j'ai bien compris le problème :

For K = 1 To 4
      If Cells(i, j + K).Value < 4 Then
            Cells(i, j).Delete
      Else
            Exit For
      End If
Next K

Cordialement.

Message édité par: myDearFriend!, à: 29/03/2005 12:03

 

[François l'aîné]

Bonjour à toutes et à tous

Si je ne me trompe, il ya les 2 types de boucle avec test au début ou à la fin, suivant que l'on doive y passer au moins une fois :

Do While (ou Until)
Instructions
Loop

Do
Instructions
Loop While (ou Until)

Cordialement

François

 

[Creepy]

Hello,

Tu as bien compris

++

Creepy

 

[_RV]

re-salut à tous, désolé pour le délai de reponse, mais j'ai fini par y arriver, je vous joins le fichier avec lequel j'ai bossé pour ceux qui veulent, sinon le code ressemble à ca:

Sub rgpt()


For j = 2 To 15




For i = 5 To 14 + 4

Cells(i, j).Select
demande = Selection.Value





'regroupements petites charges

If demande > 9 Then

k = 1

Do

&micro; = Cells(i, j + k).Value

If Cells(i, j + k).Value < 9 Then
Cells(i, j).Value = Application.WorksheetFunction.Sum(Range(Cells(i, j), Cells(i, j + k)))
demande = Selection.Value
Cells(i, j + k).Clear

Else: Cells(i, j).Value = demande

End If

k = k + 1

Loop While k < 4 And j + k < 17 And &micro; < 9

End If

Next i
Next j



End Sub


voilà, merci à tous, bonne soirée

Hervé. [file name=test_regle3.zip size=9078]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_regle3.zip[/file]