Tableau Excel : retenir la date la plus récente dans l'année

Version imprimable

07/04/2009, 11h06
Nahtalie

Tableau Excel : retenir la date la plus récente dans l'année

Bonjour,

Voila j'ai un tableau avec plusieurs dates d'arrêté comptable par exemple :

pour l'année 2008 (je prends l'année la plus simple, car les autres années je peux avoir plusieurs dates) j'ai :

31/03/2008
30/06/2008
30/09/2008
31/12/2008

Or, pour chaque ligne je ne souhaite conservé que la plus récente (dans mon exemple 31/12/2008) et faire "pêter" les autres lignes.

Comment puis-je faire ?

nat
07/04/2009, 11h48
Nahtalie

J'ai oublié de préciser que ça doit être fait automatiquement.

Soit pas une fonction Excel (ou peut etre une macro, je sais pas).

L'objectif est de garder la date d'arrêté comptable la plus récente.
Pour les années passées ça va je pourrais m'arranger mais pour 2009 par exemple il faudrait que ça se fasse automatiquement.

Je suis pas sure d'être claire, désolée, des fois c'est pas évident de s'exprimer sur un problème Excel.

D'avance merci,
nat

supprimer des dates

Essaie avec le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub sc()
 
Dim plage As Range
Dim a As Date
Dim cellule As Range
 
Set plage = Worksheets("Feuil1").Range("A1:A100")
    a = Application.WorksheetFunction.Max(plage)
        For Each cellule In plage
            If cellule < a Then cellule.Value = ""
        Next cellule
End Sub

10/04/2009, 17h18
Nahtalie

Bonjour JPierre,

Merci pour le code, mais en faisant ça en fait il me garde que les dates au 31/03/2009, or, il faut aussi que je puisse garder les dates au 31/12 uniquement des autres années.

T'as une idée ?

++
nat:D
10/04/2009, 18h00
Jean-Philippe André

salut,
encore aurait-il fallu le spécifier ;)

à adapter :

Code:

If cellule < a And Left(Cstr(cellule),5)<>"31/12" Then cellule.Value = ""
13/04/2009, 20h01
Nahtalie

Merci pour ta réponse, mais malheureusement c'est pas encore tout à fait ça.

Car pour 2009, la date la plus récente c'est 31/03/2009.

Désolée, mais c'est pas facile d'expliquer (dans ma tête c'est clair pourtant mdrrrr!)

++
nat
13/04/2009, 22h24
ucfoutu

Citation:

Envoyé par Nahtalie

Désolée, mais c'est pas facile d'expliquer (dans ma tête c'est clair pourtant mdrrrr!)

Bonsoir, Nathalie,

je vais alors t'aider à reformuler ton problème :

Tu as plusieurs dates et tu voudrais pouvoir identifier, pour chacun des millésimes de ces dates, la date la plus grande et ne retenir que cette date pour le millésime concerné.
Ce qui fait que tu retiendras 2 dates si les dates sont réparties sur 2 années, 3 si réparties sur 3 années etc...

La chose importante dont tu ne nous as pas parlé : ces dates sont-elles triées (et si oui : dans quel ordre). ?
14/04/2009, 11h54
Nahtalie

Citation:

Envoyé par ucfoutu

Bonsoir, Nathalie,

je vais alors t'aider à reformuler ton problème :

Tu as plusieurs dates et tu voudrais pouvoir identifier, pour chacun des millésimes de ces dates, la date la plus grande et ne retenir que cette date pour le millésime concerné.
Ce qui fait que tu retiendras 2 dates si les dates sont réparties sur 2 années, 3 si réparties sur 3 années etc...

La chose importante dont tu ne nous as pas parlé : ces dates sont-elles triées (et si oui : dans quel ordre). ?

Merci beaucoup pour cette reformulation, très claire.

Oui j'ai trié le fichier sur la colonne "dates" par ordre croissant, mais on peux le trier autrement si c'est plus simple.

D'avance merci de votre aide sur ce casse-tête,
++
nat

Code:

1 2 3 4 5 6 7 8 Dim i As Long, DerniereLigne As Long DerniereLigne = Range("A1").End(xlDown).Row For i = DerniereLigne - 1 To 2 Step -1 'commence à l'avant dernière ligne fini çà la deuxième on ne teste pas la ernière date If Cells(i, 1) < Cells(i + 1, 1) And Year(Cells(i, 1)) = Year(Cells(i + 1, 1)) Then Cells(i, 1).EntireRow.Delete End If Next i
Voila en partant du principe que les date sont en colonne A quelle commence à la deuxième ligne et que tu veux supprimer toutes la ligne et qque les dates sont bien trié par ordre croissant

14/04/2009, 14h54
ucfoutu
Salut, krovax...

aucune utilité de vérifier que la date de la cellule au dessus est plus petite que celle de la cellule de rang i (Nathalie nous a exposé que le tri était croissant)

Il suffit donc de partir de la dernière cellule et de remonter jusqu'à la seconde, en supprimant la ligne i -1 chaque fois que la date de i est égale à celle de i -1
Code:

1 2 3 For i = DerniereLigne To première ligne + 1 Step -1 If Year(Cells(i, 1)) = Year(Cells(i - 1, 1)) Then Cells(i-1, 1).EntireRow.Delete Next i
14/04/2009, 15h15
Krovax

effectivement ca raccourcie un peu le code, il suffit comme tu le dit de repérer les changement d'année