Afficher la date sur une ligne avec un bouton

[T77XDD]

Bonjour,
j'ai créé un tableau et je cherche à afficher la date à l'aide d'un bouton sur une ligne en fusionnant les cellules.
Jusque là c'est OK, par contre chaque fois que je clique sur mon bouton la date s'affiche dans les cellules où j'ai créé la macro

Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+q
'
    ActiveCell.FormulaR1C1 = "=TODAY()"
End Sub
Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+s
'
    Range("A2:e2").Select
    Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A6").Select
End Sub

Voilà ce que j'ai sur les propriétés de macro.
Comment dire 'sépare les lignes déjà enregistrées par une ligne qui partage le tableau & que cette date ne se modifie pas'.
Merci.

 

[Victor21]

Re : Afficher la date sur une ligne avec un bouton

Bonjour et bienvenue sur XLD

Tentez d'exposer à nouveau votre demande en tenant compte du fait que nous ne connaissons pas votre tableau.
Joignez un extrait de votre fichier Excel représentatif de ce problème, avec le résultat attendu

 

[T77XDD]

Re : Afficher la date sur une ligne avec un bouton

Merci pour votre réponse rapide,
par qu'elle balise afficher le tableau?
De toute façon il s'agit d'un tableau standart avec "Heure/Nom/Prénom/Objet prété/Rendu le"

 

[Modeste geedee]

Re : Afficher la date sur une ligne avec un bouton

Bonjour,
j'ai créé un tableau et je cherche à afficher la date à l'aide d'un bouton sur une ligne en fusionnant les cellules.
Jusque là c'est OK, par contre chaque fois que je clique sur mon bouton la date s'affiche dans les cellules où j'ai créé la macro

......    
ActiveCell.FormulaR1C1 = "=TODAY()"
......

que cette date ne se modifie pas'.

sourire...
il ne faut pas mettre une formule car excel va recalculer automatiquement.
mais ceci :

......    
ActiveCell.value = TODAY()
......