probleme avec if..then goto

**irouni** · 31/12/2007, 12h19

Bonjour tout le monde,

Je vous souhaite dorénavant une trés bonne année 2008.

J'ai un problème sur mon programme vba j'essai d'ajouter une condition avec if...then goto...else mais quand je compile il me dit "else sans if" pourriez vous m'aider SVP?

voici le prog :

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
87
88
89
90
91
92
93
94
Sub Macro2()

Dim Aryan As String
Dim i As Long
Dim j As Long

j = 0

 For i = 71001 To 71005

    Aryan = "Appft\MER\1\logAppliVOCAL\" & _
        Worksheets("Feuil3").Range("A3001") & "\APPLIVOCAL0" & i & ".LOG"
    
    If Dir(Aryan) = "" Then GoTo boz
    Else
    
    
    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\" & Aryan, _
    Destination:=Range("O1"))

        .Name = "APPLIVOCAL071211_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileOtherDelimiter = "="
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Dim N, y As Integer

N = 1

y = 0

Do

            If Worksheets("Feuil3").Cells(N, "Y") = "FLAGS" Then

                        y = y + 1

            End If

            N = N + 1

Loop Until N = 2999

            j = j + 1
            
Worksheets("Feuil3").Cells(j, 1) = y
            
Range("B1:EZ2999").Select
    Selection.ClearContents

boz:
    i = i + 1
Next i

j = 1
For j = 1 To 2998
If Worksheets("Feuil3").Cells(j, 1) <> "" Then
Worksheets("Feuil3").Cells(j + 1, 1) = Worksheets("Feuil3").Cells(j, 1) + Worksheets("Feuil3").Cells(j + 1, 1)

End If

Next j

Worksheets("Feuil3").Cells(1, 2) = Worksheets("Feuil3").Cells(j, 1)

Range("A1:A2999").Select
    Selection.ClearContents
Range("B1").Select

   End Sub

**alsimbad** · 31/12/2007, 12h40

il te manque le end if et dans le cas ou il y a plusieur lignes de code, tu ne peux pas l'écrire sur la meme ligne que le if

Code :

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

1
2
3
4
5
 
If Dir(Aryan) = ""  Then
GoTo boz
Else ...
end if

bonne année aussi

**irouni** · 31/12/2007, 13h43

Merci alsimbad

**ucfoutu** · 31/12/2007, 15h07

Le goto est ici surprenant et inutile !
Suffit de remplacer

Code :

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

If Dir(Aryan) = ""  Then

par :

Code :

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

1
2
3
4
If Dir(Aryan) <>  Then
''' faire ...
end if
'et la suite, sans même l'étiquette boz !

Et c'est quoi, cette incrémentation de I ? (i = i +1) dans une boucle for ?
Si c'est pour avancer de 2 au lieu d'un, step 2 existe. Si c'est pour aller de i en i en incrémentant i de 1, c'est ce que fait le For ... Next .... tout seul !!!

**Gorfael** · 01/01/2008, 12h39

Salut tous les gens et bonne et heureuse année 2008

salut irouni

Quelques remarques :
- regroupe tes déclarations au m^me endroit : ça évite les erreurs, et ne change strictement rien au fonctionnement de ta macro

- contrairement à ce que pensent certains, les identations de ton code ne sont pas là pour faire joli. ça permet de reconnaitre les parties du programme liées entre elles : elles sont plus qu'utiles quand tu imbriques des if, boucles, with, etc...

- certaines instructions sont inutiles ex
j=i
for j=1 .....
à quoi sert de paramètrer j à une valeur, si on ne l'utilise pas ?

ton problème :

Code :

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

1
2
3
4
    If Dir(Aryan) = "" Then GoTo boz
Else
         With ActiveSheet.QueryTables.Add(Connection:= .....

j'y trouve 2 erreurs :
pas de End if . Excel rencontrant un next avant un End if, se sent perdu et appelle au secours.
Mais même avec End if, tu utilises les 2 syntaxes de if dans la même instruction.
soit tu mets tout sur une ligne :

Code :

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

If test Then Vrai else Faux

soit tu utilises la 2me syntaxe :

Code :

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

1
2
3
4
5
if test then
     Vrai
else
     Faux 
Endif

Les 2 ensembles....

N'ayant que la macro, je n'ai pas envie de créer un fichier de test(qui ne correspondra pas forcément à ce que tu attend), alors je ne l'ai pas testée. Le End if rajouté avant l'adresse bor ne correspond pas forcément :il pourrait être avant l'instruction J=J+1, mais, je n'ai pas réellement analysé ta macro, juste fait des "corrections" pour la faire correspondre un peu plus à une macro que j'aurais codé.
en uitlisant les indentations, tu pourra facilement retrouver les séquences de la macro.
Compare la avec celle initiale, peut-être que ça te donnera des idées.

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
 
Sub Macro2()
Dim Aryan As String
Dim i As Long
Dim j As Long
Dim N As Integer, y As Integer
j = 0
For i = 71001 To 71005
    Aryan = "Appft\MER\1\logAppliVOCAL\" & _
        Worksheets("Feuil3").Range("A3001") & "\APPLIVOCAL0" & i & ".LOG"
 
    If Dir(Aryan) = "" Then
        GoTo boz
    Else
        With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\" & Aryan, _
        Destination:=Range("O1"))
 
            .Name = "APPLIVOCAL071211_1"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 850
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = True
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = True
            .TextFileOtherDelimiter = "="
            .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
               1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
        N = 1
        y = 0
 
        Do
            If Worksheets("Feuil3").Cells(N, "Y") = "FLAGS" Then y = y + 1
                    N = N + 1
        Loop Until N = 2999
 
        j = j + 1
 
        Worksheets("Feuil3").Cells(j, 1) = y
 
        Range("B1:EZ2999").ClearContents
    End If
boz:
    i = i + 1
Next i
For j = 1 To 2998
    If Worksheets("Feuil3").Cells(j, 1) <> "" Then
        Worksheets("Feuil3").Cells(j + 1, 1) = Worksheets("Feuil3").Cells(j, 1) _
          + Worksheets("Feuil3").Cells(j + 1, 1)
    End If
Next j
Worksheets("Feuil3").Cells(1, 2) = Worksheets("Feuil3").Cells(j, 1)
Range("A1:A2999").ClearContents
Range("B1").Select
End Sub

**irouni** · 02/01/2008, 09h03

Merci tout le monde,

Le probleme a été bien évidement l'oubli de End if et aussi comme vous l'avez mentionné l'autre probleme était la façon j'ai mit mes codes.

Bonne année 2008

probleme avec if..then goto

Macros et VBA Excel

Discussions similaires

Partager

Partager