Stopper boucle for

Bonsoir a tous,

alors voila je suis bloque avec un code et je sollicite votre aide car la boucle ne s'arrete pas et continue a me copier les informations

je souhaiterai qu'une fois la boucle arrive a la derniere ligne la stopper ;

Je vous remercie d'avance

Mon code:

With ActiveSheet

n = .Range("c" & .Rows.Count).End(xlUp).Row

For i = 2 To n

j = 0

Do

'ton code... Exemple :

' BZ.WriteScreen .Cells(i + j, 3).Value, 2, 29

' BZ.WriteScreen .Cells(i + j, 5).Value, 2, 51

' BZ.WriteScreen .Cells(i + j, 6).Value, 5, 5

BZ.WriteScreen .Cells(i + j, 8).Value, 2, 11

BZ.SendKey "@E"

'-----------------------------------------------------------------------------------------------------------

'.Cells(1, CONSColumn + 1).FormulaR1C1 = "CONS Information"

'.Cells(1, CONSColumn + 1).Font.ColorIndex = 5

' .Cells(1, CONSColumn + 1).Font.Bold = True

'.Cells(1, CONSColumn + 2).Font.ColorIndex = 5

' .Cells(1, CONSColumn + 2).Font.Bold = True

.Cells(1, CONSColumn + 12).FormulaR1C1 = "Orig"

.Cells(1, CONSColumn + 13).FormulaR1C1 = "Dest"

.Cells(1, CONSColumn + 14).FormulaR1C1 = "Date"

.Cells(1, CONSColumn + 15).FormulaR1C1 = "Time(Z)"

.Cells(1, CONSColumn + 16).FormulaR1C1 = "CONS Unit"

.Cells(1, CONSColumn + 17).FormulaR1C1 = "Qty"

BZ.ReadScreen DisplayText, 5, 3, 6 ' orig

.Cells(i + j, 12).Value = VBA.Trim(DisplayText)

BZ.ReadScreen DisplayText, 5, 3, 26 ' dest

.Cells(i + j, 13).Value = VBA.Trim(DisplayText)

BZ.ReadScreen DisplayText, 6, 2, 62 ' date

.Cells(i + j, 14).Value = VBA.Trim(DisplayText)

BZ.ReadScreen DisplayText, 4, 2, 77 ' Time

.Cells(i + j, 15).Value = VBA.Trim(DisplayText)

BZ.ReadScreen DisplayText, 15, 3, 47 ' Uld

.Cells(i + j, 16).Value = VBA.Trim(DisplayText)

BZ.ReadScreen DisplayText, 5, 3, 71 ' Qty

.Cells(i + j, 17).Value = VBA.Trim(DisplayText)

'**************************************************************************************************************

j = j + 1 'teste cellule suivante

Loop While .Cells(i + j, 3) = .Cells(i + j - 1, 3)

i = i + j - 1

BZ.SendKey "@E"

'BZ.pause 2

'********************************************************************************

Next i

End With

Bonjour,

Conseil : Il faut baliser les codes avec l'outil Code pour que ça soit lisible. De plus c'est une partie du code apparemment.

L'analyse n'est pas facile.

L'ideal est de joindre le fichier qui contient la macro.

Question :

Elle se trouve où l'instruction

Next i

qui est la fin du boucle For ?