Tester la présence d'un onget

[qmike]

Bonjour à tous
Comment peut-on tester la présence d'un onglet et si l'onglet n'exite pas le créer

Merci de vos réponses
J'en profite pour féliciter tous les participants à ce forum.

Michel

 

[Ti]

tu peux utiliser la fonction ci-dessous, qui teste la présence de la feuille, la crée éventuellement et t'indique si l'opération s'est bien déroulée (True ou False)

Function TestOnglet(ByVal Onglet$) As Boolean 'Ti
Dim Ws As Worksheet
On Error Resume Next
With ThisWorkbook
Set Ws = .Worksheets(Onglet)
If Ws Is Nothing Then
Set Ws = .Worksheets.Add
Ws.Name = Onglet
End If
TestOnglet = Not Ws Is Nothing
End With
End Function

Sub Test()
MsgBox TestOnglet("Feuil10")
End Sub