Discussion :

[Miraie]

Bonjour,

Je travaille sur une macro afin d'imprimer une plage nommée parmi une liste de plage nommée. Ces plages se trouvent sur d'autres feuilles que celle ou la macro est lancée. Donc, j'ai la cellule "T2" de la feuille "Calcule" que sa valeur représente le nom de la plage nommée et la cellule "E7" de la feuille "Journée" qui représente le nom de la feuille où se trouve la plage. Alors que j'exécute la macro, j'ai une erreur d'exécution '9' (L'indice n'appartient pas à la sélection) à la ligne 9. Pouvez-vous m'aider? Je ne comprends pas mon erreur.

Merci d'avance pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test
Dim L As String
Dim FL As String
 
    FL = Worksheets("Journée").Range("E7").Value
    L = Worksheets("Calcule").Range("T2").Value
 
    Sheets("FL").Activate
    ActiveSheet.PageSetup.PrintArea = L
    Application.PrintCommunication = False
 
    ImprimerH
End Sub

[Tête de chat]

Bonjour,

en toute logique tu dois plutôt écrire :

Code :

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

Sheets(FL)

Et pour être plus propre (pas de référence implicite, pas de select...) ça pourrait donner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test
    Dim L As String
    Dim FL As String
 
    FL = ThisWorkBook.Worksheets("Journée").Range("E7").Value
    L =  ThisWorkBook.Worksheets("Calcule").Range("T2").Value
 
    ThisWorkBook.Worksheets(FL).PageSetup.PrintArea = L
    Application.PrintCommunication = False
 
    ImprimerH
 
End Sub

[Miraie]

Merci Tête de chat,

L'erreur est réglée. Par contre, la macro imprime la dernière zone d'impression de la page active. Alors, je continus mes tests et je suis ouvert à vos idées.

Merci encore.

[Miraie]

Bonjour,

Après avoir dormi sur le problème, j'ai trouvé la solution. J'ai seulement à ajouter Sheets(FL).Activate, avant d'assigner la plage d'impression. Je vous laisse mon code, si jamais cela peux aider.

Merci pour votre précieuse aide.

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
Test()
    Dim L As String
    Dim FL As String
 
    FL = ThisWorkbook.Worksheets("Journée").Range("E7").Value
    L = ThisWorkbook.Worksheets("Calcule").Range("T2").Value
 
    Sheets(FL).Activate
 
    ThisWorkbook.Worksheets(FL).PageSetup.PrintArea = L
    Application.PrintCommunication = False
 
    ImprimerH
 
    Sheets("Journée").Activate
 
    End If
 
End Sub

[Tête de chat]

Bonjour

le problème doit être dans ImprimerH, dont on n'a pas vu le code ici, parce que les deux instructions au dessus sont insensibles à la feuille active.