Rechercher : dans
Par :

Macro Excel : test existence onglet

Dernière réponse le 18 nov 2008 à 11:05:58 juju93110, le 18 nov 2008 à 10:16:37 
 Signaler ce message aux modérateurs

Bonjour,

Je dispose d'un classeur excel dans lequel le premier onglet est une table des matières avec des liens hypertexte vers les autres onglets.

Afin de maintenir cette table à jour, je souhaite créer une macro qui supprime les références des onglets ayant été supprimés.

Le problème est que je connais pas d'expression conditionnelle qui permette de savoir si un onglet existe ou non.

Pouvez-vous m'aider ?

Merci d'avance.

Configuration: Windows XP
Internet Explorer 6.0

1

wilfried_42, le 18 nov 2008 à 10:45:15
  • +1

Bonjour

voici une fonction à placer dans un module

Function SH_exist(Nom As String) As Boolean
    Dim sh As Worksheet
    SH_exist = False
    For Each sh In Sheets
        If sh.Name = Nom Then
            SH_exist = True
            Exit For
        End If
    Next
End Function


utilisation :
if
 SH_exist("Nomdemafeuille") = false then msgbox "feuille Absente"
Cordialement
Wilfried

Répondre à wilfried_42

2

juju93110, le 18 nov 2008 à 10:54:14

Merci pour ta réponse.

Peux-tu me commenter un peu ton code ? Je ne comprends pas l'expression : For Each sh In Sheets

Répondre à juju93110

3

 wilfried_42, le 18 nov 2008 à 11:05:58

Re:

Sh est déclaré en Type Worksheet, donc c'est un objet feuille

For each sh in sheets

Pour chaque feuille comprises dans toutes les feuilles
il va donc passer toutes les feuilles en revue et
le code suivant controle si le non est le meme que celui passé en parametre Cordialement
Wilfried

Répondre à wilfried_42