Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Executer une macro si certaines feuilles son présentes

Borismy

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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 ...

VB:
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

VB:
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 +
 

Discussions similaires

Réponses
18
Affichages
2 K
Réponses
6
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…