Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème tout bête avec Array

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Troudz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Troudz

XLDnaute Occasionnel
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 :

Code: 
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.
 
Trier par date Trier par votes
Re : Problème tout bête avec Array

Bonjour,

Essayez

Code: 
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
 
Vote positif 0 Vote négatif
Bonjour Troudz,
Patrick🙂

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

Code: 
    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+
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…