Bonjour job75,
Merci d'avoir pris le temps de répondre à mon problème.
J'ai utilisé votre macro et cela fonctionne parfaitement. J'ai modifier chaque colonne à copier coller et tout fonctionne à merveille ^^
J'ai juste un souci avec la suite de ma programmation.
'Copie Observation
Windows("CourantDataFile").Activate
With Sheets("CourantDataFile")
derlig = .Cells(.Rows.Count, "L").End(xlUp).Row
If derlig < 100 Then Exit Sub
.Cells(derlig - 99, "L").Resize(100).Copy
End With
Windows("Final").Activate
With ActiveSheet
.Range("H20").PasteSpecial xlPasteValuesAndNumberFormats
Application.Goto .Range("A1"), True 'cadrage
End With
Application.CutCopyMode = 0
'inversion sens collage
Dim oRange As Range, DataRange As Range
Dim arrData() As Variant, arrInversed() As Variant
Dim r As Long, c As Long
' Identifiez la plage à partir de F19
Set oRange = ThisWorkbook.Worksheets("Feuil1").Range("F19").CurrentRegion
' Pour ne prendre que les données et exclure le titre
Set DataRange = oRange.Offset(1, 0).Resize(oRange.Rows.Count - 1)
' Charger la plage de données dans un tableau
arrData = DataRange.Value
ReDim arrInversed(1 To UBound(arrData, 1), 1 To UBound(arrData, 2))
' Inversez les lignes du tableau
For r = LBound(arrData, 1) To UBound(arrData, 1)
For c = LBound(arrData, 2) To UBound(arrData, 2)
arrInversed(UBound(arrData, 1) - r + 1, c) = arrData(r, c)
Next c
Next r
' Écrivez le tableau inversé dans la plage
DataRange.Value = arrInversed
' Libèrer la mémoire
Set oRange = Nothing: Set DataRange = Nothing
'suppression des filtres
ActiveSheet.AutoFilterMode = False
'Fermeture classeur
Windows("CourantDataFile.xlsm").Close
MsgBox "Les données ont bien été copier", 64
End If
La partie en vert s'exécute correctement, mais la partie suivante en rouge ne s'exécute plus je ne sais pas pourquoi. Une idée ?
Merci beaucoup.