Test sur feuille excel

Résolu
Socheu -  
Bonjour,

Je voudrais savoir quelle est l'erreur dans ce code: 

If sheets(1).selected then 

msgbox ("C'est la première page") 

End If


Je vous remercie d'avance :)

PS: Je veux réaliser une macro qui balaye jusqu'à la première page.
Je n'ai pas pu mettre un test juste sur le nom de la première page actuelle par exemple: 

If Activesheet.Name = "feuil1" Then 
msgbox("C'est la première page") 
End If


Car, j'ai la première page qui peut être variable et donc elle ne garde pas le même nom.

2 réponses

  1.  lermite222 Contributeur
    Bonjour, 
    Sub test()
    If ActiveSheet.Index = 1 Then
        MsgBox "C'est la première feuille"
    Else
        MsgBox "Ce n'est pas la première feuille"
    End If
End Sub

    A+
    0
    1. Socheu
      Merci lermite222 ça marche parfaitement!

      Très bonne journée :)
      0