Tester l'existence de la feuille "nom"

[lolo]

Bonjour à toutes et à tous,

Dans une macro, je souhaiterais tester l'existence d'une feuille dénommée 'NameSheet'.
Si cette feuille n'existe pas, je souhaiterais que la macro renvoie la valeur 'Feuille inexistante' dans une cellule de la feuille active.

Comment tester l'existence de 'NameSheet'? Si vous avez la solution, à vos claviers.

Merci d'avance

Lolo

 

[2passage]

Bonjour,

j'imagine qu'un petit code du genre de celui là devrait convenir (mais il y a peut etre plus simple aussi) :

For Each feuille In Worksheets
    If feuille.Name = 'Ta_Feuille' Then
        Exit Sub
    End If
Next
MsgBox 'feuille inexistante'

a+

 

[MichelXld]

Re:Tester l'existence de la feuille \"nom\"

bonjour Lolo , bonjour 2Passage

une autre possiblité , en complément de la solution donnée par 2passage

Sub controlePresenceFeuille()
Dim Ws As Worksheet
On Error Resume Next
Set Ws = ThisWorkbook.Sheets('NameSheet')
If Ws Is Nothing Then ActiveSheet.Range('A1') = 'Feuille inexistante'
End Sub


bonne apres midi
MichelXld

Message édité par: michelxld, à: 16/06/2005 13:06

 

[lolo]

Merci beaucoup à vous deux. C'est nickel!

Très bonne journée,