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