XL 2010 vba : replace modifie le format

Hasco

XLDnaute Barbatruc

Repose en paix

• 6 Mai 2021

• #2

Bonjour,

Une possibilité parmi d'autres :

VB:

c.Value = DateValue(Left(c, 8)) + TimeValue(Replace(Right(c, 5), "h", ":"))

Plus court puisque jj-mm-aaaa est un format "officiel" de date (le système reconnait le - comme séparateur de date en plus du séparateur indiqué dans ses options) :

Code:

        c.Value = CDate(Replace(c.Text, "h", ":"))

Et une seule boucle suffit

Et pour aller plus vite si vous avez beaucoup de date à transformer :

Code:

Sub convert()
    Dim t(), i As Integer
    dl = Worksheets("Feuil1").Range("A100").End(xlUp).Row
    t = Range("A1:A" & dl)
    For i = LBound(t) To UBound(t)
        t(i, 1) = CDate(Replace(t(i, 1), "h", ":"))
    Next i
    Range("A1:A" & dl).Value = t
End Sub

Cordialement

 

Dernière édition: 6 Mai 2021

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 6 Mai 2021

• #3

Ok merci bien pour le plus court j'avais pas pensé à c.Text

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 6 Mai 2021

• #4

dev_co à dit:

c.Text

Cliquez pour agrandir...

Re,

Il n'est pas vraiment obligatoire ici, mais c'est simplement pour rappeler qu'on travaille sur le text de la cellule qui peut être différent de sa valeur lorsque c'est un nombre qui l'occupe.

cordialement

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 6 Mai 2021

• #5

dernier point : je n'arrive pas à retrouver le format d'origine pour les heures en A après le replace et malgré un format d ecellules : jj/mm/aaaa hh:mm ;@ par exemple pour 22/06/2021 16:00 dans la cellule dans la barre de formule on voit 16:00:00 idem si je mets dans une variable car je dois revenir en texte avec 16:00

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Mai 2021

• #6

re
bonsoir
m'en voulez pas trop je vais continuer a travailler avec le value moi

VB:

Sub test()
[E1] = Format(CDate([A1].Value), "dd-mm-yyyy hh""h""mm")
End Sub

reste plus qu'a vous mettre ça dans une boucle

pour faire l'inverse ben l'astuce est simple
vous replacez et formatez en date inverse
la date atterri dans le bon ordre

Code:

Sub test3()
[e15] = Format(Replace([e14].value, "h", ":"), "mm-dd-yyyy hh:mm")
End Sub

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 6 Mai 2021

• #7

?? c'est quoi [e1] , [e15] comment je reformate ma cellule ici de A1 à A7 ? en E c'est juste pour les essais et faire du copier /coller de E en A afin de retrouver les data de base

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Mai 2021

• #8

re
comme ça

VB:

Sub test3()
    For Each cel In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Cells
        cel.NumberFormat = "dd-mm-yyyy hh:mm"
        cel.Value = Format(Replace(cel.Value, "h", ":"), "mm-dd-yyyy hh:mm")
    Next
End Sub

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 6 Mai 2021

• #9

Merci mais ça donne toujours ça dans ma cellule ??

 

Pièces jointes

• sec.jpg

  19.8 KB · Affichages: 4

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 6 Mai 2021

• #10

et ben ca n'est pas ça que tu veux ?

 

Vote positif 0 Vote négatif

D

dev_co

XLDnaute Occasionnel

• 6 Mai 2021

• #11

Non ,est ce que t'as vu la VRAIE valeur dans fx ligne de formule qui elle donne le bon résultat informatique donc en VBA je récupère 16:00:00 et pas 16:00 ?
j'en ai besoin pour créer une string et comparer 16:00:00 n'est pas égal à 16:00

 

Vote positif 0 Vote négatif