Executer une macro si certaines feuilles son présentes

[Borismy]

Bonjour,

comment puis-je écrire la condition suivante:

si les feuilles toto1, toto2, toto3, toto4 sont présentes exécuter la macro "taratata"
sinon sortie de la procédure, et si possible lister les feuilles manquantes.

Boris

 

[James007]

Re : Executer une macro si certaines feuilles son présentes

Bonjour,

Pour Taratata ... je suis obligé de te répondre ...

avec la macro de lancement et son UDF ...

Sub LancerMacro()
    If FeuilleExiste("toto") And FeuilleExiste("titi") And FeuilleExiste("tata") Then
        Call Taratata
    Else
        MsgBox " La macro n'a pas été lancée ..."
    End If
End Sub

Public Function FeuilleExiste(NomF As String) As Boolean
Dim ws As Worksheet
FeuilleExiste = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = NomF Then FeuilleExiste = True
Next ws
End Function

A +

 

[Borismy]

Re : Executer une macro si certaines feuilles son présentes

Un grand merci à toi James007, ça fonctionne au poil!!!

A bientôt.

Boris