référence de tri non valide
Bonjour à tous,
j'essaye de trier des dates de la plus ancienne à la plus récente mais j'ai une erreur "référence de tri non valdie et je ne comprends pas pourquoi...
Pouvez-vous m'aider svp?
voici mon code:
Code:
Workbooks("suivi investigations").Sheets("clos").Range("A" & LigDeb & ":V" & LigFinCLOS).Sort Key1:=Range("A1"), Order1:=xlAscending
En fait, je transfert dès qu'il y a une date dans la colonne A de la feuille "en cours" les valeur dans la feuille "clos" et j'aimerais une fois le transfert terminé que cela soit trié de la plus ancienne à la plus récente.
voici mon code entier:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Sub TransFertCLOS()
Dim LigFinCOURS As Long
Dim LigFinCLOS As Long
Dim LigDeb As Long
Dim C As Range
Dim i As Integer
Dim n As Integer
X = MsgBox("Êtes-vous sur de vouloir transférer les données closes ? Cette opération peut prendre plusieurs minutes", vbYesNo, "transfert des données closes")
If X = vbNo Then
Exit Sub
End If
If Workbooks("suivi investigations").Sheets("en cours").AutoFilterMode = True Then
Workbooks("suivi investigations").Sheets("en cours").AutoFilterMode = False
End If
If Workbooks("suivi investigations").Sheets("clos").AutoFilterMode = True Then
Workbooks("suivi investigations").Sheets("clos").AutoFilterMode = False
End If
Application.ScreenUpdating = False
LigFinCOURS = Workbooks("suivi investigations").Sheets("en cours").Cells(Rows.Count, 3).End(xlUp).Row + 1
LigDeb = 2
LigFinCLOS = Workbooks("suivi investigations").Sheets("clos").Cells(Rows.Count, 3).End(xlUp).Row + 1
Application.ScreenUpdating = False
For i = LigFinCOURS To LigDeb Step -1
If Workbooks("suivi investigations").Sheets("en cours").Cells(i, 1).Value <> "" Then
LigFinCLOS = Workbooks("suivi investigations").Sheets("clos").Cells(Rows.Count, 3).End(xlUp).Row + 1
Workbooks("suivi investigations").Sheets("en cours").Cells(i, 1).EntireRow.Copy Workbooks("suivi investigations").Sheets("clos").Range("A" & LigFinCLOS)
Workbooks("suivi investigations").Sheets("en cours").Cells(i, 1).EntireRow.Delete
End If
Next i
LigFinCLOS = Workbooks("suivi investigations").Sheets("clos").Cells(Rows.Count, 3).End(xlUp).Row + 1
If LigDeb <> LigFinCLOS Then
Workbooks("suivi investigations").Sheets("clos").Range("A" & LigDeb & ":V" & LigFinCLOS).Sort Key1:=Range("A1"), Order1:=xlAscending
End If
Workbooks("suivi investigations").Sheets("en cours").Range("A1:V1").AutoFilter
Workbooks("suivi investigations").Sheets("clos").Range("A1:V1").AutoFilter
End Sub |
merci d'avance de votre aide