Macro date et heure

Bonjour le forum.

Je n'ai jamais toucher Date encore, et je m'y met ^^

Voici les faits:

Feuil("00000")

Range("A2:A10000") numéro de 00001 a 10000

Range("G2:G10000") Des noms

Range("GD2:GD10000") Des dates.

Les dates sont ajuster a chaque fois qu'il y a une modification sur sa ligne ( se qui représente une mise a jour).

Feuil("Fiche d'information")

J'aimerais, sur cette feuille répertorier les joueurs qui n'ont pas fait de mise a jour depuis un bon bout de temps.

De B2 a B+ mettre le numéro du joueur.

De C2 a C+ mettre le nom du joueur.

De D2 a D+ Mettre le nombre de mois depuis la dernière mise a jour.

Ne pas lister le joueur qui ont fait une mise a jour dans les quatre mois. (Donc now-date mise a jour = plus que 4 mois, on les listes.)

Dernier truc, les case 2 a 10000 ne sont pas tous remplis, mais elle n'as pas d'espace, donc xlup peut marcher (afin de ne pas tous les traité pour rien :S)

A partir de cette liste, je pourrai m'amuser avec de forme conditionnel.

Je sais que ma demande demande est possible (je n'ai jamais vue le forum dire que se ne l'était pas xD) mais si le cœur vous en dit, je prendrais bien un petit coup de pouce

Merci d'avance.

Peri

P.s. je présente mon projet a mon organisation demain !!! (Le cœur qui palpite!!!)

Re,

un fichier exemple

bonne chance pour demain....

https://www.excel-pratique.com/~files/doc/essai_dates_perigord.xls

Merci Felix, tu n'est vraiment pas loin de se que je recherche !!!!

Est-til possible d'arriver au même résultat sans avoir la colonne Dates ? (ou si obliger de la garder, la mettre dans la colonne A afin que je la mettent de la même couleur que le fond et quel devienne invisible )

J'aurais bien voulu modifier le code moi même, mais il est d'un niveau plus avancer que ma connaissance actuel :S

Merci d'avance et merci pour la chance (Une nuit blanche devant moi je crois )

Peri

Bonsoir,

Si tu veux une laps de temps, de retard, il te faut quand même une référence, non?

RE bonjour Felix,

Et est-il possible de créé cette référence dans la colonne GE de la feuille 00000 ?

Afin de ne garder que #numero, nom et nombre de mois dans la feuille d'information ...

JE demande, si cela est trop compliquer, je vais laisser ainsi et tout simplement masquer la colonne.

Peri

EditSub retardataires()
With Sheets("00000")
    .Range("A1:GD" & .[GD65000].End(xlUp).Row).Name = "base"
End With
With Sheets("Fiche d'information")
        .Columns("C:E").Hidden = False
        .Range("B2:E10000").ClearContents
        .[G2].FormulaR1C1 = _
        "='00000'!RC186<DATE(YEAR(TODAY()),MONTH(TODAY())-4,DAY(TODAY()))"
    Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
        "G1:G2"), CopyToRange:=.Range("B1:D1"), Unique:=False
    .[E2].FormulaR1C1 = "=(TODAY()-RC[-1])/30"
    .[E2].AutoFill Destination:=Range("E2:E" & .[B65000].End(xlUp).Row)
    .Columns("E:E").NumberFormat = "0"
    .[G2].ClearContents
        .Columns("D").Hidden = True
End With
End Sub

Nickel Merci Felix! Tes une vrai Brute!