Discussion :

[PabloSloy]

Bonjour à la communauté,

Je n'arrive pas à trouver la macro pour sélectionner plusieurs feuilles qui seront différentes à chaque fois.
Je m'explique, un rapport est publié hebdomadairement et j'aimerai y intégrer le travail de chaque ouvrier. Le problème est qu'ils ne sont pas toujours tous présent et afin de désencombrer le rapport, j'aimerai sélectionner uniquement ceux inscrit dans une liste. chaque ouvrier possède sa propre feuille.
La fonction array est capable de cela mais seulement si c'est toujours les mêmes, une idée s'il vous plait ?

En vous remerciant de m'avoir lu.

[marot_r]

Bonjour.

Je viens de tester et on peut faire quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim listeFeuille() As String
    ReDim listeFeuille(0)
    listeFeuille(UBound(listeFeuille)) = "Feuil1"
 
    ReDim Preserve listeFeuille(UBound(listeFeuille) + 1)
    listeFeuille(UBound(listeFeuille)) = "Feuil2"
 
    Worksheets(listeFeuille()).Select

Donc tu peux avoir une liste variable de feuilles.
Le point un peu pénible avec ce code est qu'il faut traiter la 1ère différemment des autres.

A+

[Pierre Fauconnier]

Salut.
:::
Il faudrait donner un peu plus d'indications sur la configuration de ton classeur, la "liste" des ouvriers, etc...

[PabloSloy]

Merci Marot_r d'avoir répondu aussi vite hier, néanmoins de ce que j'ai essayé je n'ai pas eu le résultat voulu. Je voulais justement évité de nommer mes feuilles auxquels je dois faire appel pour les insérer. Il se peut que j'ai mal utilisé ton code aussi ayant découvert VBA il y a 5 mois .

Pierre, merci de ta venu mais je vais clore le sujet, c'était vraiment dans un esprit perfectionniste que je cherchais à insérer seulement ce que je voulais (des graphes compris dans les feuilles de préparateurs), mais au final je vais tous les insérer pour me consacrer à d'autre sujets plus urgent.

Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Macro1()
 
Dim strNPDF As String
Dim strCh As String
 
'Le nom du PDF à créer
    strNPDF = "essai.pdf"
 
 'Adresse du ficher
'C:\Users\guyro\Desktop\" à changer
strCh = "S:\Maintenance\3 - ANALYSE" & strNPDF
 
'Selection les cellules à imprimer
Feuil24.Select
    Range("A1:N96").Select
        Feuil9.Select
            Range("A1:H15").Select
                Feuil23.Select
                    Range("A1:G51").Select
 
'Selectionner les onglets souhaités
    ActiveWorkbook.Sheets(Array("pierre", "marot", "robert")).Select
 
'Créer le PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strNPDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
 
 
End Sub

Merci à vous deux, bonne journée.

[marot_r]

Bonjour.

Tu as parlé d'une liste donc on pourrait faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    dim zoneListeNomFeuille as range: set zoneListeNomFeuille=ThisWorkbook.Worksheet("uneFeuille").column("A")'Colonne qui contient la liste des feuilles
    dim celluleNomFeuille as range
 
    Dim listeFeuille() As String
    dim estPremier as boolean: estPremier=true
 
    for each celluleNomFeuille in zoneListeNomFeuille.cells
 
        if cellulesNomFeuille.value="" then
            exit for 'plus de nom de feuille dans la liste
        end if
 
        if estPremier then
            ReDim listeFeuille(0)
            estPremier=false
          else
            ReDim Preserve listeFeuille(UBound(listeFeuille) + 1)
        end if
 
        listeFeuille(UBound(listeFeuille)) = celluleNomFeuille.value
   next celluleListeFeuille  
 
   thisWorkbook.Worksheets(listeFeuille()).Select
 
   set zoneListeFeuille = nothing
   set celluleListeFeuille  = nothing

ou si tu n'as pas de liste explicite mais un critère pour sélectionner tes feuilles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    dim estPremier as boolean: estPremier=true
    dim estASelectionner as boolean
 
    dim feuille as worksheet: for each feuille in thisWorkbook.worksheets
        estASelectionner = … 'Ici une expression ou du code pour décider si la feuille est sélectionnée ou pas.
 
        if estASelectionner then 
 
            if estPremier then
                ReDim listeFeuille(0)
                estPremier=false
              else
                ReDim Preserve listeFeuille(UBound(listeFeuille) + 1)
            end if
 
            listeFeuille(UBound(listeFeuille)) = feuille.name
      end if
 
   next feuille
 
   Worksheets(listeFeuille()).Select

A+