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

[R@chid]

Bonsoir @ tous,
J'ai ce code que j'ai pu trouver sur ce fil

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

@ + +

 

[Dranreb]

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

Salut R@chid

Il n'y qu'à ajouter On Error Resume Next devant la tentative d'activation de la feuille, et If Err Then MsgBox etc. derrière.

Je suis très nul en VBA

Déjà un tout petit peu moins, maintenant, non ?

 

[Isab]

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

Bonjour

Peut-être comme ça:


Dans un module

Public Function FeuilleExiste(sNomFeuille As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not ActiveWorkbook.Worksheets(sNomFeuille) Is Nothing
Err_FeuilleExiste:
End Function

Dans le module de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long, Lig As Long
Lig = Target.Row
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
If FeuilleExiste(Var) Then
Sheets(Var).Activate
Else
MsgBox "Le devis " & Range("A" & Lig).Value & " n'existe pas dans le classeur", vbExclamation, "ATTENTION..." 
Target.Select
End If
End If
End Sub

Bonne journée

 

[Si...]

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

salut

ou

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim derlig As Long
  derlig = Cells(Rows.Count, 1).End(xlUp).Row
  If Intersect(Target, Range("A3:A" & derlig)) Is Nothing Then Exit Sub
  On Error GoTo 1
  Sheets(Target.Text).Activate
  Exit Sub
1 MsgBox "Le devis " & Target & " n'existe pas dans le classeur", vbExclamation, "ATTENTION..."
End Sub

 

[R@chid]

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

Bonsoir @ tous,
Merci mes chers amis pour les réponses qui sont vraiment satisfaisantes et répondent parfaitement à mon besoin.

Déjà un tout petit peu moins, maintenant, non ?

Oui bien sûr Dranreb 1/9^9>0
Et voilà, j'ai quitté le 0 vers l'infini positif, c'est bon maintenant.

@ + +

 

[job75]

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

Bonsoir à tous,

Déjà un tout petit peu moins, maintenant, non ?

Je revendique la paternité de ce nouveau bébé VBA

https://www.excel-downloads.com/thr...ns-un-fichier-comprenant-des-doublons.215439/

Bonne fin de soiée.