Macro séparation suppression date/heure

Aubernon à dit:

Bonjour ,

Je recherche le moyen de créer une macro qui me permettrai de supprimer la date de plusieur cellule dans un tableau de donnée .
exemple: 29/08/2016 10:30:00
résultat: 10:30
fichier : onglet data

Cliquez pour agrandir...

Sub toto()
Dim cellule As Range
For Each cellule In Range("J2:P33")
If cellule > 0 Then
cellule = TimeValue(cellule)
cellule = cellule - Int(cellule)
End If
Next
End Sub

Paf à dit:

Bonjour à tous,

un essai, à tester :

Code:

Sub Heure()
Dim i As Long, j As Long
With Worksheets("DATA")
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row 'pour les lignes 2 à dernière
    For j = 10 To 16 'pour les col J à P
        If Cells(i, j) <> "" Then Cells(i, j) = Format(CDate(Cells(i, j)), "hh:mm")
    Next
Next
End With
End Sub

A+

Edit : si le volume de données était très important, donc un temps de traitement long, on pourrait envisager le passage par des tableaux

Cliquez pour agrandir...