blocage sur une instruction For Next et Exit For
Bonjour,
Je n'arrive pas à voir quel est le soucis dans mon code mais le programme ne passe qu'une seule fois dans le for et je ne sais pas pourquoi il ne continue pas tous les Lignes de 7 à 30, sachant qu'il est sencé s'arreter à 28....
Voyez vous quel est le pb?
merci
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Sub testcopiedonneeestcdW2()
'
'
Dim PremiereLigne As Integer
Dim DerniereLigne As Integer
Dim Ligne As Integer
PremiereLigne = 7
DerniereLigne = 7
Sheets("TCD_W2").Select
Var = Range("A18").Value
MsgBox ("test=" & Var)
For Ligne = PremiereLigne To 30
MsgBox ("Ligne=" & Ligne)
If Cells(Ligne, 1).Value = "Total général" Then DerniereLigne = Ligne - 1
Exit For
Next Ligne
MsgBox ("PremiereLigne =" & PremiereLigne)
MsgBox ("DerniereLigne =" & DerniereLigne)
Range(Cells(PremiereLigne, 1), Cells(DerniereLigne, 2)).Select
Selection.Copy
Sheets("INDEX").Select
Range(I8).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |