Gestion des erreurs

[biloute91]

Bonjour à tous,

j'ai un petit probleme avec une macro.
J'ai deux listes en cascades(une en A2 et une en B2) qui me permettent de visualiser et activer une feuille masquée.
Par contre, lorsque je remets à zero ces deux listes , j'ai un message d'erreur "incompatibilité de type".
La raison est que je n'ai pas intégré cette possibilité dans la macro mais après plusieurs essais , j'ai toujours le message d'erreur.

ci-joint ma macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Value <> "" Then
Sheets(Target.Value).Visible = True
End If
If Target.Address = "$B$2" And Target.Value <> "" Then
Sheets(Target.Value).Select
End If

End Sub

Merci pour votre aide

 

[PascalXLD]

Re : Gestion des erreurs

bonjour

peut-être


Private Sub Worksheet_Change(ByVal Target As Range)
on error goto fin
If Target.Address = "$B$2" And Target.Value <> "" Then
Sheets(Target.Value).Visible = True
Sheets(Target.Value).Select
End If
fin :
End Sub

 

[biloute91]

Re : Gestion des erreurs

Bonjour Pascal et merci

Cela fonctionne. J'avais effectivement essayé avec on error goto fin
mais sans le fin.

Encore merci