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

Romain31

XLDnaute Junior
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
 

Fichiers joints

pierrejean

XLDnaute Barbatruc
Bonjour Romain31
Teste cette macro
VB:
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

XLDnaute Junior
Bonjour Romain31
Teste cette macro
VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas