Bonjour à tous !
Je suis un nouvel entrant dans le langage VBA pour Excel. Mon problème est le suivant :
J'ai un fichier texte que voici :
Code X : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 53 Create_E1Ttp ACTIVE 900 3 =================================================================== E1Ttp 3 pmEs pmSes pmUas =================================================================== 54 Create_PlugInUnit ACTIVE 900 1 =================================================================== PlugInUnit 1 pmProcessorLoad =================================================================== 55 Create_TdmTermGrp ACTIVE 900 3 =================================================================== TdmTermGrp 3 pmNrOfTdmTermsBusy pmNrOfTdmTermsRej pmNrOfTdmTermsReq
Je dois le remettre en forme a l'aide de vba pour obtenir le résulat suivant :
le mot aprés create dans la colonne A, les pm qui lui sont associé dans la colonne b et ainsi de suite
Au fait chaque mot qui se trouve dérriere "Create_" est mis dans une colonne avec les compteurs qui lui sont associés dans une autre (ex colonne b).
Code X : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 ********************************* E1Ttp pmEs pmSes pmUas ************************************** PlugInUnit pmProcessorLoad *************************************** TdmTermGrp pmNrOfTdmTermsBusy pmNrOfTdmTermsRej pmNrOfTdmTermsReq ***************************************
Je dois le faire pour tout le fichier mais, en sortie, je n'arrive pas à avoir le résultat souhaité. J'ai fait plusieurs forums, lu plusieurs livres, j'ai commencé le vba il y a 3 semaines. Voici le code que j'ai pu obtenir après diverses recherches :
J'ai en résultat ceci : le "pm" est coupé mais je ne voulais pas !! :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53 Option Explicit Private Function ExtractDatas(ByVal sStringSearch As String, sValues() As String) As Boolean Dim sContenu As String Dim ff As Integer Dim lPlacement As Long Dim lFin As Long Dim lIndex As Long ff = FreeFile: lIndex = -1 Open "C:\Documents and Settings\Desktop\Counter_Analyser\log.txt" For Input As #ff sContenu = input$(LOF(ff), #ff) Close #ff Do lPlacement = InStr(lPlacement + 1, sContenu, sStringSearch) If lPlacement > 0 Then lFin = InStr(lPlacement + 1, sContenu, " ") If InStr(lPlacement + 1, sContenu, vbCrLf) < lFin Then lFin = InStr(lPlacement + 1, sContenu, vbCrLf) If lFin = 0 Then lFin = Len(sContenu) lIndex = lIndex + 1 ReDim Preserve sValues(lIndex) sValues(lIndex) = Mid$(sContenu, lPlacement + Len(sStringSearch), lFin - (lPlacement + Len(sStringSearch))) Else Exit Do End If Loop ExtractDatas = True End Function Sub test() Dim myValues1() As String, myValues2() As String, lIndex As Long Dim i As Integer If ExtractDatas("Create_", myValues1) Then For lIndex = LBound(myValues1) To UBound(myValues1) i = i + 1 Cells(i, 1).Value = myValues1(lIndex) Next lIndex Erase myValues1 End If i = 0 If ExtractDatas("pm", myValues2) Then For lIndex = LBound(myValues2) To UBound(myValues2) i = i + 1 Cells(i, 2).Value = myValues2(lIndex) Next lIndex Erase myValues2 End If End Sub
Quelqu'un peut-il m'aider ?????
Code X : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 E1Ttp Es PlugInUnit Ses TdmTermGrp Uas Aal2Ap ProcessorLoad Aal2Sp NrOfTdmTermsBusy Aal2PathVccTp NrOfTdmTermsRej
Merci.
Partager