Test sur feuille excel [Résolu/Fermé]

Signaler
-
 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

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 167
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+
Merci lermite222 ça marche parfaitement!

Très bonne journée :)