Trouver une feuille

Bonjour

j'ai juste une petite question , j'ai une feuille de mon classeur nommée "ALPHA" et une autre nommée "ALPHA BIS" je souhaiterai

créer une macro à partir de ma feuille nommée ALPHA pour que celle ci m'affiche le message "trouvé" si la feuille ALPHA BIS existe ;

j''ai ecris les quelques lignes suivantes mais ca ne marche pas :

Dim i As Integer
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = ActiveSheet.Name & "BIS" Then
        MsgBox "existe"
    Else
       MsgBox "existe pas"
    End If
Next i

comment puis je corriger ?

Merci pour vos conseils , Cordialement.

Bonjour,

Sub test()
Dim Y, S
On Error Resume Next
S = ActiveSheet.Name & " bis"
Y = Worksheets(S).Index
If Y Then
MsgBox S & " Existe"
Else
MsgBox S & " n'existe pas"
End If
End Sub

A+

Bonjour,

boucle inutile, une seule instruction suffit via la fonction de feuille de calculs ESTREF comme déjà posté dans ce sujet …

Merci pour vos réponses, @galopin j'aurais voulu connaitre le sens de l'instruction :

Y = Worksheets(S).Index
If Y Then

particulièrement :

If Y Then

il y a t il une instruction qui suit Y ? si je comprend bien je lis " Si Y mais sans condition apres , en ayant testé ton code , j'ai toujours le mesgbox de la condition else , que la feuille existe ou non ...

merci .

Bonjour !

ça m'étonnerait !

Cette macro doit être mise dans un module standard (Module1...)

Y reçoit l'index de la feuille demandé... Si elle existe !

Dans ce cas Y est évalué comme Vrai dans l'expression If Y ...

Sinon, si la feuille n'existe pas, cela produit une erreur (car une feuille qui n'existe pas ne peut pas avoir d'index...)

mais le gestionnaire d'erreur permet le déroulement de la macro et

Dans ce cas Y est évalué comme Faux dans l'expression If Y ...

...Donc il y a de plus en plus de chance que ça marche !!!

A+

Je confirme !

C'est un héritage du BASIC originel, If Y Then voulant dire si la variable Y n'est pas vide ou si Y est différent de zéro …

Donc avant d'affirmer que cela ne marche pas, il serait bien plus judicieux de commencer par tester ‼

Maintenant une seule et unique instruction est nécessaire via la fonction de feuille de calculs comme dans le lien déjà donné ! …

Merci pour vos réponses , je vais etudier cela ..

Cordialement