Bonjour,

je cherche a extraire des valeurs comprise entre 2 chaines.

Mon souci est le suivant : actuellement il bloque sur le fait de ne pas trouver la balise de fin.

Merci pour votre aide

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
Dim DebutOu, FinOu
Dim BaliseDebut, BaliseFin
Dim RechercherDans, textRecupe
 
 
For cp = 2 To 345
Cells(cp, 13) = Trim(Cells(cp, 13))
 
RechercherDans = Cells(cp, 13)
 
BaliseDebut = "- Cause de l incident:"
BaliseFin = " - Détailler"
DebutOu = 1
 
Do
    DebutOu = InStr(DebutOu, RechercherDans, BaliseDebut)
    If DebutOu = 0 Then Exit Do
 
    DebutOu = DebutOu + Len(BaliseDebut)
    FinOu = DebutOu
    FinOu = InStr(FinOu, RechercherDans, BaliseFin)
    Cells(cp, 5) = Mid(RechercherDans, DebutOu, FinOu - DebutOu)
    DebutOu = FinOu + Len(BaliseFin) ' pour passer à la suite
Loop
 
 
RechercheraDans = Cells(cp, 13)
 
BaliseaDebut = "cadre de ce ticket:"
BaliseaFin = "- FM :"
DebutaOu = 1
 
Do
    DebutaOu = InStr(DebutaOu, RechercheraDans, BaliseaDebut)
    If DebutaOu = 0 Then Exit Do
 
    DebutOu = DebutaOu + Len(BaliseaDebut)
    FinaOu = DebutaOu
    FianOu = InStr(FinaOu, RechercheraDans, BaliseaFin)
    Cells(cp, 6) = Mid(RechercheraDans, DebutaOu, FinaOu - DebutaOu)
    DebutaOu = FinaOu + Len(BaliseaFin) ' pour passer à la suite
Loop
 
If Cells(cp, 13) Like "*FM : OUI*" Then Cells(cp, 3) = "OUI"
If Cells(cp, 13) Like "*FM : NON*" Then Cells(cp, 3) = "NON"
If Cells(cp, 3) = "" Then Cells(cp, 3) = "-"
 
Next