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....