XL 2016 Selection Plusieurs feuilles

J

jmfmarques

XLDnaute Accro

• 29 Février 2020

• #2

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 ?

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 29 Février 2020

• #3

jmfmarques à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 29 Février 2020

• #4

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 :

VB:

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

' tes instructions

Next

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 29 Février 2020

• #5

jmfmarques à dit:

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 :

VB:

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

' tes instructions

Next

Cliquez pour agrandir...

Ok Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Février 2020

• #6

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)

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Février 2020

• #7

Bonjour KTM, jmfmarques, JM, le forum,

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

VB:

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Février 2020

• #8

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.

 

Dernière édition: 29 Février 2020

Vote positif 0 Vote négatif