Tester l'existence d'une feuille

[tmoexcel]

Bonjour,

Comment tester l'existence d'une feuille (par son nom) dans un classeur sans avoir à parcourir l'ensemble des feuilles de l'objet Worksheets ?
Comment détruire toutes les feuilles commençant par exemple par xxx ?

Merci de votre aide

Thierry

 

[pierrejean]

Re : Tester l'existence d'une feuille

bonjour tmoexcel

je crains que posée ainsi ta question n'ait pas de réponse

qu'est-ce qui te choque dans le fait de parcourir l'ensemble des feuilles ???

 

[MichelXld]

Re : Tester l'existence d'une feuille

bonsoir à vous deux


tu peux tester

Dim Ws As Worksheet
 
On Error Resume Next
Set Ws = ThisWorkbook.Worksheets("Feuil1")
On Error GoTo 0
 
If Ws Is Nothing Then
    MsgBox "N'existe pas"
    Else
    MsgBox "Existe"
End If

Bonne soirée
MichelXld

 

[pierrejean]

Re : Tester l'existence d'une feuille

bonsoir

mes craintes n'etaient pas fondées !!

merci a MichelXLD de cette demonstration d'une bonne utilisation de

on error resume next
on error goto 0