Empecher un message d'erreur

[herve80]

Bonjour,

Lorsque je lance la macro

Private Sub Workbook_Open()
Sheets("12-48b").Select
Application.OnKey "{F1}", "comm"
Application.OnKey "{F3}", "points"
End Sub

Excel fait ce que je lui demande mais me met un message d'erreur quand je ne suis pas dans la feuille "12-48b".

Donc comment interdire l'affichage du message d'erreur ?

Application.OnKey "{F3}", "points" renvoie à

Sub points()
Dim cell As Range
For Each cell In Selection
cell.Replace What:="a", Replacement:=":"
Next
End Sub


Désolé c'est long. Merci de m'aider 😉

 

[LPandre]

Re : Empecher un message d'erreur

Bonjour

essai ça :

Private Sub Workbook_Open()
on error goto fin
Sheets("12-48b").Select
Application.OnKey "{F1}", "comm"
Application.OnKey "{F3}", "points"
fin :
End Sub

cordialement

 

[herve80]

Re : Empecher un message d'erreur

Merci LPandre,

J'essayerai quand l'occasion se présentera.
C'est bien de m'avoir aidé, je te suis très reconnaissant.

Bonne journée l'ami 😉