tabYears(j) = Cells(2, c_year) Print #1, tabYears(j)
'-----------Year----------------- Range(Cells(2, 1), Cells(nbLignes, nbColonnes)).Select Selection.Sort Key1:=Cells(2, c_year), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal filetext = "C:\wamp\www\Actis_Analytics\datas\Years.txt" Open filetext For Output As #1 j = 0 ReDim Preserve tabYears(j) tabYears(j) = Trim(Cells(2, c_year)) Print #1, tabYears(j) For i = 3 To nbLignes Cells(i, c_year) = Trim(Cells(i, c_year)) If Cells(i, c_year) <> tabYears(j) And Cells(i, c_year) <> "" And Cells(i, c_year) <> " " Then j = j + 1 ReDim Preserve tabYears(j) tabYears(j) = Trim(Cells(i, c_year)) Print #1, tabYears(j) End If Next Close #1
du style: " "2011" "
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question