Discussion :

[Dobyan08]

La réponse à ma question peut paraître facile à trouver mais à chaque solution trouvée, cela ne correspondai t pas à mon pb réel

Le voici, j'ai une série de fonctions et de procédures, lors de l'éxécution de la fonction principale: j'ai ce message:

Erreur de Compilation: Next sans for

Pourtant voici mon code et il y a bien un Next et un for:

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
 
Sub FonctionPrincipale(Numbaie As String, DAnalyse As String, CheminImages As String)
Dim tableauGraphic() As String
Dim numero As Integer
tableauGraphic = GenererTableauGraphe()
For numero = 1 To 8
    OkImage = VerifImage(tableauGraphic(numero, 0), Numbaie, DAnalyse, CheminImages)
    OkBaie = VerifBaie(Numbaie, DAnalyse, CheminImages)
    Recherche TypeAnalyse:=tableauGraphic(numero, 0)
    If OkImage = 1 Then
       InsertionImage TypeAnalyse:=tableauGraphic(numero, 0), Numdelabaie:=Numbaie, DateAnal:=DAnalyse, cheminFichiers:=CheminImages
    Else
    If OkBaie = 1 Then
       InsertionTexte Numdelabaie:=Numbaie, TypeAnalyse:=tableauGraphic(numero, 0)
    Else
       MsgBox "Aucun fichier images n'a été trouvé, soit l'analyse n'a pas été lancée soit il y a erreur dans le remplisage des champs"
   End If
Next numero
End Sub

Etant débutant en VB et Vba, je n'ai pas de solution: Pouvais vous m'aider?
Merci d'avance

[zazaraignée]

Salut

À voir ton code, VB n'est pas le premier langage que tu aborde! En VB l'opérateur d'affectation et l'opérateur de comparaison (égalité) sont identique. Je veux dire que c'est rigoureusement le même.

Remplace tes := par des = pour commencer. Si tu as encore un message d'erreur après ça, fais nous signe.

[Dinytro]

je dirais qu'il te manque un

Code :

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

end if

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
 
Sub FonctionPrincipale(Numbaie As String, DAnalyse As String, CheminImages As String) 
Dim tableauGraphic() As String 
Dim numero As Integer 
tableauGraphic = GenererTableauGraphe() 
For numero = 1 To 8 
    OkImage = VerifImage(tableauGraphic(numero, 0), Numbaie, DAnalyse, CheminImages) 
    OkBaie = VerifBaie(Numbaie, DAnalyse, CheminImages) 
    Recherche TypeAnalyse:=tableauGraphic(numero, 0) 
    If OkImage = 1 Then 
       InsertionImage TypeAnalyse:=tableauGraphic(numero, 0), Numdelabaie:=Numbaie, DateAnal:=DAnalyse, cheminFichiers:=CheminImages 
    Else 
       If OkBaie = 1 Then 
          InsertionTexte Numdelabaie:=Numbaie, TypeAnalyse:=tableauGraphic(numero, 0) 
       Else 
          MsgBox "Aucun fichier images n'a été trouvé, soit l'analyse n'a pas été lancée soit il y a erreur dans le remplisage des champs" 
      End If 
   End If 
Next numero 
End Sub

[l@rry]

au lieu de :

Code :

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

Next numero

essye de mettre :

Code :

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

Next

tout court

[zazaraignée]

Salut

Je retire ce que j'ai dit plus haut. S'il s'agit d'arguments nommés... := c'est OK.

Comme dit Dinytro, c'est un End If qui manque...

[Dobyan08]

Merci à tous pour la rapidité d'action
C'est effectivement la solution de Dinytro. J'avais tout d'abord utilisé un ElseIf mais j'avais eu un message d'erreur sur ce terme alors je l'ai changé en else if.
Encore merci, et excusé moi pour le manque de "bonjour" au début de mon post

[Dédé6621]

je dirais qu'il te manque un

Code :

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

end if

Merci!

Ta réponse m'a permis de ne pas me focaliser seulement sur le For, mais sur les autres instructions réclamant une fin d'instruction.

En ce qui me concerne, c'était le End Select de Select Case qui manquait.