sélection de feuilles

Bonjour,

Fred se demande:
"Salut,je recherche une méthode pour sélectionné un groupe
de feuilles connaissant seulement le nom de la première et
la dernière.Existe-t-il une instruction vba qui pourrait
faire cela? Si oui, laquelle?"

Sub SelectionFeuilles()
Dim Feuille As Worksheet
Sheets("Début").Select
For Each Feuille In Sheets()
If Feuille.Index >= Sheets("Début").Index And _
Feuille.Index <= Sheets("Fin").Index Then _
Feuille.Select Replace:=False
Next Feuille
End Sub

Macro de Daniel J.

Starwing

Merci beaucoup,

J'ai un petit problème, comme le calcul se fait
automatiquement et
que j'affiche le résultat en année via le format aaaa, le
vrai chiffre est donc en jour j'imagine, alors est-ce que je
dois lui demander les fréquences en jour ??

30 ans = 30 * 365 = 10950
35 ans = 35 *365 = 12775
40 ans ......

Merci

--
Gaspareau

Mon adresse de bal via
http://cerbermail.com/?5d2oh98jSk

"Starwing" <NoMail@NoMail.niet> a écrit dans le message de
news:9ec501c4344c$98e6adf0$a101280a@phx.gbl...
Bonjour,

Fred se demande:
"Salut,je recherche une méthode pour sélectionné un groupe
de feuilles connaissant seulement le nom de la première et
la dernière.Existe-t-il une instruction vba qui pourrait
faire cela? Si oui, laquelle?"

Sub SelectionFeuilles()
Dim Feuille As Worksheet
Sheets("Début").Select
For Each Feuille In Sheets()
If Feuille.Index >= Sheets("Début").Index And _
Feuille.Index <= Sheets("Fin").Index Then _
Feuille.Select Replace:úlse
Next Feuille
End Sub

Macro de Daniel J.

Starwing