End If sans bloc If, VBA/AccessRésolu

Question

Bonjour,

Je n'ai pas trouv&#233; ce qui cloche dans ce code :

(.....)
Private Sub traitement_donn&#233;es()

    If champ_en_cours = "ID" Then
        id = Mid(ligne, 6, InStr(ligne, ";") - 6)
        ty = Mid(ligne, InStr(ligne, ";") + 2, Len(ligne) - (InStr(ligne, ";") + 2))
        Exit Sub
    End If
(.....)
    If champ_en_cours = "fin" Then
        If id <> "" And ty = "PATTERN" Then Mafonction
        End If
        Exit Sub
    End If

    End Sub
(.....)

Mais &#224; la compilation pas &#224; pas, il me r&#233;pond "End If sans Bloc If" pour la zone en rouge. Si j'enl&#232;ve le "If" imbriqu&#233; (vert), &#231;a ne pose plus de probl&#232;me. Cependant, je sais que l'on peut faire des imbrications. Vous voyez une erreur ?

pr&#233;cisions : VBA sous ACCESS 2003, mes variables (champ_en_cours, id, ty...) sont bien d&#233;clar&#233;es avant. "traitement_donn&#233;es" est lanc&#233; dans une boucle qui lit un document ligne par ligne, r&#233;cup&#232;re des donn&#233;es dans le champ en cours, et lorsqu'on arrive &#224; la fin d'un "bloc" de mon texte (fin), il lance Mafonction uniquement si la variable id n'est pas vide et que ty est bien un pattern.

Ce probl&#232;me est tr&#232;s g&#234;nant car je ne le comprends pas. De plus, j'ai une erreur semblable dans un autre bout de code d'un autre module. Si vous trouvez une explication, ou mieux une solution, merci d'avance !

econs · Accepted Answer

Salut, Private Sub traitement_données() If champ_en_cours = "ID" Then id = Mid(ligne, 6, InStr(ligne, ";") - 6) ty = Mid(ligne, InStr(ligne, ";") + 2, Len(ligne) - (InStr(ligne, ";") + 2)) Exit Sub End If (.....) If champ_en_cours = "fin" Then If id <> "" And ty = "PATTERN" Then Mafonction ~~End If~~ <-- le problème est ici. Un ENDIF en trop. Exit Sub End If End Sub Quand l'action du Then se trouve sur la même ligne que le If, il ne faut pas mettre de END IF. Manu

nenette_cherie · Answer

Le souci, ce que je n'ai pas mis ici, c'est qu'il y a tout une zone où je réinitialise mes variables pour relancer la boucle à "neuf", et il faut que la réinitialisation s'effectue, même si je ne rentre pas dans le "If id <> "" And ty = "PATTERN" Then Mafonction". En fait, voici le passage en entier : If champ_en_cours = "fin" Then 'Identification If id <> "" And ty = "PATTERN" Then InsertPatProsite End If Exit Sub id = "" ac = "" dt = "" des = "" pa = "" pdoc = "" fin = "" End If d'où mon End If en vert.... Une proposition ? précision : je n'avais pas mis le bloc car il ne pose pas de problème en lui-même....

nenette_cherie · Answer

D'ailleurs, le "Exit Sub" doit &#234;tre plac&#233; &#224; la fin, juste avant le "End If" final.

cs_DARKSIDIOUS · Answer

Lorsque tu fais tenir ton instruction if sur une seule ligne, tu n'a pas besoin de end if ! Du coup, je ne vois pas &#224; quoi serve tes initialisations, vu que tu quitte ta proc&#233;dure avant par ton exit sub...

_____________________________________________________________________

Avant de poster sur le forum, pri&#232;re d'aller lire ceci  :

econs · Answer

Dans ce cas, il ne faut pas mettre MaFonction et le IF sur la m&#234;me ligne.









Private Sub traitement_donn&#233;es()
 
     If champ_en_cours = "ID" Then
         id = Mid(ligne, 6, InStr(ligne, ";") - 6)
         ty = Mid(ligne, InStr(ligne, ";") + 2, Len(ligne) - (InStr(ligne, ";") + 2))
         Exit Sub
     End If
 (.....)
     If champ_en_cours = "fin" Then
         If id <> "" And ty = "PATTERN" Then 

            Mafonction
        End If   
         Exit Sub
     End If
 
     End Sub

