Bonjour,
le code ci dessous: ne teste et transfere que deux lignes. Alors que quatre ligne corresponde au critere OK.
Je suis donc obligé, de relancer la macro plusieurs fois pour qu'il teste toute les celllules.
D'ou pourrait provenir le bug?
Vous en remerciant d'avance.
le code ci dessous: ne teste et transfere que deux lignes. Alors que quatre ligne corresponde au critere OK.
Je suis donc obligé, de relancer la macro plusieurs fois pour qu'il teste toute les celllules.
D'ou pourrait provenir le bug?
Code:
Sub EOD()
Workbooks![HISTORIQUE.XLSM].Activate
Worksheets("SHEET1").Select
For Each C In Workbooks![HISTORIQUE.XLSM].Worksheets("SHEET1").RANGE("BY11:BY" & RANGE("BY65536").End(xlUp).Row)
If UCase(C.Text) = "OK" Then
C.EntireRow.Select
Selection.Copy
Sheets("SHEET2").Select
RANGE("A" & Application.Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("SHEET1").Select
Selection.EntireRow.Delete Shift:=xlUp
Else
End If
Next
End Sub
Vous en remerciant d'avance.