Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel problème de date en tesxt et en série

problème de date en tesxt et en série

3 réponses
Avatar
Jimbo
Bonjour à toutes et à tous,

j'ai un colonne avec des dates en format different comme le tableau
ci-dessous :

User Login date / time Tool Status
John Peters 18/06/2003 18:55 Application Success
John Peters 18/06/2003 16:33 Application Success
John Peters 17/06/2003 22:41 Application Success
John Peters 37961,77222 Application Success
John Peters 37961,70208 Application Success
John Peters 37961,68889 Application Success


est-ce que quel qu'un pourrait me dire comment je pourrais convertir tout en
date JJ/MM/AAAA ?

Merci beaucoup d'avance,

James
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Jimbo,

Avec la plage de cellule sélectionnée...

Sub JohnPeters()
Dim c As Range
Dim i As Integer
Application.ScreenUpdating = False
For Each c In Selection
If Application.CountIf(c, "*,*") Then
n = ""
For i = 1 To Len(Trim(c))
If IsNumeric(Mid(c, i, 1)) = True Or Mid(c, i, 1) = "," Then
n = n & Mid(c, i, 1)
End If
Next i
c = "John Peters " & _
Format(1 * n, "dd/mm/yyyy hh:mm") & _
" Application Success"
Else: c = c
End If
Next c
End Sub


ChrisV


"Jimbo" a écrit dans le message de news:

Bonjour à toutes et à tous,

j'ai un colonne avec des dates en format different comme le tableau
ci-dessous :

User Login date / time Tool Status
John Peters 18/06/2003 18:55 Application Success
John Peters 18/06/2003 16:33 Application Success
John Peters 17/06/2003 22:41 Application Success
John Peters 37961,77222 Application Success
John Peters 37961,70208 Application Success
John Peters 37961,68889 Application Success


est-ce que quel qu'un pourrait me dire comment je pourrais convertir tout
en

date JJ/MM/AAAA ?

Merci beaucoup d'avance,

James




Avatar
michdenis
Bonjour Jimbo,

Juste pour le plaisir, si tu possède une version Excel 2000 ou plus récent, tu peux essayer ceci :
Tu sélectionnes ta plage et tu exécutes la macro

'--------------------
Sub LesDates()
Dim S As String, R As String
For Each c In Range("A1:A2")
If Split(c.Value, " ")(3) Like "Application" Then
S = Split(c.Value, " ")(2)
R = Format(CDate(Split(c.Value, " ")(2)), "dd/mm/yyyy HH:MM") & " " & Split(c.Value, " ")(3)
c.Value = Replace(c.Value, S, R)
End If
Next
End Sub
'--------------------


Salutations!





"Jimbo" a écrit dans le message de news:
Bonjour à toutes et à tous,

j'ai un colonne avec des dates en format different comme le tableau
ci-dessous :

User Login date / time Tool Status
John Peters 18/06/2003 18:55 Application Success
John Peters 18/06/2003 16:33 Application Success
John Peters 17/06/2003 22:41 Application Success
John Peters 37961,77222 Application Success
John Peters 37961,70208 Application Success
John Peters 37961,68889 Application Success


est-ce que quel qu'un pourrait me dire comment je pourrais convertir tout en
date JJ/MM/AAAA ?

Merci beaucoup d'avance,

James
Avatar
michdenis
une légère correction :

'--------------------
Sub LesDates()
Dim S As String, R As String
For Each c In Selection
If Split(c.Value, " ")(3) Like "Application" Then
S = Split(c.Value, " ")(2)
R = Format(CDate(Split(c.Value, " ")(2)), "dd/mm/yyyy HH:MM") & " " & Split(c.Value, " ")(3)
c.Value = Replace(c.Value, S, R)
End If
Next
End Sub
'--------------------


Salutations!




"michdenis" a écrit dans le message de news:%
Bonjour Jimbo,

Juste pour le plaisir, si tu possède une version Excel 2000 ou plus récent, tu peux essayer ceci :
Tu sélectionnes ta plage et tu exécutes la macro

'--------------------
Sub LesDates()
Dim S As String, R As String
For Each c In Range("A1:A2")
If Split(c.Value, " ")(3) Like "Application" Then
S = Split(c.Value, " ")(2)
R = Format(CDate(Split(c.Value, " ")(2)), "dd/mm/yyyy HH:MM") & " " & Split(c.Value, " ")(3)
c.Value = Replace(c.Value, S, R)
End If
Next
End Sub
'--------------------


Salutations!





"Jimbo" a écrit dans le message de news:
Bonjour à toutes et à tous,

j'ai un colonne avec des dates en format different comme le tableau
ci-dessous :

User Login date / time Tool Status
John Peters 18/06/2003 18:55 Application Success
John Peters 18/06/2003 16:33 Application Success
John Peters 17/06/2003 22:41 Application Success
John Peters 37961,77222 Application Success
John Peters 37961,70208 Application Success
John Peters 37961,68889 Application Success


est-ce que quel qu'un pourrait me dire comment je pourrais convertir tout en
date JJ/MM/AAAA ?

Merci beaucoup d'avance,

James