Discussion :

[marie6631]

Bonjour,

mon code identifie dans des chaines de caractères certains caractères et selon les caractères identifiés renvoie une réponse différente.

Lorsque le programme s'exécute les chaines de caractères examinées passent dans tous les cas de ma boucle et comme mes chaines sont très longues, ils peut y avoir plusieurs cas possibles et brouiller la réponse attendue.

Je voudrais que lorsque les caractères sont identifiés, le programme passe directement à la ligne suivante de mon tableur excel contenant la chaine de caractères suivante à examiner.

Autrement dit : cherche "INB " si oui retourne le résultat et passe à la chaine de caractère suivante ; si non cherche "eva/" etc etc...

Est ce qu'il ne me manque donc pas quelque chose dans ma boucle de condition ?

Merci d'avance pour votre aide. J'espère être claire. Pardon pour les noms de variables bizarres.

Voici mon code

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
Private Sub CommandButton1_Click()
 
 Dim i As Integer
 
    Dim Chaine As String
 
    Dim Caract As String * 4
 
    Dim Voyel As String
 
    Dim objRange, cel As Range
    Dim res As Integer
 
Range("C1").EntireColumn.SpecialCells(xlCellTypeConstants).Select
 
For Each objRange In Selection
 
  For i = 1 To Len(objRange)
  Caract = Mid(objRange, i, 4)
 
        Select Case LCase(Caract)
 
        Case "inb "
 
        Voyel = Voyel & Mid(objRange, i, 7)
        objRange.Offset(0, -2).Value = Right(Voyel, 3)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 3)), Sheets("REF").Range("$A$1:$B$95"), 2, False)
 
        Case "eva/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$I$2:$J$9"), 2, False)
 
        Case "udd/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$G$2:$H$10"), 2, False)
 
        Case "cea/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$K$2:$L$7"), 2, False)
 
        Case "dra/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$M$2:$N$6"), 2, False)
 
        Case "nts/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$O$2:$P$15"), 2, False)
 
         Case Else
 
         End Select
 
       Next i
 
 
  Next objRange
 
End Sub

[jfontaine]

Bonjour,

A première vue, je sortirais de la boucle for en donnant à i la valeur de sortie de boucle

Code :

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

i = Len(objRange)

Soit dans ton code

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Private Sub CommandButton1_Click()
 
 Dim i As Integer
 
    Dim Chaine As String
 
    Dim Caract As String * 4
 
    Dim Voyel As String
 
    Dim objRange, cel As Range
    Dim res As Integer
 
Range("C1").EntireColumn.SpecialCells(xlCellTypeConstants).Select
 
For Each objRange In Selection
 
  For i = 1 To Len(objRange)
  Caract = Mid(objRange, i, 4)
 
        Select Case LCase(Caract)
 
        Case "inb "
 
        Voyel = Voyel & Mid(objRange, i, 7)
        objRange.Offset(0, -2).Value = Right(Voyel, 3)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 3)), Sheets("REF").Range("$A$1:$B$95"), 2, False)
        i = Len(objRange)
 
        Case "eva/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$I$2:$J$9"), 2, False)
        i = Len(objRange)
 
        Case "udd/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$G$2:$H$10"), 2, False)
        i = Len(objRange)
 
        Case "cea/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$K$2:$L$7"), 2, False)
        i = Len(objRange)
 
        Case "dra/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$M$2:$N$6"), 2, False)
        i = Len(objRange)
 
        Case "nts/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$O$2:$P$15"), 2, False)
        i = Len(objRange)
 
         Case Else
 
         End Select
 
       Next i
 
 
  Next objRange
 
End Sub

[CodeFacile]

Bonjour,

snas regarder de trop près dans ton code , je vois quelques erreurs :

Code :

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

1
2
3
4
5
6
7
8
 
 
For i = 1 To Len(objRange)
  Caract = Mid(objRange, i, 4)
 
'  problème car lorsque i > Len(objRange) - 4 =>    Mid(objRange, i, 4)  n'est pas défini , tu peux remplacer par   For i = 1 To Len(objRange) - 3
 
' mais problème dans la suite du code , tu utilises Mid(objRange, i, 7) ?

Je ne comprends pas trop le but du code ; A mon avis , tu devrais utiliser une syntaxe du type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
if instr (   lcase ( objRange) , "eva/" ) > 0 then 
 
Voyel = Voyel & Mid(objRange, instr (   lcase ( objRange) , "eva/" ) , 7 + instr (   lcase ( objRange) , "eva/" ) )
        objRange.Offset(0, -2).Value = Right(Voyel, 3)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 3)), Sheets("REF").Range("$A$1:$B$95"), 2, False)
 
 
 
 
else
 
 
.......

Tu devrais donner plus d'infosou un fichier avec le type des chaines à analyser.

[Theze]

Bonsoir,

