Extraction de date VBA excel

hydr · 19 Janvier 2011

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 · 19 Janvier 2011

Re : Extraction de date VBA excel

Bonjour Hydr

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

Code:

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

Softmama · 19 Janvier 2011

Bonjour hydr,

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

VB:

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 · 20 Janvier 2011

Re : Extraction de date VBA excel

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

Extraction de date VBA excel

hydr

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

Softmama

XLDnaute Accro

hydr

XLDnaute Nouveau

Discussions similaires