Manu

nenette_cherie · Answer

Le "Exit Sub" est bien &#224; la fin, avant le "End If" final. Il a &#233;t&#233; depuis  remis &#224; sa place. Si j'enl&#232;ve le deuxi&#232;me "End If" (celui en vert) comme vous le proposez, est-ce que les r&#233;initialisations ne se feront que si les conditions sont respect&#233;es (If id <> "" And ty = "PATTERN") ou se feront-elles dans tous les cas ?

econs · Answer

Je confirme. Avec le Exit Sub, ton initialisation ne se fera pas. Sauf
si tu veux sortir si ty="PATTERN", dans ce cas, il faut mettre le Exit
Sub entre le If et le End If.



DARK > Y'a un p'tit rat&#233; dans ta signature.

Manu

cs_Galain · Answer

Tu nous dis : "Le souci, ce que je n'ai pas mis ici, c'est qu'il y a tout une zone o&#249; je r&#233;initialise mes variables pour relancer la boucle &#224; "neuf", et il faut que la r&#233;initialisation s'effectue"
Ou est-elle cette boucle ?
donnes nous le code complet on pourras mieux t'aider

GRENIER Alain

econs · Answer

Dans un mail précédent, tu as dis : > et il faut que la réinitialisation s'effectue, même si je ne rentre pas dans le "If id <> "" And ty = "PATTERN" Ce qui donne : If id <> "" And ty = "PATTERN" Then MaFonction End If ' Toutes les initialisations ici id = "" ac = "" dt = "" des = "" pa = "" pdoc = "" fin = "" Quant au "Exit Sub", il faut dire à quoi il te sert pour savoir où on doit le placer. Manu

nenette_cherie · Answer

Je ne peux pas donn&#233; le code entier car il est trop long (vraiment). En gros, c'est une boucle qui, tant que mon fichier de d&#233;part n'est pas &#224; la fin, va lire ligne par ligne. Pour chaque ligne, il va rep&#233;rer des champs pr&#233;cis (ID, fin....) et r&#233;cup&#232;re les donn&#233;es int&#233;ressantes. Lorsqu'il arrive &#224; l'&#233;l&#233;ment fin, je d&#233;sire lancer Mafonction (seulement si id et ty respecte les conditions) et r&#233;initialiser mes variables (m&#234;me si ty et id ne respecte pas) avant de changer de ligne, et ce jusqu'&#224; la fin du document (boucle).

nenette_cherie · Answer

Le exit sub est correct, c'est pour revenir &#224; ma boucle "tant que le fichier n'est pas &#224; la fin"

nenette_cherie · Answer

Manu, ta solution a l'air de fonctionner : il n'y a plus d'erreur &#224; ce niveau. Il suffit donc en r&#233;sumer, de faire passer la suite de l'instruction Then &#224; la ligne, ainsi :

If champ_en_cours = "fin" Then
        If id <> "" And ty = "PATTERN" Then
        InsertPatProsite
        End If
        id = ""
        ac = ""
        dt = ""
        des = ""
        pa = ""
        pdoc = ""
        fin = ""
        Exit Sub
    End If

econs · Answer

OUI, &#233;vite de mettre des instructions derri&#232;re le Then, sur la m&#234;me ligne.

Sinon, tu vas avoir des probl&#232;mes en comptant tes End If.



Quand tu seras plus &#224; l'aise avec les structures conditionnelles en VB,
tu pourras jouer &#224; &#231;&#224;. Mais &#231;&#224; reste de l'ordre du gadget.

Manu

nenette_cherie · Answer

Merci beaucoup en tout cas, car c'&#233;tait vraiment pas grand chose mais qui bloquait tout. MERCI !! En esp&#233;rant que &#231;a puisse aider d'autres personnes comme moi

End If sans bloc If, VBA/Access

14 réponses

Discussions similaires