Selection de feuilles

[Francis]

Bonjour le forum
Je cherche à sélectionner toutes les feuilles d’un classeur sauf la première et les deux dernières.
Je suis parti sur ces lignes mais cela ne marche pas.

For Each Sh In ActiveWorkbook.Sheets
If Sh.name <> sheet(1) And sheet(Data1) and sheet(data2) Then
Bla bla ……..etc

Merci de votre aide
Francis

 

[pierrejean]

Re : Selection de feuilles

bonjour Francis

Atester:

For n=2 to sheets.count-2
  sheets(n).....
  Bla bla ……..etc
 
next n

note: valable uniquement si les feuilles ne sont jamais déplaçées

 

[Catrice]

Re : Selection de feuilles

Bonjour,

Tu peux essayer ceci :

Sub Macro2()
Dim MesFeuilles()
For i = 0 To Sheets.Count - 4
ReDim Preserve MesFeuilles(i)
MesFeuilles(i) = Sheets(i + 2).Name
Next
Sheets(MesFeuilles).Select
End Sub

 

[Francis]

Re : Selection de feuilles

Bonjour Catrice, PierreJean et le forum
Merci pour votre réponse. Il est vrai que quand on a la solution, cela parait toujours simple. Je vais toujours chercher midi à 14 heures.
Merci pour votre aide
Francis