Test sur feuille excel

Résolu
Socheu -  
 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 Messages postés 9042 Statut Contributeur 1 199
     
    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
  2. Socheu
     
    Merci lermite222 ça marche parfaitement!

    Très bonne journée :)
    0