[XL-2007] Récupérer la position d'une sheet commencant par une chaine de caractères connue

[assiec]

Bonjour,

J'ai plusieurs sheet dans mon classeur excel dont le nom commence par "L1..." et d'autres par "L2..." sans suite logique par exemple:

- L1A1
- L2A1
- L1A2
- L1A3
- L2A3
....

Je souhaite récupérer la position de la première feuille contenant L1 puis de la suivante puis de la suivant dans des variables
Idem pour les sheet contenant L2


Merci par avance.

[pc75]

Bonjour,

Une piste :

Code :

1
2
3
4
5
6
 
for i = 1 to sheets.count
   if Left(sheets(i).name, 2) = "L1" then
      '==> Action
   end if
next

[MarcelG]

Bonjour à vous deux,

Si je peux me permettre, la propriété cherchée par notre ami est Index, qui indique la position de la feuille.

Exemple d'utilisation à adapter.

Code :

1
2
3
4
5
6
7
8
Public Sub essai()
Dim wk As Worksheet
For Each wk In Worksheets
    With wk
            If InStr(.Name, "L1") > 0 Then Debug.Print .Index
    End With
Next wk
End Sub