Discussion :

[LouBoulpi]

Bonjour

Mon classeur comporte des feuilles numérotées allant de 30 à 40
Comment écrire le code permettant de sélectionner la plus petite,
ou la plus grande?

merci à tous

[ouskel'n'or]

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 30 to 40
     Worksheets(i).select ' ou activate ou delete ou ...
Next

Tu veux faire quoi ?
A+

[SfJ5Rpw8]

? si 30 à 40 est le nom de ta feuille tu peu faire :

pour la plus petite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

thisworkbooks.sheets("30").select

pour la plus grande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

thisworkbooks.sheets("40").select

..mais bon je suis pas sur d'avoir compris la question ...

[zazaraignée]

Salut

Toujours par la collection Worksheets. Soit par l'indice:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(0).Activate

Soit par le nom de la feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("40").Activate

En supposant que "40" est le nom de la première feuille.
Pour la dernière, il y a la propriété Count:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DerniereFeuille As Integer
DerniereFeuille = Worksheets.Count - 1
Worksheets(DerniereFeuille).Activate

Edit : Trois réponses en même temps!

[ouskel'n'or]

Salut zaza,
Pour la philosophie de la chose, j'aime bien la troisième... sutout qu'on pourrait faire pour la première feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim DerniereFeuille As Integer 
DerniereFeuille = Worksheets.Count - 1
PremièreFeuille = DerniereFeuille - (Worksheets.Count - 2)
Worksheets(PremièreFeuille ).Activate

Edit
Mais on peut aussi mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PremièreFeuille = "30"
DernièreFeuille = "40"
Worksheets(L'une ou l'autre).select

Un conseil, louboulpi, jète un oeil dans la FAQ

[LouBoulpi]

Probléme résolu, maintenant je peux sourire,moi aussi...
merci à vous

[zazaraignée]

Salut

N'oublie pas de cliquer sur le bouton en bas à gauche.