Sélection de plusieurs onglets

Bonjour à toutes et tous,

J'ai un fichier Excel (version 2019) avec 36 Onglets représentant chacun une semaine et dont les noms sont dans une variable Tableau_Onglets_Semaine(36, 2).

Je souhaite sélectionner les 36 onglets en une seule fois pour y copier le contenu d'un 37ième onglet.

Quelle ligne de programme faut-il écrire pour ce faire ?

' Sélection de la zone à copier dans les onglets semaine

Sheets("Onglet 37").Select

Range("H2:AT80").Select

Selection.Copy

'Sélection des onglets semaine ET C'EST LA QUE CA SE CORSE ??

ThisWorkbook.Sheets(Tableau_Onglets_Semaine(??????)).Select SI C'EST LA BONNE SYNTAXE ??

Range("A1").Select

' Copie du tableau dans les onglets semaine

ActiveSheet.Paste

Merci d'avance à ceux qui peuvent m'aider ! Je cherche depuis un moment sans trouver la bonne syntaxe ?

Bien cordialement

Régis

Bonsoir,

un petit code pour orienter votre recherche :

Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
    If Feuille.Name <> "Feuil2" Then Feuille.Select Replace:=False
Next Feuille

Celui-ci va sélectionner toutes les feuilles du classeur qui ne porte pas le nom "Feuil2".

Maintenant vous pouvez faire le test qui vous convient...

@ bientôt

LouReeD

Bonsoir,

Merci pour cette info. Je vais voir ce que je peux faire avec ce code.

Bonne soirée.

Cordialement

R. Mathieu

Bonjour à tous,

En fait on m'a donné la solution pour la syntaxe que je vous livre :

Sheets(Tableau_Onglets_Semaine(0, 1)).Select

For i = 1 To UBound(Tableau_Onglets_Semaine)

Sheets(Tableau_Onglets_Semaine(i, 1)).Select Replace:=False

Next i

Sheets(Tableau_Onglets_Semaine(0, 1)).Activate

Range("A1").Select

Merci à tous !

Cordialement

Bonjour,

C'est bien ce que je disais, après un test If ou une liste, c'est la même chose, non ?

@ bientôt

LouReeD

Bonjour,

Pas tout a fait car j'ai plus d'une feuille qui ne doit pas être sélectionnées et ces autres feuilles ne commencent pas toutes par "feuil...", ce qui fait que j'aurai du faire le If sur toutes les feuilles à exclure de la sélection voulue, alors que mon tableau ne contient que les feuilles à inclure dans le sélection.

Cordialement

Régis

@ bientôt

LouReeD