XL 2010 Extraire une date dans une chaine via VBA

[Loustalot33]

Bonjour,

Je suis débutant dans le codage VBA.
J'ai besoin d'extraire et mettre dans une autre colonne la date. Cette date est toujours sous la même forme et se trouve toujours à la fin.
Le contenu des cellules est variable.
Je n'arrive pas à écrire le code pour couper la date et la copier dans la 1ère cellule à droite.
Quelqu'un peut m'aider ?

ex:
2521.6.0068006158 09/08/2016
AV16-01413 08/08/2016
3164938 05/08/2016

 

[Yurperqod]

Bonjour le forum

Par formule
=DROITE(A1;A10)

On peut aussi prendre Données/Convertir en choisissant l'espace comme séparateur
et en cochant Date dans la rubrique Format des données en colonne

Cette macro est le reflet de l'utilisation de cette méthode

Sub Macro1()
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Space:=True, FieldInfo:=Array(Array(1, 9), Array(2, 4))
End Sub

Les données à extraire sont en colonne A et le résultat s'affichera en colonne B.

 

[Loustalot33]

Génial merci Yuperqod.
Pour généraliser cette méthode à l'ensemble de ma colonne, je n'arrive pas à remplacer Range("B1") par offset (1,0)
Il me manque quoi ?
Merci de ton retour

 

[Yurperqod]

Pour lancer la macro, il faut d'abord avant sélectionner la colonne A.
Les dates alors sont bien mises en colonne B.

Si la colonne doit être la colonne adjacente à la colonne sélectionnée, on peut faire çà

Sub Macro1()
Dim Col As Long
Col = Selection.Column
Selection.TextToColumns Destination:=Cells(1, Col + 1), DataType:=xlDelimited, Space:=True, FieldInfo:=Array(Array(1, 9), Array(2, 4))
End Sub

 

[Loustalot33]

Tu t'appuies apparemment sur l'espace avant la date, je peux en avoir aussi dans la chaine ;-(
Dans ce cas, ça écrase les colonnes suivantes.
Comment gérer ce probleme ? As-tu une méthode ?
ex : F6201 + A6582 10/08/2016

 

[Yurperqod]

On peut cocher Colonnes non distribuées pour les colonnes inutiles
C'est plus simple à expliquer quand on fait le Donnés/Convertir manuellement donc essaies de jouer sur les paramètres en convertissant quand il y a plusieurs espaces.

Et pour avoir les lignes VBA, il faut laisser tourner l'enregistreur de macros tout en faisant le Données/Convertir.

 

[pierrejean]

bonjour à tous

Avec une fonction personnalisée

 

[Yurperqod]

Si c'est trop compliqué avec Données/Convertir alors on peut faire cette macro aussi.

Sub Macro2()
Dim Cell As Range
For Each Cell In Selection
Cell.Offset(, 1) = CDate(Split(Cell, " ")(UBound(Split(Cell, " "))))
Next
End Sub

 

[Loustalot33]

Merci à vous 2, je piannote ça ce we et revient vers vous
Bon we et merci encore

 

[Loustalot33]

Bonjour,

Je suis désolé, je n'arrive pas à avoir le résultat. Je vous joins directement le fichier pour que ce soit plus simple.
Mon besoin : déplacer la date sur la colonne de droite.

Merci d'avance

 

[Yurperqod]

Bonjour le forum

macro testée sur ton dernier fichier

Sub Macro()
Dim Cell As Range, Chaine As String
For Each Cell In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
On Error Resume Next
Chaine = Split(Cell.Text, " ")(UBound(Split(Cell.Text, " ")))
If IsDate(CDate(Chaine)) Then
Cell.Offset(, 1).Value = CDate(Chaine)
End If
Next
End Sub

 

[pierrejean]

Re
ton fichier avec la fonction personnalisée

 

[Loustalot33]

Génial merci vous êtes des pros.
Par contre, Est-ce qu'on peut enlever la date de la colonne A une fois qu'elle est copiée en B ?
Merci

 

[pierrejean]

Re

Vois si cela te convient