Test sur feuille excel

Résolu/Fermé

Socheu - Modifié par Socheu le 27/03/2012 à 12:23
Socheu - 27 mars 2012 à 13:14

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.

A voir également:

Test sur feuille excel
Test performance pc - Guide
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Formule excel - Guide
Test composant pc - Guide

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
27 mars 2012 à 13:03

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+

Réponse 2 / 2

Socheu
27 mars 2012 à 13:14

Merci lermite222 ça marche parfaitement!

Très bonne journée :)

Discussions similaires

PXE-E61 : media test failure, check cable

Discussions similaires

Newsletters