Selection de feuilles

Francis · 14 Septembre 2007

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 · 14 Septembre 2007

Re : Selection de feuilles

bonjour Francis

Atester:

Code:

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 · 14 Septembre 2007

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 · 14 Septembre 2007

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

Selection de feuilles

Francis

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

Catrice

XLDnaute Barbatruc

Francis

XLDnaute Junior

Discussions similaires