Macro insère date

Bonjour à tous,

Je cherche une macro pour m'inscrire la date de modification, après changement de ma validation de données.

EN B1 j'ai une validation de données, une liste personnalisée (07,08,09,...............12,01,02,03,04,05,06)

je souhaiterais, à chaque fois que je change de (mois)

elle (macro) saisisse le jour de ce changement dans la cellule B4. voir exemple

Je ne suis pas très claire.

Mais je vous mets ma boule de cristal....

Cordialement,

Bonjour,

Je n'ai pas compris. Ce n'est pas déjà le cas ?

Bonjour,

Je pense que le code suivant devrait t'aider

Public Function DateDuJour() As Date
    DateDuJour = Date
End Function

Pour appeler la date il faut procéder de la sorte (si tu as mis la fonction dans le module 1)

Range("A1") = Module1.DateDuJour

Tu peu ensuite extraire de la date générée, le jour avec la formule (pas VBA):

=JOUR(A1)

A mettre dans ta cellule où tu veux récupérer ton jour.

Je pense qu'il y a moyen d'intégrer la formule en VBA mais je ne sais pas le faire

Cette solution ne résous pas ton problème en entier mais je pense que cela peu te donner des pistes

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim m
    If Target.Address = "$D$1" Then
        m = Now
        Me.Range("B4") = "Modifié le " & Format(m, "dddd dd mmm yyyy") & " à " _
         & Format(m, "hh:mm:ss")
    End If
End Sub

dans le module de la feuille.

Cordialement.

Re bonjour à tous,

Avec un peu de retard, je prends vos messages.

MFerrand , j'avais essayé "Worsheet_Change,

ce qu'il me manquait c'est "If target.adress = "$D$1" Then

et "End If"

Je prend cette belle macro.

Merci Monsieur Ferrand

Oui Raja, j'avais dans mon exemple insérer la formule (Maintenant())

Fazzbetter, j'ai déjà quelque chose dans A1 !

Merci à tous qui ont répondu et peut être que cela pourra servir,

à quelqu'un si il pose la bonne question.

Marie, à bientôt