Verifier sheets du fichiers

[Mytå]

Bien oui encore moi

Re bonsoir ou bonjour

Un classeur avec les feuilles suivantes :

Feuil1
Feuil2
Feuil3
1996
1997
...
2003

Je voudrais récupérer les valeurs: première feuillle style 1996
et la dernière feuile style 2003 dans ce cas , si le fichiers
ajoute une feuille (2004) celle la je voudrais recuperer

Donc feuille_min=1996
et feuille_max=la dernière feuille au format annee (2002, 2003..... 2010)

Merci encore et amitié Mytå º¿º

 

[@+Thierry]

Re Bonjour


Pas sûr d'avoir capté ta demande...

Cette macro te retournera la derniere feuille dans l'odre des index comportant un numéro (pas les autre style feuil1, feuil2.... etc...

Option Explicit
Sub LastFeuille()
Dim WS As Worksheet
Dim An As Integer
For Each WS In Worksheets
If IsNumeric(WS.Name) Then
An = WS.Name
End If
Next
MsgBox An
End Sub

Si c'est çà ? on pourrait mettre ces feuilles dans un ListBox... mais comme tu dis pas où tu voudrais récupérer... Moi je n'ai pas le temps d'inventer ! (lol)

...
@+Thierry

 

[Cathy]

pour avoir le nom de la dernière feuille :

nbfeuilles = ActiveWorkbook.Sheets.Count
Sheets(nbfeuilles ).Select
nomfeuil = activesheet.name

 

[Cathy]

Sheets(nbfeuilles).Select (y'avait un espace en trop!!!!)

 

[Mytå]

re et merci a vous tous