XL 2010 Récupérer une valeur au format date

[Romain31]

Bonjour à tous,
Les données de la colonne A proviennent d'un résultat de sous-total part date.
Le but est de récupérer ce contenu au format date.
En B2 - La formule =DROITE(A2;9) me permet de retirer le texte (Total).
En B3 - la valeur seule est récupérée mais toujours pas de format numérique.
Le rêve aurait été une solution directe en VBA pour transformer directement le contenu de la colonne A pour la suite du traitement (et éviter des manipulations intermédiaires)..
Si vous avez des idées, un grand merci.
Et une excellente journée à tous

 

[pierrejean]

Bonjour Romain31
Teste cette macro

Sub test()
For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
  Range("A" & n) = DateValue(Split(Range("A" & n))(1))
Next
End Sub

 

[Romain31]

Bonjour Romain31
Teste cette macro

Sub test()
For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
  Range("A" & n) = DateValue(Split(Range("A" & n))(1))
Next
End Sub

Bonjour Pierrejean,
C'est tout simplement génial et tu me dépannes une nouvelle fois.
C'est exactement ce que je cherchais. fonctionnel et en peu de lignes.
Peux-tu m'expliciter un peu le code.
Un grand merci et une excellent journée

 

[pierrejean]

Re
Utilise l'aide (F1) pour les fonctions Split et Datevalue ce sera le plus clair