Sub removeDate() Dim plagecell As Range For Each plagecell In Selection If IsDate(plagecell) = True Then plagecell.Value = plagecell.Value - VBA.Fix(plagecell.Value) End If NextSelection.NumberFormat = "hh:mm:ss am/pm" End Sub
Il renverra uniquement l’heure à partir d’une valeur de date et d’heure.