Problème sur boucle

**laurent27530** · 12/02/2016, 08h56

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

**Pierre Fauconnier** · 12/02/2016, 09h28

Salut.

Tu pourrais peut-être simplement remplacer tes balises de début et de fin par du vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  Dim BaliseDeb As String, BaliseFin As String
  Dim Chaine As String
 
  BaliseDeb = "-Début:"
  BaliseFin = "-Fin"
 
  Chaine = "-Début:Hello World-Fin"
  Chaine = Replace(Replace(Chaine, BaliseDeb, ""), BaliseFin, "")

**laurent27530** · 12/02/2016, 09h34

je ne pense pas ma chaine serait plutot "bonjour ca va - début : test - FIN : test2 - FM OUI"

Dans le cadre du remplacement, je ne vais pas avoir " test " comme resultat

ce que je cherche a faire :

mettre dans une colonne la valeur comprise entre " - debut :" et " -FIN :"
mettre dans une colonne la valeur comprise entre " - FIN :" et " -FM :"
mettre dans une colonne la valeur se trouvant après " -FIN :"

Avec une valeur disant "A FAIRE" si une valeur est non trouvée

**Pierre Fauconnier** · 12/02/2016, 09h36

Avant de modifier ton code, pourrais-tu expliquer ce que tu souhaites faires, avec un ou deux exemples?

**laurent27530** · 12/02/2016, 09h45

le complement a été fait en parallele a ton dernier commentaire

**antonysansh** · 12/02/2016, 10h06

Bonjour laurent27530,

Avec ton exemple du Post3 :
bonjour ca va - début : test - FIN : test2 - FM OUI

mettre dans une colonne la valeur comprise entre " - debut :" et " -FIN :"

c'est la chaine : test

mettre dans une colonne la valeur comprise entre " - FIN :" et " -FM :"

c'est la chaine test2

mettre dans une colonne la valeur se trouvant après " -FIN :"

je pense que c'est plutôt après "- FM" donc la chaine "OUI"

Si c'est bien ça voila un code possible :

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
Sub test()
    Dim s$, t$(), sTempo$, s1$, s2$, s3$
    s = "bonjour ca va - début : test - FIN : test2 - FM OUI"
 
    sTempo = Split(s, "- début :")(1)
    s1 = Trim(Split(sTempo, "- FIN :")(0))
 
    sTempo = Split(s, "- FIN :")(1)
    s2 = Trim(Split(sTempo, "- FM")(0))
 
    sTempo = Split(s, "- FM")(1)
    s3 = Trim(sTempo)
 
    MsgBox s1 & vbCr & s2 & vbCr & s3
End Subb

**Menhir** · 12/02/2016, 10h14

Envoyé par laurent27530

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    FinOu = DebutOu
    FinOu = InStr(FinOu, RechercherDans, BaliseFin)

Si l'on excepte le fait que ceci pourrait être simplifié en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    FinOu = InStr(DebutOu, RechercherDans, BaliseFin)

[/QUOTE]
Ta syntaxe est correcte.

As-tu vérifié si ça ne pourrait pas venir d'une simple faute de frappe dans le texte de ton critère de recherche ou du contenu des cellules dans lesquelles tu cherches ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DebutOu, FinOu
Dim BaliseDebut, BaliseFin
Dim RechercherDans, textRecupe

Je te conseille aussi d'indiquer les type de variables dans les déclarations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DebutOu As Long, FinOu As Long
Dim BaliseDebut As String, BaliseFin As String
Dim RechercherDans As String, textRecupe As String

Et déclare aussi les variables de ta seconde boucle.

**Pierre Fauconnier** · 12/02/2016, 10h16

Je suppose qu'il fallait comprendre

mettre dans une colonne la valeur comprise entre " - debut :" et " -FIN :"
mettre dans une colonne la valeur comprise entre " - FIN :" et " -FM :"
mettre dans une colonne la valeur se trouvant après " -FM :"

Vu que tu as le même traitement pour tes deux premières recherches, tu as intérêt à utiliser une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function RetourChaine(Chaine As String, Debut As String, Fin As String) As String
  Dim PosDebut As Integer
  Dim posfin As Integer
  Dim Result As String
 
  PosDebut = InStr(1, Chaine, Debut)
  If PosDebut <> 0 Then
    posfin = InStr(1, Chaine, Fin)
    Result = Mid(Chaine, PosDebut + Len(Debut), posfin - (PosDebut + Len(Debut)))
  Else
    Result = "A faire"
  End If
  RetourChaine = Result
End Function

EDIT: Code adapté pour tenir compte de la longueur de la chaine Debut.
A toi d'adapter pour trouver ce qui se trouve après -FM :

Complément: Travaillez TOUJOURS avec des fonctions que vous pouvez tester et essayez TOUJOURS de voir si un processus se répète. S'il se répète, créez une fonction et testez-là. Vous aurez du code beaucoup plus maintenable qu'en développant des procédures kilométriques impossibles à tester...

**laurent27530** · 12/02/2016, 10h21

Merci ton code est plus simple mais je rencontre toujours mon probleme si s = "bonjour ca va - début : test "

Le code est en erreur

**Pierre Fauconnier** · 12/02/2016, 10h22

Envoyé par laurent27530

Merci ton code est plus simple mais je rencontre toujours mon probleme si s = "bonjour ca va - début : test "

Le code est en erreur

Le code de qui?

Je viens d'adapter le mien pour que la fonction tienne compte du fait que la chaine de fin pourrait ne pas être trouvée

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
Function RetourChaine(Chaine As String, Debut As String, Fin As String) As String
  Dim PosDebut As Integer
  Dim posfin As Integer
  Dim Result As String
 
  PosDebut = InStr(1, Chaine, Debut)
  If PosDebut <> 0 Then
    posfin = InStr(1, Chaine, Fin)
    If posfin <> 0 Then
      Result = Mid(Chaine, PosDebut + Len(Debut), posfin - (PosDebut + Len(Debut)))
    Else
      Result = "A faire"
    End If
  Else
    Result = "A faire"
  End If
  RetourChaine = Result
End Function

C'est cela l'intérêt de travailler avec une fonction indépendante du reste du code. Tu la testes, la retestes et la reretestes encore. Lorsqu'elle est bonne, tu l'appelles dans ton code...

Problème sur boucle

Macros et VBA Excel

Discussions similaires

Partager

Partager