Bonjour à tous,
Mon titre n'est pas très explicite, mes excuses...Voici mon souci, je souhaite créer une collection de feuille, collection que j'utiliserai à plusieurs reprise dans mon code.
Voici la routine pour préparer ma collection :
et bien entendu le "f"&i ne fonctionne pas...
Avez-vous une idée pour que puisse éviter de rentrer 8 fois le Csheet.Add feuil2 etc...
DE même, la suite du code ne semble pas fonctionner. Mon idée serait de sélectionner tous les élements de la collection et de les masquer (fin de code) ou de les afficher (début de code)
merci pour votre retour
Amaury
Mon titre n'est pas très explicite, mes excuses...Voici mon souci, je souhaite créer une collection de feuille, collection que j'utiliserai à plusieurs reprise dans mon code.
Voici la routine pour préparer ma collection :
Code:
Sub hide()
Dim cSheets As New Collection
Dim f1 As Worksheet
Dim f2 As Worksheet
Dim f3 As Worksheet
Dim f4 As Worksheet
Dim f5 As Worksheet
Dim f6 As Worksheet
Dim f7 As Worksheet
Dim f8 As Worksheet
Set f1 = Feuil2
Set f2 = Feuil4
Set f3 = Feuil5
Set f4 = Feuil7
Set f5 = Feuil8
Set f6 = Feuil9
Set f7 = Feuil11
Set f8 = Feuil13
For i = 1 To 8
cSheet.Add "f" & i
Next i
For Each sh In cSheet
sh.Select Replace:=False
Next sh
ActiveWindow.SelectedSheets.Visible = True
End Sub
et bien entendu le "f"&i ne fonctionne pas...
Avez-vous une idée pour que puisse éviter de rentrer 8 fois le Csheet.Add feuil2 etc...
DE même, la suite du code ne semble pas fonctionner. Mon idée serait de sélectionner tous les élements de la collection et de les masquer (fin de code) ou de les afficher (début de code)
merci pour votre retour
Amaury
Dernière édition: