[VBA-E] Format date SAP vers Excel

Re : [VBA-E] Format date SAP vers Excel

Bonjour


Comme cela ca semble etre Ok non?

Sub test()
If ActiveCell Like "??.??.????" Then MsgBox "ok"
End Sub

Sub test2()
's'il faut etre sur qu'on traite des dates , un test de plus
If IsNumeric(Right(ActiveCell, 4)) And ActiveCell Like "??.??.????" Then MsgBox "ok"
End Sub

Re : [VBA-E] Format date SAP vers Excel

Bonjour,

Si tu sais que la colonne D contient que des dates, tu peux essayer :

Sub test()
For Each Cel In Columns("D😀")
Cel = Application.Substitute(Cel, ".", "/")
Next Cel
End Sub

Ou bien avec le Test de Staple :

Sub test()
For Each Cel In Columns("D😀")
If Cel Like "??.??.????" Then Cel = Application.Substitute(Cel, ".", "/")
Next Cel
End Sub

ou

Sub test()
For Each X In Columns(4).SpecialCells(xlCellTypeConstants, 23)
X.Value = CDate(Application.Substitute(X.Value, ".", "/"))
Next
End Sub


Mais il faut que les jours et les mois soient codés sur 2 digits

Re : [VBA-E] Format date SAP vers Excel

Re

edit: question: que veut-dire VBA-E, stp ?


Ca semble fonctionner non?
edit: bonjour Catrice


->Eve_75: ton fichier contient 65536 lignes à traiter?

Re : [VBA-E] Format date SAP vers Excel

Re,

Ou bien (toujours, s'il y a que des dates dans la colonne D) :

Sub Test2()
Columns(4).Replace What:=".", Replacement:="/", LookAt:=xlPart
End Sub

Toujours sans boucle :
Sub Test()
Columns(4).TextToColumns Destination:=Columns(4), DataType:=xlDelimited, FieldInfo:=Array(1, 4)
End Sub



Edit : Bonjour Staple

Re : [VBA-E] Format date SAP vers Excel

bonjour a tous

ma version

Re : [VBA-E] Format date SAP vers Excel

Catrice à dit:

Bonjour,
Si tu sais que la colonne D contient que des dates

Cliquez pour agrandir...

-> Oui

Catrice à dit:

Sub test()
For Each Cel In Columns("D😀")
Cel = Application.Substitute(Cel, ".", "/")
Next Cel
End Sub

Cliquez pour agrandir...

-> Toutes les cellules de la colonne D se transforme en "#NOMBRE"

Catrice à dit:

Ou bien avec le Test de Staple :

Sub test()
For Each Cel In Columns("D😀")
If Cel Like "??.??.????" Then Cel = Application.Substitute(Cel, ".", "/")
Next Cel
End Sub

Cliquez pour agrandir...

-> plante à la ligne " If Cel Like "??.??.????" Then "

Catrice à dit:

Sub test()
For Each X In Columns(4).SpecialCells(xlCellTypeConstants, 23)
X.Value = CDate(Application.Substitute(X.Value, ".", "/"))
Next
End Sub

Cliquez pour agrandir...

-> Plante à la ligne "X.Value = CDate(Application.Substitute(X.Value, ".", "/"))"

Staple1600 à dit:

question: que veut-dire VBA-E, stp ?

Cliquez pour agrandir...

C'est pour dire VBA-Excel, par différence avec Access ou d'autres

Staple1600 à dit:

Ca semble fonctionner non?

Code:

Sub testII()
Dim Annee As Integer, Mois As Integer, Jour As Integer
Dim Cel As Range
Dim lastrow As Long
lastrow = Range("D65536").End(xlUp).Row
For Each Cel In Range("d1:d" & lastrow)
If IsNumeric(Right(Cel, 4)) And Cel Like "??.??.????" Then
        Annee = Right(Cel, 4)
        Mois = Mid(Cel, 4, 2)
        Jour = Left(Cel, 2)
        Cel = DateSerial(Annee, Mois, Jour)
    End If
Next Cel
 End Sub

Cliquez pour agrandir...

YESSSSS ca marche !!! Merci beaucoup, c'est quand meme étonnant que les autres macros marchent chez les autres et pas chez moi... Merci a tous de m'avoir aidé !

Staple1600 à dit:

->Eve_75: ton fichier contient 65536 lignes à traiter?

Cliquez pour agrandir...

Non, mais je ne me souviens plus comment nommer toute une plage... Pour une cellule, je nomme "fin_colonne_A" et je met la formule =DECALER(Feuil1!$A$2;NBVAL(yr12!$A:$A)-1;0;1;1)
Mais pour tout une plage je ne me rappelle plus ? 😕

Catrice à dit:

Sub Test2()
Columns(4).Replace What:=".", Replacement:="/", LookAt:=xlPart
End Sub

Cliquez pour agrandir...

-> Cela me met la date au format mm/jj/aaaa

Catrice à dit:

Toujours sans boucle :
Sub Test()
Columns(4).TextToColumns Destination:=Columns(4), DataType:=xlDelimited, FieldInfo:=Array(1, 4)
End Sub

Cliquez pour agrandir...

-> Test OK !!!! Ca marche

pierrejean à dit:

Code:

Option Explicit
Sub test()
Dim Cel As Range
For Each Cel In Range("D1:D" & Range("D65536").End(xlUp).Row)
 If IsDate(Replace(Cel.Value, ".", "/")) Then
  Cel.Value = CDate(Replace(Cel.Value, ".", "/"))
 End If
Next Cel
End Sub

Cliquez pour agrandir...

-> Test OK, merci PJ !!!

Re : [VBA-E] Format date SAP vers Excel

Re,

Le plantage de solutions que j'ai proposées doit etre lié au données.
Il faudrait voir sur quelle donnée ça plante.
Le format mm/jj/aaaa il suffit de formater la cellule en Vba.