Bonjour à tous,
J'ai un probleme de dépassement de capacité sur ma macro ci-dessous qui fonctionnait très bien jusqu'à maintenant.
Savez vous d'ou cela peut venir, le beug se produit dès la 3ème ligne.
Merci d'avance
J'ai un probleme de dépassement de capacité sur ma macro ci-dessous qui fonctionnait très bien jusqu'à maintenant.
Savez vous d'ou cela peut venir, le beug se produit dès la 3ème ligne.
Merci d'avance
Code:
Sub ActuOrigin()
derl = Sheets("Masterdata").Range("A" & Rows.Count).End(xlUp).Row
derc = Sheets("Masterdata").Cells(10, Columns.Count).End(xlToLeft).Column
Tablo1 = Sheets("Masterdata").Range(Sheets("Masterdata").Cells(11, 1), Sheets("Masterdata").Cells(derl, derc))
For f = 2 To Worksheets.Count
derlin = Sheets(f).Range("A" & Rows.Count).End(xlUp).Row
dercol = Sheets(f).Cells(10, Columns.Count).End(xlToLeft).Column
Tablo2 = Sheets(f).Range(Sheets(f).Cells(11, 1), Sheets(f).Cells(derlin, dercol))
For n = LBound(Tablo1, 1) To UBound(Tablo1, 1)
For m = LBound(Tablo2, 1) To UBound(Tablo2, 1)
If Tablo1(n, 1) = Tablo2(m, 1) Then
For p = 20 To dercol
Tablo1(n, p) = Tablo2(m, p)
Next
End If
Next
Next
Next
Sheets("Masterdata").Range("A11").Resize(UBound(Tablo1, 1), UBound(Tablo1, 2)) = Tablo1
End Sub