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 : Sélectionner tout - Visualiser dans une fenêtre à part
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