thierry440
XLDnaute Junior
Bonjour
Dans le code suivant je duplique les enregistrements d'une feuille BDR vers une autre feuille IND ligne par ligne.
Par contre je voudrais limiter la recopie ligne par ligne jusqu'à colonne AD vers la feuille IND
ci-joint le code utilisé :
Dim i2 As Long
Application.ScreenUpdating = False
With Sheets("BDR")
For i2 = .Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
If .Range("AA" & i2) Like "Réalisé*" Then
With .Rows(i2)
.Copy Destination:=Sheets("IND").Range("a" & Rows.Count).End(xlUp)(2)
End With
End If
Next
End With
Merci d'avance
Dans le code suivant je duplique les enregistrements d'une feuille BDR vers une autre feuille IND ligne par ligne.
Par contre je voudrais limiter la recopie ligne par ligne jusqu'à colonne AD vers la feuille IND
ci-joint le code utilisé :
Dim i2 As Long
Application.ScreenUpdating = False
With Sheets("BDR")
For i2 = .Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
If .Range("AA" & i2) Like "Réalisé*" Then
With .Rows(i2)
.Copy Destination:=Sheets("IND").Range("a" & Rows.Count).End(xlUp)(2)
End With
End If
Next
End With
Merci d'avance