[VBA] Afficher un msg quand l'onglet n'existe pas

Bonsoir @ tous,

J'ai ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig
derlig = Range("A" & Application.Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range("A3:A" & derlig)) Is Nothing Then
Dim Var As String
Var = Target.Value
Sheets(Var).Activate
End If
End Sub

et qui affiche un onglet en double cliquant sur une cellule de la colonne A contenant le nom ce dernier..

Je veux que quand l'onglet n'existe pas, il m'affiche un MsgBox et il met la cellule en mode Edit..

MsgBox "Le devis " & .Range("A" & Lig).Value & " n'existe pas dans le classeur"
      , vbExclamation, "ATTENTION..."
On Error Resume Next

Je suis très nul en VBA

@ + +

Bonjour

Testes ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long
  derlig = Range("A" & Application.Rows.Count).End(xlUp).Row
  If Not Application.Intersect(Target, Range("A3:A" & derlig)) Is Nothing Then
    On Error Resume Next
    Sheets(Target.Value).Select
    If Err.Number <> 0 Then
      MsgBox "Page inexistante"
    End If
  End If
End Sub

Bonsoir @ tous,

Salut Banzai,

Merci pour le code, c'est parfaitement ce que j'en avais besoin..

Merci @ tous