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