hellocarioca
XLDnaute Occasionnel
Bonjour,
j'utilise la macro suivante sur excel 2007 et qd je la transfert sur une version 2000 d'excel rien ne se passe !
' MacroArchive Macro
Dim NumLigne1 As Long, NumLigne2 As Long
Dim I As Long, J As Long
NumLigne1 = Sheets("Dispute_DB").Range("T65536").End(xlUp).Row
NumLigne2 = Sheets("Closed Disputes").Range("T65536").End(xlUp).Row
I = 2
Do While I <= NumLigne1
If Sheets("Dispute_DB").Range("S" & I) = "Closed" Then
NumLigne2 = NumLigne2 + 1
For J = 2 To 20
Sheets("Closed Disputes").Cells(NumLigne2, J) = Sheets("Dispute_DB").Cells(I, J)
Next
Sheets("Dispute_DB").Range("S" & I).EntireRow.Delete
Else
I = I + 1
End If
Loop
End Sub
Est ce que qq'1 a une idée pour la faire fonctionner sur la version 2000 !!
Merci bcp
Maud
j'utilise la macro suivante sur excel 2007 et qd je la transfert sur une version 2000 d'excel rien ne se passe !
' MacroArchive Macro
Dim NumLigne1 As Long, NumLigne2 As Long
Dim I As Long, J As Long
NumLigne1 = Sheets("Dispute_DB").Range("T65536").End(xlUp).Row
NumLigne2 = Sheets("Closed Disputes").Range("T65536").End(xlUp).Row
I = 2
Do While I <= NumLigne1
If Sheets("Dispute_DB").Range("S" & I) = "Closed" Then
NumLigne2 = NumLigne2 + 1
For J = 2 To 20
Sheets("Closed Disputes").Cells(NumLigne2, J) = Sheets("Dispute_DB").Cells(I, J)
Next
Sheets("Dispute_DB").Range("S" & I).EntireRow.Delete
Else
I = I + 1
End If
Loop
End Sub
Est ce que qq'1 a une idée pour la faire fonctionner sur la version 2000 !!
Merci bcp
Maud