Bouton Impression Feuilles sélectionnées

**chrichnou051** · 16/04/2008, 10h17

Bonjour à tous,

Je vous explique ma situation, je suis entrain d'élaborer un "programme" excel pour calculer les déperditions calorifiques et la rentabilité des modifications que l'on pourrait amener à l'isolation,enfin soit...
Il y a plus de 30feuilles dans ce fichier excel: dont une : "impression" qui servirait à cocher les feuilles à imprimer, je ferais donc une liste de A12 à A42 avec le nom des feuilles et dans la colonne B, on marquerait d'un "X" les feuilles à imprimer.
Ensuite grâce à un bouton insérer dans la feuille: en cliquant dessus, celui ci lancerait l'impression des feuilles choisies...

Voici mes questions:
1) Est ce possible?
2) Je ne m'y connais pas en VBA, donc quelqu'un saurait-t-il me dire comment faire au niveau de la macro et autre?

Je vous remercie d'avance

**Jean-Pierre49** · 16/04/2008, 10h28

Bonjour

Essaye

Code :

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

1
2
3
4
5
6
7
8
9
Dim CompA As Integer
 
Application.ScreenUpdating = False
For CompA = 12 To Range("A65536").End(xlUp).Row
    Sheets(Range("A" & CompA).Value).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("impression").Select
Next CompA
Application.ScreenUpdating = True

**chrichnou051** · 16/04/2008, 11h02

Bonjour Jean-Pierre,

Tout d'abord merci pour ton aide,

Ensuite ça n'a pas l'air de fonctionner. vois en pièce jointe ce qu'il m'affiche quand j'appuie sur le bouton...

Y a t il une consigne peut être à respecter pour le placement etc...
En regardant ton code tu n'utilises pas du tout la colonne B (colonne où l'on coche les feuilles à imprimer), je ne m'y connais pas du tout donc je ne veux pas te critiquer, c'est juste une observation...

Merci encore

**Jean-Pierre49** · 16/04/2008, 11h08

Bonjour,

Tu es à l'exterieur d'une procédure

Code :

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

1
2
3
4
5
Sub LaMacro () ' LaMacro = Le nom que tu veux
 
Le Code
 
End sub

De nouveau

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 LaMacro()
 
Dim CompA As Integer
 
Application.ScreenUpdating = False
For CompA = 12 To Range("A65536").End(xlUp).Row
    If Range("B" & CompA) = "X" Then
        Sheets(Range("A" & CompA).Value).Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Sheets("impression").Select
    End If
Next CompA
Application.ScreenUpdating = True
End Sub