Recherche d'un onglet en VBA

Bonjour,
ce code devrait suffire

Sub test()
Dim feuil As Worksheet
For Each feuil In Worksheets
If Left(feuil.Name, 3) = "TCD" Then
MsgBox feuil.Name
End If
Next feuil
End Sub

@+
patrick

"Tof" <Tof@discussions.microsoft.com> a écrit dans le message news:
EADE4AEE-4EE5-443F-A029-E7506C59746C@microsoft.com...

Bonjour,
Je suis à la recherche d'une macro qui me dirait si un onglet (nommé TCD)
est présent ou pas dans mon classeur
Merci d'avance pour vos lumières !

Bonjour Tof

Dim shLog As Worksheet
' Vérification dans le classeur actif
On Error Resume Next
Set shLog = Sheets("TCD")
If shLog Is Nothing Then
MsgBox "La feuille TCD n'existe pas."
End If

Cordialement
Trirème

Bonjour,
Je suis à la recherche d'une macro qui me dirait si un onglet (nommé TCD)
est présent ou pas dans mon classeur
Merci d'avance pour vos lumières !

Excellent
Merci bcp !

Bonjour,
ce code devrait suffire

Sub test()
Dim feuil As Worksheet
For Each feuil In Worksheets
If Left(feuil.Name, 3) = "TCD" Then
MsgBox feuil.Name
End If
Next feuil
End Sub

@+
patrick

"Tof" <Tof@discussions.microsoft.com> a écrit dans le message news:
EADE4AEE-4EE5-443F-A029-E7506C59746C@microsoft.com...

Bonjour,
Je suis à la recherche d'une macro qui me dirait si un onglet (nommé TCD)
est présent ou pas dans mon classeur
Merci d'avance pour vos lumières !

Sub test()
Dim feuil As Worksheet
For Each feuil In Worksheets
If Left(feuil.Name, 3) = "TCD" Then
MsgBox feuil.Name
End If
Next feuil
End Sub

Ou plus rapide :

Sub test()
on error resume next
Sheets("TCD").select
If Activesheet.name <> "TCD" then
MsgBox "Feuille TCD absente"
else
MsgBox "Feuille TCD présente"
End If
End Sub



--
@+
HD