XL 2010 Extraire une date dans une chaine via VBA

Yurperqod

XLDnaute Occasionnel

• 30 Septembre 2016

• #2

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

VB:

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.

 

Dernière édition: 30 Septembre 2016

Vote positif 0 Vote négatif

L

Loustalot33

XLDnaute Nouveau

• 30 Septembre 2016

• #3

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

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 30 Septembre 2016

• #4

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 çà

Code:

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

 

Vote positif 0 Vote négatif

L

Loustalot33

XLDnaute Nouveau

• 30 Septembre 2016

• #5

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

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 30 Septembre 2016

• #6

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Septembre 2016

• #7

bonjour à tous

Avec une fonction personnalisée

 

Pièces jointes

• loustalot.xlsm

  12.9 KB · Affichages: 38

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 30 Septembre 2016

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

L

Loustalot33

XLDnaute Nouveau

• 30 Septembre 2016

• #9

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

 

Vote positif 0 Vote négatif

L

Loustalot33

XLDnaute Nouveau

• 3 Octobre 2016

• #10

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

 

Pièces jointes

• Classeur1.xlsx

  14.9 KB · Affichages: 28

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 3 Octobre 2016

• #11

Bonjour le forum

macro testée sur ton dernier fichier

VB:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Octobre 2016

• #12

Re
ton fichier avec la fonction personnalisée

 

Pièces jointes

• Classeur1 (23).xlsm

  22.6 KB · Affichages: 42

Vote positif 0 Vote négatif

L

Loustalot33

XLDnaute Nouveau

• 3 Octobre 2016

• #13

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Octobre 2016

• #14

Re

Vois si cela te convient

 

Pièces jointes

• Classeur1 (23) (1).xlsm

  35.1 KB · Affichages: 37

Vote positif 0 Vote négatif