Re : comprendre une boucle
Je ne pense pas que ce soit une bonne idée car le code est trés trés long.
cependant, je vais mettre la partie du code ou je pense ca bug:
ws2.Select
Dim derligne1%, derligne2%
Dim i1%, i2%
derligne1 = Sheets("Conso_Dpt").Range("D65536").End(xlUp).Row
derligne2 = ws2.Range("p65536").End(xlUp).Row
For i2 = 1 To derligne2
For i1 = 14 To derligne1
If Sheets("Conso_Dpt").Range("D" & i1) = ws2.Range("p" & i2) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets("Conso_Dpt").Range("D" & derligne1 + 1) = ws2.Range("p" & i2)
derligne1 = Sheets("Conso_Dpt").Range("D65536").End(xlUp).Row
Suivant:
Exist = 0
Next
Sheets("Conso_Dpt").Select
Rows(13).Hidden = False
derligne1 = Range("E65536").End(xlUp).Row
derligne2 = Range("D65536").End(xlUp).Row
Range("A13:C13").Copy
Range(Cells(derligne2 + 1, 1), Cells(derligne1 + 1, 3)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E13:GF13").Copy
Range(Cells(derligne2 + 1, 5), Cells(derligne1 + 1, 188)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Rows(13).Hidden = True
Sheets("Conso_Dpt").Select
Calculate
Range("A14:HH10000").Select
Selection.Copy
Range("A14:HH10000").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ws2.Select
Dim derligne3%, derligne4%
Dim i3%, i4%
derligne3 = Sheets("Conso_Dpt").Range("F65536").End(xlUp).Row
derligne4 = ws2.Range("D65536").End(xlUp).Row
For i4 = 1 To derligne4
For i3 = 14 To derligne3
If ws13.Range("F" & i3) = ws2.Range("D" & i4) Then
Exist = 1
GoTo Suivant2
End If
Next
If Exist = 1 Then GoTo Suivant2
Sheets("Conso_Dpt").Range("F" & derligne3 + 1) = ws2.Range("D" & i4)
derligne3 = Sheets("Conso_Dpt").Range("F65536").End(xlUp).Row
Suivant2:
Exist = 0
Next
voila le premier passe trés bien et fait son boulot, le deuxieme ca coince.
Merci pour toute forme d'aide.