Salut à tous,
Dans le cadre d'un projet, j'ai rencontré une difficulté par rapport au traitement de données, précisément les dates, le site d'où j'importe les dates, me les donne sous un format spécial par exemple pour la date 12/01/2013, elle est importé sous forme de TEXTE comme suit: Le 12 janv. 2013. Je les ai traitées sous plusieurs méthodes.
Sans le Code VBA: par la procédure REMPLACER "Le " par "" et remplacer "." par "", ça marche. mais la méthode que je dois utiliser c'est bien le code VBA, j'ai essayé par deux méthodes, le format devient 12/01/2014 mais sous format texte.
Je vous joint un extrait de mon travail dont les méthodes VBA. Je vous pris de bien vouloir y remédier à ce problème.
Bonne soirée et bon WEEKEND.
Date Ouverture Haut Bas Clôture Volume Clôture ajustée*
le 17 janv. 2014 1 844,23 1 846,04 1 835,23 1 838,70 3 626 120 000 1 838,70
le 16 janv. 2014 1 847,99 1 847,99 1 840,30 1 845,89 3 491 310 000 1 845,89
le 15 janv. 2014 1 840,52 1 850,84 1 840,52 1 848,38 3 777 800 000 1 848,38
le 14 janv. 2014 1 821,36 1 839,26 1 821,36 1 838,88 3 353 270 000 1 838,88
le 13 janv. 2014 1 841,26 1 843,45 1 815,52 1 819,20 3 591 350 000 1 819,20
le 10 janv. 2014 1 840,06 1 843,15 1 832,43 1 842,37 3 335 710 000 1 842,37
Les procédures sous VBA;
Sub suggestion1()
Dim Cell As Variant
For Each Cell In Selection
Cell.Value = Replace(Cell.Value, "le ", "")
Next Cell
For Each Cell In Selection
Cell.Value = Replace(Cell.Value, ".", "")
Next Cell
End Sub
Sub suggestion2()
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="le ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
