Figer date et heure

Bonjour a tous, je voudrais créer une macro sur Excel 2010.

Figer date et heure en fonction d'une action, je m'explique.

Je remplis A1 avec un chiffre une lettre, n'importe quoi.

A ce moment je veux la date en B1 et l'heure en C1

et cela répété en colonne A, et jusqu'à A100 ou A300 !

Cette macro existe car je l'avais trouvé sur le web mais j'ai u un problème avec mon PC et j'ai tout perdu.

Pouvez vous m'aider

MERCI

Bonjour,

Code à placer dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A1:A300")) Is Nothing Then
        If Target <> "" Then
            Target.Offset(, 1) = Date
            Target.Offset(, 1).NumberFormat = "dd/mm/yyyy"
            Target.Offset(, 2) = Time
            Target.Offset(, 2).NumberFormat = "hh:mm"
        Else
            Target.Offset(, 1).Resize(, 2) = ""
        End If
    End If
End Sub

A+

Merci Frangy cela fonctionne impec

Merci encore frangy, mais au niveau de la date j'aurai voulu devant je jour en lettre.

Bonjour,

Bonjour frangy,

Modifie ainsi :

Target.Offset(, 1).NumberFormat = "dddd dd/mm/yyyy"

Merci d'avoir répondu Jean-Eric mais ça ne marche pas

Ce que veux, c'est dans la cellule B1 ," Lundi 15 aout 2016"

Re-Bonjour,

Bonjour Jean-Eric,

On va y arriver

Target.Offset(, 1).NumberFormat = "dddd dd mmmm yyyy"

A+

Merci Frangy cette fois ci ça marche et encore merci