XL 2016 Selection Plusieurs feuilles

[KTM]

Bonjour chers tous
Je voudrais par macro sélectionner mes feuilles numérotées de 1 à 50
Du genre :
T = Array(1, 2, ...,50)

Merci

 

[jmfmarques]

Bonjour
ton "du genre" montrant une initialisation d'array (sans être suivi de sélection), précise stp :
Toutes à la fois ou toutes, une après l'autre ?

 

[KTM]

Bonjour
ton "du genre" montrant une initialisation d'array (sans être suivi de sélection), précise stp :
Toutes à la fois ou toutes, une après l'autre ?

Merci en fait je voudrais sélectionner ces 50 feuilles contiguës afin de faire exécuter ma macro M1

J'ai pensé à quelque chose comme:

T = Array(1, 2, ...,50)
For i = LBound(T) To UBound(T)
With Worksheets(T(i))
call M1
End With
Next i

 

[jmfmarques]

Le code auquel tu as pensé convient si, comme tu le laisses penser, tu dois traiter ces feuilles une après l'autre.


Tu pourrais d'ailleurs l'écrire également ainsi :

For Each sh In Worksheets(Array(1, 2, 3))

' tes instructions

Next

 

[KTM]

Le code auquel tu as pensé convient si, comme tu le laisses penser, tu dois traiter ces feuilles une après l'autre.


Tu pourrais d'ailleurs l'écrire également ainsi :

For Each sh In Worksheets(Array(1, 2, 3))

' tes instructions

Next

Ok Merci

 

[Staple1600]

Bonjour le fil, KTM, jmfmarques

Testé sur Excel2K13
(sur un classeur avec 8 feuilles nommées : 1,2,3,4,5,A,B,C)
Le code ci-dessous rempli un Array (avec uniquement les feuilles 1 à 5) et ne sélectionne que celles-ci
A adapter selon usage (voir commentaires en vert)

Sub Exemple_5_Feuilles()
Dim ws As Worksheet, i%, tabF(4) '-> tabF(49) pour 50 feuilles
i = 0
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case 1 To 5 '-> Case 1 to 50 pour 50 feuilles
tabF(i) = ws.Name
i = i + 1
End Select
Next ws
Sheets(tabF).Select False
End Sub

 

[job75]

Bonjour KTM, jmfmarques, JM, le forum,

Pourquoi utiliser un Array puisqu'il y a la collection Worksheets ?

Dim w As Worksheet
For Each w In Worksheets
    Call M1(w)
Next

M1 étant paramétrée avec l'argument w As Worksheet

Et si l'on veut se limiter aux 50 1ères feuilles :

Dim i%
For i = 1 To IIf(Worksheets.Count > 50, 50, Worksheets.Count)
    Call M1(Worksheets(i))
Next

A+

 

[Staple1600]

Re, Bonjour job75

Le message#1 parlait d'Array et Selection de plusieurs feuilles
J'ai donc posté une macro avec un Array et qui sélectionne plusieurs feuilles. 😉
Tu postes une macro sans Array et paramétrée.
Le demandeur choisira ce qu'il veut.