Probléme de boule FOR...NEXT

[celtic]

Bonjour a tous...

mon problème est simple (excel 2002,VBA), mais pour moi...simple débutant, je ne vois pas pourquoi il me gratifi d'un 'NEXT SANS FOR'


Sub vu()
Dim RESULTAT As Single
Dim N As Integer
Dim NUM As String
Dim plage As Range

For N = 1 To 5

Sheets(N).Select

Set plage = Range('A10:H20').Find(what:= _
Workbooks('BILAN.xls').Sheets(1).Range('D1').Value, _
lookAt:=xlWhole, LookIn:=xlValues)
If plage Is Nothing Then
GoTo suite

Else
plage.Select

NUM = ActiveSheet.Name
RESULTAT = ActiveCell.Offset(0, 6).Value
If RESULTAT = 0 Then GoTo suite
If NUM = '' Then GoTo suite

Workbooks('BILAN.xls').Activate
Range('B2') = 'TOTO'
Range('B9').Select
ActiveCell.Offset(1 + N, 0).Value = NUM
Range('C9').Select
ActiveCell.Offset(1 + N, 0).Value = RESULTAT

Workbooks('TOTO.xls').Activate
suite:
Next N
End Sub


MERCI D'AVANCE POUR VOS REPONSES....

 

[PascalXLD]

Bonjour

En fait il te manque un End IF

Ce If là --> If plage Is Nothing Then

N'a pas de End if

Bonne journée

 

[Robert]

Bonjour Celtic, bonjour le forum,

Ce n'est pas un problème de Next mais plutôt un End If qui manque à ton code. Tu as un If ouvert :
If plage Is Nothing Then
puis un Else qui contient deux If fermés (If... Then)
mais pas de End If pour fermer ce premier If.

Édition

Bonjour Pascal. Toujours les mêmes....

Message édité par: Robert, à: 22/09/2005 09:59

 

[PascalXLD]

Re

Robert je pense qu'on a une réponse ici

Lien supprimé

Mais je ne comprends pas pourquoi il nous remercie tous les 2 alors que tu n'as fait qu'un copier-coller de ma réponse 🙂 🙂

Bone journée 😛