Le Hollandais Volant

Macro Excel : insérer la date d’enregistrement dans une cellule.

// dans le module VBA :
// Changez le format la case (A1 ici) selon les besoins
Option Explicit
Sub fillDate()
    With Range("A1")
        .Value = Now()
        .NumberFormat = "mm/dd/yyyy hh:mm:ss"
    End With
End Sub


// dans le "ThisWorkbook du VBAProject
// La classe “BeforeSave” est l’évenement interne qui est lancé juste avant la sauvegarde.
// Cette évenement peut alors appeler la fonction “fillDate” définie par l’utilisateur dans le modude VBA.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    fillDate
End Sub


// Avec tout ça, la case A1 ici recevra la date et l’heure d’enregistrement.
// Une façon simple d’insérer la date courante dans une cellule (et qui ne soit pas mise à jour automatiquement,
//   mais manuellement quand on veut) est de faire « Ctrl + ;  », puis « espace », puis « Ctrl + : », dans la cellule voulue.

Détecter la couleur d’une cellule dans Excel

// nouveau module :
Function ColorIndex(CellColor As Range)
    ColorIndex = CellColor.Interior.ColorIndex 
    ActiveWorkbook.ForceFullCalculation = True
End Function

// Puis utiliser la fonction ColorIndex()