Tester si un onglet existe

[vincent]

Bonjour le forum

Comment doit on s'y prendre pour ecrire un code du type:

si une page existe faire
afficher un message
sinon
afficher un autre message


Merci d'avance

 

[Papaye]

Bonjour Vincent,

Voili, voilà :

BPresent = False
For i = 1 To Sheets.Count
If Sheets(i).Name = 'Ma Feuille' Then BPresent = True
Next i

If BPresent = False Then
MsgBox 'Pas là'
Else
MsgBox 'Lé là'
End If

Papaye

 

[vincent]

Merci Papaye de m'avoir répondu.

En fait ce que je souhaiterai faire c'est:


si l'onglet feuil1 est présent faire
afficher lé la
sinon
afficher pas la

Merci d'avance

PS: je suis novice mais bon vous vous en doutiez déjà

 

[Papaye]

Oui, oui, je vois :

BPresent = False
For i = 1 To Sheets.Count
If Sheets(i).Name = 'feuil1' Then BPresent = True
Next i

If BPresent = False Then
MsgBox 'Pas là'
Else
MsgBox 'Lé là'
End If

C'est bon ?

Papaye

 

[Vincent]

Ok c'est bon, merci Papaye