Bonjour,
Voila je suis un grand débutant sur VBA et la programation excel, mais j'ai reussi en trouvant du code un peu partout à faire se que je voulais mais j'ai un souci sur la gestion d'erreur,
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I8:I350")) Is Nothing Then
Cancel = True
Sheets(CStr(Target.Value)).Visible = -1
Sheets(CStr(Target.Value)).Select
End If
If Not Intersect(Target, Range("J8:J350")) Is Nothing Then
Cancel = True
Sheets(CStr(Target.Value)).Visible = 2
End If
End Sub
donc voila la premiere parti du code ouvre la feuille correspondant au nom par un click droit et la deuxieme ferme la feuille par un click droit egalement.
La question etant comment gerer les cas d'erreur car j'ai une erreur lorsque je fait un click droit sur un ligne ou sur une case faisant parti de la selection du code mais pas referencé par une feuille.
Je vous remercie d'avance pour votre aide précieuse, et je reste à votre disposition pour toutes précisions
Cordialement,
Voila je suis un grand débutant sur VBA et la programation excel, mais j'ai reussi en trouvant du code un peu partout à faire se que je voulais mais j'ai un souci sur la gestion d'erreur,
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I8:I350")) Is Nothing Then
Cancel = True
Sheets(CStr(Target.Value)).Visible = -1
Sheets(CStr(Target.Value)).Select
End If
If Not Intersect(Target, Range("J8:J350")) Is Nothing Then
Cancel = True
Sheets(CStr(Target.Value)).Visible = 2
End If
End Sub
donc voila la premiere parti du code ouvre la feuille correspondant au nom par un click droit et la deuxieme ferme la feuille par un click droit egalement.
La question etant comment gerer les cas d'erreur car j'ai une erreur lorsque je fait un click droit sur un ligne ou sur une case faisant parti de la selection du code mais pas referencé par une feuille.
Je vous remercie d'avance pour votre aide précieuse, et je reste à votre disposition pour toutes précisions
Cordialement,