Ajouter un ligne avec la date du jour

fireman118 à dit:

en A1 je souhaiterais avoir la date du jour mais que celle-ci reste tel quelle si on ouvre le jour suivant le fichier Excel. Donc pas de fonction =Aujourd'hui.

Cliquez pour agrandir...

Sub HeureAuto()
    Range("A1") = Now
    Range("A1").NumberFormat = "dd/mm/yy;@"
End Sub

fireman118 à dit:

Deuxièmement, je voudrais que quand j'arrive en C1 (donc à la fin de mon tableau), une ligne s'ajoute à la fin, mais que reprenne, non pas les données de la ligne du dessus, mais les formats de cellules ainsi que les listes (validation de données).

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro enregistré par Excel-lent
  If Target.Column = 3 Then
    For i = 2 To 3
        Cells(Target.ligne, i).Select
        Selection.Copy
        Cells(Target.ligne + 1, i).Select
        Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
           SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
          SkipBlanks:=False, Transpose:=False
    Next i
  End If
End Sub

fireman118 à dit:

Je ne sais pas si je suis assez clair, c'est pas toujours évidant d'expliquer comme ça 😱

Cliquez pour agrandir...

kjin à dit:

Bonjour,
Un exemple avec double-click sur la colonne date
A+
kjin

Cliquez pour agrandir...

kjin à dit:

Re,
Ci joint le fichier modifié
A+
kjin

Cliquez pour agrandir...