PB Gestion des erreurs Excel très débutante

bonjour à tous

Je une débutante d'Excel VBA et je n'arrive pas a me sortir d'un problème.

voila l'idée de ma macro :

le tableau se compose de 2 colonnes

en A : un n° correspondant au nom d'une feuille

en B : le libellé de la feuille

un bouton (une image) qui permet d'afficher la feuille correspondant au n° nom de la feuille selon la valeur de la cellule active

(cela fonctionne un petit peu comme un lien hypertext)

Mon soucis : je voudrais un message d'erreur ("aucune feuille n'a été trouvée") si la valeur de la cellule active ne correspond pas a une des valeur de la colonne A ou que la cellule active ne se trouve pas dans la colonne A

vos lumières pourraient bien m'aider

merci

Bonjour mendeve,

essaye ce code

Sub ActifPage()

Dim v As String
v = ActiveCell.Value

If CheckSh(v) = True Then
Sheets(v).Activate
Else
MsgBox "L'onglet que vous demandez n'existe pas.": Exit Sub
End If
End Sub

Function CheckSh(aa As String) As Boolean
On Error Resume Next
CheckSh = Sheets(aa).Name <> ""
On Error GoTo 0
End Function

Bonjour

Bonjour Game Over

A tester

bonjour a Banzai64 et a Game Over

vous m'avez été d'une très grande aide et super rapide

merci et merci beaucoup

a très bientot

Bonjour Banzai

@mendeve : voici une version légèrement modifiée de la précédente qui te permettra de naviguer plus aisément dans ta Feuil1 : l'image a été supprimée... il te suffit maintenant de double cliquer sur la cellule de la colonne A qui t'intéresse pour être redirigée vers l'onglet auquel tu souhaites accéder.

Bonjour,

Un début de solution avec à l'ouverture du fichier, la création de liens hypertextes pour les feuilles de calcul du classeur actif.

Pas besoin de gestion d'erreur VBA.

Cdlt

Dans Microsoft Excel Objets, "ThisWorkbook" :

Option Explicit
Private Sub Workbook_Open()
    Création_sommaire
End Sub

Dans un module standard :

Option Explicit
Public Sub Création_sommaire()
Dim wS As Worksheet
Dim i As Integer
Dim x As String

    Application.ScreenUpdating = False

    Set wS = Worksheets(1)
    wS.Cells.ClearContents
    For i = 1 To ThisWorkbook.Worksheets.Count
        Cells(i, 1) = Worksheets(i).Name
    Next i
    For i = 2 To ThisWorkbook.Worksheets.Count
        x = Worksheets(i).Name
        wS.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", _
            SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
    Next i

    Columns(1).ColumnWidth = 15

    Set wS = Nothing

End Sub

yes nikel

merci j'aurais jamais trouvé !!!!! pas bonne moi en VBA !

Bonjour à toute(s) et tous,

Et à qui s’adresse ce message de remerciement

Aux membres du forum, évidemment...

Cdlt.