Je ne suis pas sûr d'avoir tout compris mais teste ce qui suit :

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
Private Sub CommandButton1_Click()
 
    Dim Pos As Integer
    Dim Voyel As String
    Dim objRange As Range
    Dim cel As Range
 
    'défini la plage de cellules
    Set objRange = Range("C1").EntireColumn.SpecialCells(xlCellTypeConstants)
 
    'parcour la plage
    For Each cel In objRange
 
        'effectue la recherche
        Pos = InStr(cel, "inb ")
 
        'si trouvé
        If Pos <> 0 Then
 
            Voyel = Voyel & Mid(cel, Pos, 7)
            cel.Offset(0, -2).Value = Right(Voyel, 3)
            cel.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 3)), Sheets("REF").Range("$A$1:$B$95"), 2, False)
            GoTo FinCel 'va à la fin de la boucle
 
        End If
 
        Pos = InStr(cel, "eva/")
 
        If Pos <> 0 Then
 
            Voyel = Voyel & Mid(objRange, Pos, 6)
            cel.Offset(0, -2).Value = Right(Voyel, 2)
            cel.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$I$2:$J$9"), 2, False)
            GoTo FinCel 'va à la fin de la boucle
 
        End If
 
        Pos = InStr(cel, "udd/")
 
        If Pos <> 0 Then
 
            Voyel = Voyel & Mid(cel, Pos, 6)
            cel.Offset(0, -2).Value = Right(Voyel, 2)
            cel.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$G$2:$H$10"), 2, False)
            GoTo FinCel 'va à la fin de la boucle
 
        End If
 
        Pos = InStr(cel, "cea/")
 
        If Pos <> 0 Then
 
            Voyel = Voyel & Mid(cel, Pos, 6)
            cel.Offset(0, -2).Value = Right(Voyel, 2)
            cel.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$K$2:$L$7"), 2, False)
            GoTo FinCel 'va à la fin de la boucle
 
        End If
 
        Pos = InStr(cel, "dra/")
 
        If Pos <> 0 Then
 
            Voyel = Voyel & Mid(cel, Pos, 6)
            cel.Offset(0, -2).Value = Right(Voyel, 2)
            cel.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$M$2:$N$6"), 2, False)
            GoTo FinCel 'va à la fin de la boucle
 
        End If
 
        Pos = InStr(cel, "nts/")
 
        If Pos <> 0 Then
 
            Voyel = Voyel & Mid(cel, Pos, 6)
            cel.Offset(0, -2).Value = Right(Voyel, 2)
            cel.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$O$2:$P$15"), 2, False)
            'GoTo FinCel ici pas nécessaire !
        End If
 
FinCel:
 
      Next cel
 
End Sub

Hervé.

[marie6631]

Merci pour vos réponses.
Je voulais savoir s'il y a un équivalent du break en C pour VBA pour sortir de ma boucle. Je vais tester vos propositions.

[Sclarckone]

Merci pour vos réponses.
Je voulais savoir s'il y a un équivalent du break en C pour VBA pour sortir de ma boucle.

Oui, pour une boucle For...Next, c'est Exit For.

[marie6631]

La réponse de JFontaine fonctionne à un détail prés.

Ma chaine de caractère est de type :

type 1 :
/01 INB/01 XXXXX/01 XXX INB/01 XXXX/01 XXXX/02 XXXX/16 INB YYY - NOM/XXX,/04 XXX/01 XXX/01 XXX/XXX/XXXXXX/ INB YYY
Cela fonctionne : mon résultat est YYY

type 2 :
/01 INB/09 CEA/02 ZZZ/03 - INB YYY - NOM/03 XXX/XXXXXXXXX- INB YYY
dans ce cas le résultat est ZZZ associé à la recherche de "cea/" et non YYY associée à la recherche "inb ".

Je ne comprends pas pourquoi dans ce dernier cas cela ne fonctionne pas. Je voudrais le résultat YYY comme dans le type 1 puisque "inb " est présent. Je voudrais ZZZ que s'il n'y a que "cea/".

Merci pour votre aide. J'espère être claire

Voici le code pour rappel :

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Private Sub CommandButton1_Click()
 
 Dim i As Integer
 
    Dim Chaine As String
 
    Dim Caract As String * 4
 
    Dim Voyel As String
 
    Dim objRange, cel As Range
    Dim res As Integer
 
Range("C1").EntireColumn.SpecialCells(xlCellTypeConstants).Select
 
For Each objRange In Selection
 
  For i = 1 To Len(objRange)
  Caract = Mid(objRange, i, 4)
 
        Select Case LCase(Caract)
 
        Case "inb "
 
        Voyel = Voyel & Mid(objRange, i, 7)
        objRange.Offset(0, -2).Value = Right(Voyel, 3)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 3)), Sheets("REF").Range("$A$1:$B$95"), 2, False)
        i = Len(objRange)
 
        Case "eva/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$I$2:$J$9"), 2, False)
        i = Len(objRange)
 
        Case "udd/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$G$2:$H$10"), 2, False)
        i = Len(objRange)
 
        Case "cea/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$K$2:$L$7"), 2, False)
        i = Len(objRange)
 
        Case "dra/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$M$2:$N$6"), 2, False)
        i = Len(objRange)
 
        Case "nts/"
 
        Voyel = Voyel & Mid(objRange, i, 6)
        objRange.Offset(0, -2).Value = Right(Voyel, 2)
        objRange.Offset(0, -1).Value = Application.WorksheetFunction.VLookup(Val(Right(Voyel, 2)), Sheets("REF").Range("$O$2:$P$15"), 2, False)
        i = Len(objRange)
 
         Case Else
 
         End Select
 
       Next i
 
 
  Next objRange
 
End Sub

Pardon mais je veux sortir de ma boucle de condition et non de la boucle for.

merci d'avance

[Sclarckone]

je veux sortir de ma boucle de condition et non de la boucle for.

Je ne connais pas d'instruction similaire au "Break" en C permettant de sortir de ton Select...End Select.

Ceci dit à moins que plusieurs conditions puissent être vérifiées ça ne te coûtera pas grand chose de le laisser finir de tester les Case.

Au pire tu peux toujours t'en sortir avec Label un GoTo...

[Pierre Fauconnier]

Salut

Pardon mais je veux sortir de ma boucle de condition et non de la boucle for.

merci d'avance

Lorsqu'un CASE est validé, les CASE suivants ne sont pas évalués et le code saute directement sur End Select

[marie6631]

Merci pour votre réponse. Mon pb est désormais résolu.
Bonne journée