Bonjour à tous,
Malgé cette superbe journée parisienne ( ... ) je ne mettrai pas le pied dehors!
Du coup il me reste excel!
Après plusieurs recherches sur le forum et sur ce site qui m'a d'ailleurs appris beaucoup de choses, je n'arrive pas tout à fait à faire ce que je veux.
J'ai un fichier qui retrace l'historique des valeurs d'un produit.
Ce que j'aimerai faire, c'est de pouvoir copier une partie de cette historique à partir d'une date donnée.
Malheureusement, ce code ne prend pas en compte la date donnée...
De plus, il y a plusieurs valeurs par dates, est ce possible, lors de la suppression des doublons de ne garder que la dernière valeur de chaque date?
Ce code trouvé ici ne garde pas les dernières valeurs de chaque date.
Je pense qu'il ne manque pas grand chose, mais je sèche...
Je vous joins un fichier avec un onglet pour le fichier original et un onglet avec le résultat souhaité.
Merci d'avance!
A+
Okedekpe
Malgé cette superbe journée parisienne ( ... ) je ne mettrai pas le pied dehors!
Du coup il me reste excel!
Après plusieurs recherches sur le forum et sur ce site qui m'a d'ailleurs appris beaucoup de choses, je n'arrive pas tout à fait à faire ce que je veux.
J'ai un fichier qui retrace l'historique des valeurs d'un produit.
Ce que j'aimerai faire, c'est de pouvoir copier une partie de cette historique à partir d'une date donnée.
Code:
Sub Test()
Dim d As Date
d = "1 / 1 / 2007"
[A:A].Find(What:=d, LookIn:=xlValues).Select
ActiveCell.CurrentRegion.Resize(, 2).Select
Selection.Copy Destination:=Sheets(2).Range("F1")
End Sub
Malheureusement, ce code ne prend pas en compte la date donnée...
De plus, il y a plusieurs valeurs par dates, est ce possible, lors de la suppression des doublons de ne garder que la dernière valeur de chaque date?
Code:
Sub doublons()
Dim n As Integer
Sheets(2).Columns("F:F").Select
Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For n = Range("F65536").End(xlUp).Row To 2 Step -1
On Error Resume Next
If Range("F" & n) = Range("A" & n - 1) Then
Rows(n).Delete
End If
Next n
End Sub
Ce code trouvé ici ne garde pas les dernières valeurs de chaque date.
Je pense qu'il ne manque pas grand chose, mais je sèche...
Je vous joins un fichier avec un onglet pour le fichier original et un onglet avec le résultat souhaité.
Merci d'avance!
A+
Okedekpe