Bonjour à tous,
Je ne sais pas si j'aurai beaucoup de réponses à cette heure mais bon.
J'ai un petit soucis avec mes lignes de VBA. Elles ont fonctionné une ou deux fois puis, sans rien avoir changé à ma connaissance, l'erreur 1004 est apparue...
Sub EssaiMacro()
Dim Cellules As Range
Dim LaCel As Range
Set Cellules = Range("E138:E1499")
Set Cellules = ActiveSheet.Range("E138:E1499")
Cells.Find(What:=Application.WorksheetFunction.Max(Cellules), After:=ActiveCell).Activate
DateDernièreSaisie = Cells(4, 14)
Cells((139 + Month(DateDernièreSaisie)), (Right(Year(DateDernièreSaisie), 2) - 2)) = ActiveCell.Offset(0, -2).Value
End Sub
Auriez-vous une suggestion?
Merci, bonne soirée
Je ne sais pas si j'aurai beaucoup de réponses à cette heure mais bon.
J'ai un petit soucis avec mes lignes de VBA. Elles ont fonctionné une ou deux fois puis, sans rien avoir changé à ma connaissance, l'erreur 1004 est apparue...
Sub EssaiMacro()
Dim Cellules As Range
Dim LaCel As Range
Set Cellules = Range("E138:E1499")
Set Cellules = ActiveSheet.Range("E138:E1499")
Cells.Find(What:=Application.WorksheetFunction.Max(Cellules), After:=ActiveCell).Activate
DateDernièreSaisie = Cells(4, 14)
Cells((139 + Month(DateDernièreSaisie)), (Right(Year(DateDernièreSaisie), 2) - 2)) = ActiveCell.Offset(0, -2).Value
End Sub
Auriez-vous une suggestion?
Merci, bonne soirée
Dernière édition: