flo2002
XLDnaute Impliqué
Re bonjour à tous,
encore une macro bancale mais qui doit pas etre loin de fonctionner. Un coup d'oeil d'expert doit suffir.
Sub MAJ_RF()
Sheets('Extract_AFU').Visible = True
Sheets('Rolling_Forecast').Select
Cells.Select
Selection.RemoveSubtotal
Range('a1').Select
Dim Derligne1%, Derligne2%
Dim i1%, i2%
Dim Exist
Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Derligne2 = Sheets('Extract_AFU').Range('c65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
If Sheets('Extract_AFU').Range('c2' & i2) = Sheets('Rolling_Forecast').Range('e10' & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('Rolling_Forecast').Range('e10' & Derligne1 + 1) = Sheets('Extract_AFU').Range('c2' & i2)
Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Suivant:
Exist = 0
Next
Sheets('Extract_AFU').Visible = False
End Sub
Merci d'avance!
si besoin je peux donner plus d'explication quand à sa fonction.
encore une macro bancale mais qui doit pas etre loin de fonctionner. Un coup d'oeil d'expert doit suffir.
Sub MAJ_RF()
Sheets('Extract_AFU').Visible = True
Sheets('Rolling_Forecast').Select
Cells.Select
Selection.RemoveSubtotal
Range('a1').Select
Dim Derligne1%, Derligne2%
Dim i1%, i2%
Dim Exist
Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Derligne2 = Sheets('Extract_AFU').Range('c65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
If Sheets('Extract_AFU').Range('c2' & i2) = Sheets('Rolling_Forecast').Range('e10' & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('Rolling_Forecast').Range('e10' & Derligne1 + 1) = Sheets('Extract_AFU').Range('c2' & i2)
Derligne1 = Sheets('Rolling_Forecast').Range('e65536').End(xlUp).Row
Suivant:
Exist = 0
Next
Sheets('Extract_AFU').Visible = False
End Sub
Merci d'avance!
si besoin je peux donner plus d'explication quand à sa fonction.