Extraire une date

Bonjourm

voici mon probleme, j'ai une cellule qui contient des valeurs de ce type 28.02.2014 01:00,

Excel ne les reconnait dont pas comme etant des dates...

Comment puis -je les transformer en date avec VBA ? j'ai essayer de remplacer les . par des /, mais du coup vba me passe les cellules en format mm/jj/aaaa et cela fausse tout

merci pour votre aide !

Bonjour,

essaye peut être comme ceci :

ActiveCell = CDate(Replace(ActiveCell, ".", "/"))

bon après midi

@+

Merci beaucoup, ca fonctionne nickel sur une cellule

Y aurait il un moyen pour l'appliquer a toutes les cellules d'une ligne ( pour le moment j'utilise une boucle et ca met enormement de temps a tourner)

Merci encore

Bonjour,

En complément de Pierrot93:

Option Explicit
Public Sub conversion()
    With ActiveCell
        .Value = CDate(Replace(ActiveCell, ".", "/"))
        .NumberFormat = "dd/mm/yyyy h:mm"
    End With
End Sub

Re,

Peux-tu envoyer un fichier que l'on voit sa structure, pour mieux te répondre?

Cdlt.

j'ai trouvé, merci !

Re,

Voir fichier.

Option Explicit
Public Sub Conversion()
Dim i As Integer
    Application.ScreenUpdating = False
    For i = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
        Cells(1, i) = CDate(Replace(Cells(1, i), ".", "/"))
        Cells(1, i).NumberFormat = "dd/mm/yyyy h:mm"
    Next
End Sub