On error GoTo .....

[Chris]

Salut le forum.


Je finis de developper une petite macro sous excel mais je ne comprend pas pourquoi la commande on error goto fonctionne seulement une fois

Ci dessou le code..

Si qqun à une idée?



Private Sub CommandButton1_Click()
Dim opt As String
Dim plage As Range
Sheets('Machines').Select
For Each cell In Range('a2:a89')
opt = '=*' & cell.Value & '*'
opt1 = cell.Value
Sheets(opt1).Select
Cells.Select
selection.ClearContents
Range('a1').Select
Sheets('Options').Select
Rows('1:1').Select
selection.EntireRow.Hidden = True
Range('b2').Select
selection.AutoFilter Field:=4, Criteria1:=opt, Operator:=xlAnd
Application.CutCopyMode = False
On Error GoTo 1
ActiveSheet.AutoFilter.Range.Columns('A:C').SpecialCells(xlCellTypeVisible).Copy
GoTo 1
Sheets(opt1).Select
Range('a1').Select
ActiveSheet.Paste
ActiveWorkbook.Names.Add Name:=opt1, _
RefersTo:='=' & opt1 & '!' & selection.Address, Visible:=True
1
Sheets('Options').Select
selection.AutoFilter
Rows('1:1').Select
selection.EntireRow.Hidden = False
Next
End Sub



@+ Chris

 

[Bernard_XLD]

Bonjour Chris

ton code est assez confus, des sélections inutiles, des instructions qui ne servent à rien. :huh:
Pour l'explication, quand tu fait un on error goto celui ci reste actif et est exécuté sur toute erreur rencontrée. De plus la partie de code entre goto 1 et 1 n'est jamais exécutée, voulu ? :S

en exemple

On Error resume next 'saute l'instruction si erreur
ActiveSheet.AutoFilter.Range.Columns('A:C').SpecialCells(xlCellTypeVisible).Copy
on error goto 0 ' rétablit la gestion normale des erreurs

Sheets(opt1).Select
Cells.Select
selection.ClearContents

peut être avantageusement remplacé par

Sheets(opt1).Cells.ClearContents

Coirdialement, A+

 

[Chris]

Salut

Merci pour ces conseils, j'en prend note.

Je debute alors j'essaye de me debrouiller au maximum tout seul.
Avec ton exemple tout marche nickel.

@+
Chris

 

[Bernard_XLD]

Re bonjour

a pas problème, Chris, tout le monde a débuté un jour.
le meilleur conseil que je puisse te donner est de clarifier, simplifier et documenter ton code, de bien le comprendre et de recourir à l'aide le plus souvent possible. Pour le reste ce forum existe, avec une ribambelle de passionnés pour te guider.

Au plaisir de te recroiser sur le forum

Cordialement, A+

100 fois sur le métier, remets ton ouvrage