Sub supppimerHeure() Dim plagecell As Range For Each plagecell In Selection If IsDate(plagecell) = True Then plagecell.Value = VBA.Int(plagecell.Value) End If Next Selection.NumberFormat = "dd-mmm-yy” End Sub
Pour les données où vous avez des cellules vides, vous pouvez utiliser le code ci-dessous pour ajouter des zéros dans toutes ces cellules. Cela facilite l’utilisation de ces cellules dans des calculs ultérieurs.