[RESOLU] Mise à jour de date automatique sous conditions.

[Neonours]

Bonjour,

Je ne suis pas habitué des forums donc merci d'avance de me pardonner si je commet un impair.

Je vais être le plus clair possible car je n'ai pas la possibilité de poster un fichier d'illustration pour le moment.

Voilà les données de mon problème:

-Nous sommes plusieurs personnes à consulter, modifier ou imprimer un certain fichier excel (2010) mais la fonction de date automatique "=AUJOURDHUI()" ne satisfait pas pleinement nos besoins.

Si la date est bien mise à jour lors de la modification du fichier, elle l'est également lors de son ouverture ou de son impression.

J'ai reçu pour consigne de trouver un moyen pour que la date se mettent à jour automatiquement si le fichier est modifier mais qu'elle ne soit pas mise à jour lors de son ouverture ou de son impression afin que la date qui apparaisse soit celle de la dernière modification et non celle du jour.

Il y a toutefois des impératifs:

-La modification doit être automatique (c'est déjà difficile de faire qu'un changement dans un fichier compris par tous le monde)

-Il ne faut pas que le visuel du fichier change (donc pas de boutons ou autre objet cliquable par exemple pour la même raison qu'au dessus)

Pour vous aidez un peu, voici des données sur le fichier qui doit être modifié:

-Les lignes 1 et 3 sont vierge

-La date qui doit être mise à jour se trouve en K2

-La plage modifiable et donc qui concerne le changement de date est A6:K21

D'avance je remercie toutes celles et tous ceux qui se pencheront sur mon problème.

Neonours

 

[phlaurent55]

Re : Mise à jour de date automatique sous conditions.

Bonjour Neonours, et bienvenue sur le forum

voir fichier joint

à+
Philippe

 

[Neonours]

Re : Mise à jour de date automatique sous conditions.

Merci phlaurent55 pour la bienvenue et pour le fichier.

Je connais bien excel mais je suis complètement novice en ce qui concerne les macros et le VB.

Aurais-tu l'obligeance de m'expliquer comment je peux la voir et surtout, la copier pour la mettre dans chacun des fichiers que je dois modifier stp?

D'avance merci.

Neonours

 

[phlaurent55]

Re : Mise à jour de date automatique sous conditions.

Re,

pour voir le code, presser simultanément Alt+F11

voici le code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A6:K21")) Is Nothing Then
[K2] = Date
End If
End Sub

à+
Philippe

 

[Neonours]

Re : Mise à jour de date automatique sous conditions.

Juste magnifique, un grand merci à toi.

Je crois que je vais m'atteler pour apprendre le VBA!

Encore merci.

Neonours

 

[phlaurent55]

Re : Mise à jour de date automatique sous conditions.

Re,

voici la méthode:

à+
Philippe

 

[Neonours]

Re : Mise à jour de date automatique sous conditions.

C'est tout bon, très joli travail.

Encore une fois merci!

Neonours