Problème tout bête avec Array

[Troudz]

Bonjour,

Je voudrais effectuer une même manipulation sur différentes feuilles. Afin de faire un code propre et de me faciliter les futures évolutions, je voulais me servir de la fonction Array mais je n'y arrive pas.

Je croyais pourtant me souvenir que l'on pouvait boucler sur les éléments d'un Array comme ceci :

For Each Feuille in Array(Feuil1, Feuil2, Feuil3...)
Feuille.Visible = True
Feuille.Cells(1,1) = "Bonjour"
...
Next

Pourriez vous m'aider à trouver la bonne syntaxe ?

Merci d'avance.

 

[PMO2]

Re : Problème tout bête avec Array

Bonjour,

Essayez

Sub aa()
Dim Feuilles As Variant
Dim i&
Feuilles = Array("Feuil1", "Feuil2", "Feuil3")
For i& = LBound(Feuilles) To UBound(Feuilles)
  With Sheets(Feuilles(i&))
    .Visible = True
    .Cells(1, 1) = "Bonjour"
  End With
Next i&
End Sub

Cordialement.

PMO
Patrick Morange

 

[Guest]

Bonjour Troudz,
Patrick🙂

Chez moi ce code fonctionne parfaitement, pour peu que feuille soit effectivement déclarée en 'Variant'

    Dim Feuille As Variant
    For Each Feuille In Array(Feuil1, Feuil2, Feuil3)
        Feuille.Visible = True
        Feuille.Cells(1, 1) = "Bonjour"
    Next Feuille

Par contre tu travailles avec les 'CodeName' des feuilles non avec leur nom d'affichage.
Faut choisir.

A+

 

[Troudz]

Re : Problème tout bête avec Array

Merci pour vos solutions. La solution de PMO2 sera peut être plus facile à utiliser car basée sur les noms de feuille. En tout cas, un grand merci à vous deux.