Discussion :

[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 :

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

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 :

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

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