Macro séparation suppression date/heure

[Aubernon]

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

si quelqu'un à ça, je suis preneur , merci

fichier : onglet data

 

[JHA]

Bonjour à tous,

Sans macro, tu sélectionnes les colonnes "J à P" puis dans l'onglet "Accueil" tu cliques sur les jumelles "rechercher et sélectionner"/remplacer
29/08/2016 10:30:00
par 10:30
remplacer partout
OK

JHA

 

[Aubernon]

merci mais évidement ce n'est pas la même partout , si tu regarde le fichier les donnée se font sur une semaine en fonction de noms métier et jour travailler

 

[Paf]

Bonjour à tous,

un essai, à tester :

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

 

[JHA]

Bonjour à tous,

Ci joint le fichier avec la méthode définie plus haut.

Oups! pas compris que tu voulais modifier toutes les dates, déolé.

JHA

 

[Modeste geedee]

Bonsour®

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

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

 

[Aubernon]

Bonjour à tous,

un essai, à tester :

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

super ça marche nickel , merci