Extraction de date VBA excel

[hydr]

Bonjour,

J'aimerais extraire les dates d'une colonne contenant aussi du texte.
Exemple: Lez (01-09-09) 0.1 N
J'ai besoin uniquement des dates pour faire mes graphiques et pour l'instant j'en suis réduite à supprimer le texte à la main case par case.
Est-ce qu'il y aurait un moyen de faire ça avec une macro?
Merci!

 

[MJ13]

Re : Extraction de date VBA excel

Bonjour Hydr

Tu peux tester cette formule (attention ce sera du texte), il faudra recopier en valeur.

=STXT(A1;CHERCHE("-";A1;1)-2;8)

 

[Softmama]

Bonjour hydr,

Tu peux faire ainsi : (ici, je suppose que les données sont en colonne A)

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row) 'Si données en colonne A, sinon remplacer les 3 A par le bon libellé de colonne
      If InStr(c, "(") > 0 Then c = Mid(c.Text, InStr(c, "(") + 1, 8) 'Je cherche '(' dans la cellule et garde que les 8 caractères qui le suivent
Next c
End Sub

[EDIT] Bjour MJ13

 

[hydr]

Re : Extraction de date VBA excel

Merci beaucoup, ça marche super bien!
Je vais pouvoir gagner énormément de temps!