Macro permettant de classer et d´eliminer

[Pierre]

Bonjour,

J´aimerais avoir un petit coup de main.

Dans le cadre d´une gestion d´equipe je suis en train de creer une feuille ou mes collaborateur pour inscrire les jours ou ils ne sont pas au bureau et la raison de leur absence (en visite, en vacances etc...).

Existe-t-il une macro permettant de classer par date, et d´eliminer les lignes correspondant a des dates passées.

Merci,

Pierre

 

[Svenza]

Bonjour,
Pourriez-vous fournir un fichier exemple?
Merci,
Sven B)

 

[porcinet82]

salut Pierre,

voila une petite macro qui devrait fonctionner, cependant elle a petit défaut, c'est que tu es obligé de modifier toi même la date lorsque tu réexécute la macro

Sub sup_date()
Range('a2').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 1 To Range('A65536').End(xlUp).Row
    If ActiveCell < #4/13/2005# Then
        Rows(i + 1).Delete
    Else
        ActiveCell = #4/13/2005# Or ActiveCell > #4/13/2005#
        Exit Sub
    End If
Next i
End Sub

sinon elle trie, puis elle supprime les lignes inférieures à la date (ici la date d'aujourd'hui)

bon courage
@+

 

[21ch181]

Porcinet82,

As tu essayer de remplacer ta date 'en dur' dans ta macro par 'now()' qui reprends la date du jour courant ?

Devrait fonctionner normalement !

Alain