Exécuter macro avec la condition

Bonjour

j'ai 2 macro, macro1 et macro2,

On peut dire que si Sheets("Feuil2") n'existe pas, on exécute pas macro2?

algorithme est :

if not existe Sheets("Feuil2") then

not call macro2

Merci merci !!!!

Bonjour

Il faudrait comprendre le pourquoi de cette demande mais un exemple ci-dessous :

Sub test()
Dim i As Byte
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil2" Then Call macro2 Else: Call macro1
Next
End Sub

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton Editer

Amicalement

Bonjour

Une autre vision du problème

Sub test()
  If FeuilleExiste("Feuil2") = True Then
    MsgBox "La feuille existe exécution de la Macro2"
    ' Macro2
  Else
    MsgBox "La feuille n'existe pas"
  End If
End Sub

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

Bonjour,

En adaptant le code de Dan...

Sub test()
Dim i As Byte
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "Feuil2" Then
            Call macro2
            Exit For
        End If
    Next
End Sub

A+