Discussion :

[Nahtalie]

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

[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

[JPierreM]

Essaie avec le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Jean-Philippe André]

salut,
encore aurait-il fallu le spécifier

à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If cellule < a And Left(Cstr(cellule),5)<>"31/12" Then cellule.Value = ""

[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