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

Romain31

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

Pièces jointes

  • Test date.xlsx
    10.2 KB · Affichages: 9

Romain31

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

Discussions similaires

Réponses
2
Affichages
293