L
lufy50
Guest
Bonjour à tous,
Me revoila avec, comme d'habitude, un probleme de programmation.
Bon alors, voila, j'ai une base 1 de données, je souhaite qu'une boucle passe sur chaque ligne et que si le n° d'ordo correspond a un autre numero dans la base 2, on remplace la ligne de la base 2.
Or, la macro telle quel me copies les données jusqu'a la ligne 1500
Merci de votre aide;
Lucy
PS :je vous mets le code car le fichier est vraiment trop gros .
Me revoila avec, comme d'habitude, un probleme de programmation.
Bon alors, voila, j'ai une base 1 de données, je souhaite qu'une boucle passe sur chaque ligne et que si le n° d'ordo correspond a un autre numero dans la base 2, on remplace la ligne de la base 2.
Or, la macro telle quel me copies les données jusqu'a la ligne 1500
Merci de votre aide;
Lucy
PS :je vous mets le code car le fichier est vraiment trop gros .
Code:
Sub ajout()
Sheets("Données").Activate
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(2, 1)).Select
For Each Rw In Selection.Rows
ligne = Rw.Row
If Worksheets("temp").Cells(1, 2).Value = Worksheets("données").Cells(1, 2).Value Then
L = Worksheets("Données").Range("C65536").End(xlUp).Row + 1
Rw.Copy Destination:=Worksheets("données").Cells(L, 1).EntireRow
End If
Next Rw
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
