Discussion :

[goingoin6]

Bonjour,
je souhaite selectionner plusieurs feuilles en meme temps pr lancer une impression.
Voici mon code. L'erreur dit 'L'indice n'appartient pas a la selection' pour la ligne ThisWorkbook.Worksheets(liste).Select.
J'ai cherché sur internet, mais je ne vois pas pourquoi ca ne fonctionne pas , j'espere que quelqu'un pourra m'aider!
merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
 j = 1
For i = 276 To 286       
             ReDim Preserve liste(j)
            liste(j) = Sheets("Administration").Cells(69, 11).Value + Sheets("Administration").Cells(i, 1).Value
 
Next
 
ThisWorkbook.Worksheets(liste).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

[mercatog]

Tu n'as pas incrémenté le j à l'intérieur de la boucle.
Puis est ce que tu es sur du nom (ou de l'indice des feuilles) donnée dans ta ligne 5.

Exemple pour test

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub aaa()
Dim i As Integer, j As Integer
Dim Liste() As String
 
With ThisWorkbook
    For i = 1 To 5
        j = j + 1
        ReDim Preserve Liste(1 To j)
        Liste(j) = .Worksheets(i).Name
    Next i
    .Worksheets(Liste).PrintOut Copies:=1, Collate:=True
End With
End Sub

[goingoin6]

Bonjour,

Merci pour ta réponse, en effet j'ai pas incrémenté ma boucle j
le nom de mes feuilles est correct, quand je test avec un msgbox pour afficher mon tableau, ça fonctionne bien, il est bien rempli.
Cependant le .Worksheets(Liste).PrintOut Copies:=1, Collate:=Truedonne tjr la même erreur :"l'indice n'appartient pas à la sélection"

je ne comprend toujours pas pourquoi...

[mercatog]

Fais le test avec cette macro et regarde ce que tu as dans la fenêtre Exécution de ton éditeur vba (Ctrl G si elle n'est pas visible)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bbb()
Dim i As Integer, j As Integer
Dim Liste() As String
 
With ThisWorkbook
    For i = 276 To 286
        j = j + 1
        ReDim Preserve Liste(1 To j)
        Liste(j) = .Worksheets("Administration").Cells(69, 11).Value + .Worksheets("Administration").Cells(i, 1).Value
        Debug.Print "|" & Liste(j) & "|"
    Next i
End With
End Sub

[goingoin6]

Voici le résultat de la fenetre d'execution:

|SA_Hyp (2)|
|Graph_SA|
|SA_SynCou|
|GraphSAM_SA|
|SA_Patient|
|SA_R2|
|SA_MIB|
|SA_MIB_N2|
|SA_R3|
|SA_MIB_N3|
|SA_MIB%|

c'est bien le nom de mes feuilles.

[mercatog]

Pour être sûr de ce que tu veux imprimer, on teste l'existence des feuilles.
En plus, il fallait mettre Sheets à la place de Worksheets car tu as des feuilles graphiques.
Un code complet

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
31
Sub Bbb()
Dim i As Integer, j As Integer
Dim Liste() As String, Prem As String, Dern As String
 
 
With ThisWorkbook
    Prem = .Worksheets("Administration").Cells(69, 11).Value
    For i = 276 To 286
        Dern = .Worksheets("Administration").Cells(i, 1).Value
        If Existe(Prem & Dern) Then
            j = j + 1
            ReDim Preserve Liste(1 To j)
            Liste(j) = Prem & Dern
        End If
    Next i
    If j > 0 Then .Sheets(Liste).PrintOut Copies:=1, Collate:=True
End With
End Sub
 
Private Function Existe(ByVal Str As String)
Dim Sh As Object
 
If Str <> "" Then
    For Each Sh In ThisWorkbook.Sheets
        If Sh.Name = Str Then
            Existe = True
            Exit For
        End If
    Next Sh
End If
End Function