utilation d'un array

[F.launay]

Bonjour le Forum,
je cherche à sélectionner des feuilles d'un classeur à partir d'un array.
Problème : je n'arrive pas à trouver le code qui me permet de sélecter
les feuilles une par une et qui me serviront ensuite dans des boucles pour effectuer des mises à jour de datas.
si quelq'un connait la solution , merci d'avance.
Ci joint mon début de code
sub transfert_mois
Dim y As Long, Mytab() As Variant, Mev
Mytab() = Array("feuil1", "feuil6", "feuil7")
'Mytab(2).Activate
end sub

 

[@+Thierry]

Salut F.Launay, le Forum

J'ai fait récemment une démo pour manipuler des feuilles par une Array.

=> Fichier Téléchargeable Lien supprimé (18k)

=> Fil de Discussion Lien supprimé

Sinon pour le cas précis de ton Array, je ne m'y prendrai pas comme ceci, mais plutôt comme cela :

Sub SheetsArray()
Dim MyTab As Variant

MyTab = Array("Sheet1", "Sheet2", "Sheet4", "Sheet6")
Sheets(MyTab(0)).Activate

End Sub

Entendu dans cet exemple que l'on est en Base 0, et que l'on active donc la Sheets("Sheet1")... (Si on voulait activer la "Sheet6" on écrirait alors Sheets(MyTab(3)).Activate

Bon App
@+Thierry

 

[Jon]

salut F.

tu n'étais pas loin du tout ;-)


Jon

 

[F.launay]

Un grand Merci pour Thierry qui est toujours partout à notre secours!