- Sélection dernière page

[Papey]

- J'ai un classeur comportant beaucoup de pages avec des mises à jours régulières qui entraînent la suppression ou la création de nouvelles pages.
J'ai alors créé un UserForm avec TextBox pour permettre la recherche d'une page sur base de son nom.
Cependant quand le nom cherché n'existe pas la macro se plante.

J'aimerai savoir comment désigner la dernière page du classeur, quelle qu'elle soit, sans spécifier son nom

Merci d'avance.

 

[wally]

Bonjour Papey et le forum,

Pour sélectionner la dernière page du classeur : Worksheets(Worksheets.Count).Select


@+

wally

 

[Papey]

- Merci Wally pour ton renseignement.
Pourrais-tu encore m'aider car ma macro se plante complètement?
Je voudrais une macro qui cherche dans un classeur après une page dont le nom est entré dans une Inputbox.
Ayez pitié des débutants...

 

[Johan]

Bonjour Papey,

j'ai commencé ya pas longtemps, donc je comprends ...

ici un exemple:

place d'abord un bouton dans un sheet
puis double click

et mets le script suivant:

Private Sub CommandButton1_Click()
Dim nomsheet As String
nomsheet = InputBox("Tapez le nom du sheet", "Recherce d'un sheet")
Sheets(nomsheet).Select
End Sub

Et maintenant on se sans beaucoup + soulagé eh!

Johan

 

[Papey]

- Merci à Johan pour sa réponse, sa solution a fortement simplifié ma macro.
Cependant elle se plante quand le nom de page cherché n'existe pas.
Comment faire préciser dans une macro qu'en cas de non découverte du nom cherché, un MsgBox doit le signaler?

 

[Johan]

Rebonjour Papey,

c'est parce que j'y prend du plaisir tu sais ;o))

Bon weekend

 

[Johan]

Oops, petite faute (et j'espère que c'est la dernière!)

rajoute 'Exit Sub' après 'Sheets(nomsheet).Select' dans le script du fichier que je t'avais joint.

Allé bon, temps d'aller s'amuser maintenant, vive le vendredi soir!!

Johan