Impression de certaines cellules

**marinef** · 30/07/2008, 12h11

Bonjour j'ai une page à imprimer, et je veux le faire par l'intermédiaire d'un bouton imprimer. En fait je rempli la colonne 3 par des numéro. Il peut y avoir un certain nombre de numéro. Et je veux imprimer à la fin de ce dernier numéro.

Pour se faire j'ai ecrit ce code:

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
Sub Imprimer_BeforeDoubleClick()
'Imprimer l'Annexe
 
Dim i As Integer, cel As Range
If ActiveSheet.Name = "Annexe" Then
    Application.EnableEvents = False
    i = 9
    Do
      i = i + 1
      If Cells(i, 3) = "" Then
            ActiveSheet.PrintOut From:=9, To:=1 + i, Copies:=1, Collate:=True
      End If
    Loop Until Cells(i, 3) = ""
    Application.EnableEvents = True
    Cancel = True
End If
MsgBox "ok"
 
End Sub

Mais cependant mon impression ne s'arrete jamais!! Et j'ai d'innombrable feuille qui s'imprime

**ouskel'n'or** · 30/07/2008, 12h32

Supprime déjà "Cancel = True" et "cel As Range" et teste ça

Code :

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

1
2
3
4
5
6
7
8
Dim i As Integer, derlig as long
If ActiveSheet.Name = "Annexe" Then
    Application.EnableEvents = False
    DerLig = Range("C65536").end(xlup).row
    i = 9
    ActiveSheet.PrintOut From:=9, To:=DerLig , Copies:=1, Collate:=True
    Application.EnableEvents = True
End If

**marinef** · 30/07/2008, 13h52

ça ne marche pas ça m'imprime des pages blanches
j'ai l'impression que ça imprime à partir de la derniere ligne..

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 Imprimer_BeforeDoubleClick()
'Imprimer l'Annexe
 
Dim i As Integer, derlig As Long
If ActiveSheet.Name = "Annexe" Then
    Application.EnableEvents = False
    derlig = Range("C65536").End(xlUp).Row
    i = 9
    ActiveSheet.PrintOut From:=9, To:=derlig, Copies:=1, Collate:=True
    Application.EnableEvents = True
End If
MsgBox "ok"
 
End Sub

**ouskel'n'or** · 30/07/2008, 19h05

As-tu défini une zone d'impression ? Tu fais ça avec PageSetup -> F1
Désolé mais je viens de voir ton message et là je m'en vais.
Bonne soirée

**marinef** · 31/07/2008, 11h27

j'ai figer un volet afin de repeter les lignes du haut de la ligne 1 à 8..

**marinef** · 31/07/2008, 11h38

Ca veut dire quoi printsetup ->F1?? meme si je ne fige pas les volets ca ne marche pas..

**ouskel'n'or** · 31/07/2008, 11h46

Autant pour moi

regarde à pageSetup et printArea dans l'aide en ligne
Permet de définir la zone d'impression :

Code :

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

    ActiveSheet.PageSetup.PrintArea = "$A$1:$A$7"

J'ai une excuse, en même temps que je réponds j'essaie d'attraper un pigeon qui vient manger les croquettes de ma minette

**marinef** · 31/07/2008, 11h51

Ah zut

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
Sub Imprimer_BeforeDoubleClick()
'Imprimer l 'Annexe
 
Dim i As Integer, derlig As Long
If ActiveSheet.Name = "Annexe" Then
    Application.EnableEvents = False
    derlig = Range("C500").End(xlUp).Row
    i = 9
    ActiveSheet.PageSetup.PrintArea = "$A$1:$A$8"
    ActiveSheet.PrintOut From:=9, To:=derlig, Copies:=1, Collate:=True
    Application.EnableEvents = True
End If
MsgBox "ok"
 
End Sub

Qd j'eesai ça j'ai un véritable pb, ça m'imprime en haut à gauche juste les lettres "IB"!!!

**ouskel'n'or** · 31/07/2008, 12h00

Après définition de la zone d'impression, je crois bien que cette instruction suffit.

Code :

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

ActiveSheet.PrintOut

Tu vérifies

**marinef** · 31/07/2008, 12h10

Non car je veux imprimer jusqu'à la cellule C.. qui est pleine.. Dans la colonne D j'ai des forule qui permettent de traduire la colonne C en code barre. Du coup si j'imprime ça imprime tout, des feuilles à l'infini

**ouskel'n'or** · 31/07/2008, 12h54

Alors définis ta zone d'impression pour la plage qui t'intéresse !

Code :

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

1
2
ActiveSheet.PageSetup.PrintArea = "$A$9:$C$" & derlig
ActiveSheet.Printout

Teste ça

Code :

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

1
2
3
4
5
Sub test()
Derlig = Split(ActiveSheet.UsedRange.Address, "$")(4)
ActiveSheet.PageSetup.PrintArea = "$A$9:$C$" & Derlig
ActiveWindow.SelectedSheets.PrintPreview
End sub

et dis ce que tu vois !

**marinef** · 31/07/2008, 14h02

Code :

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

1
2
3
4
5
6
7
8
9
Sub Imprimer_BeforeDoubleClick()
 
ActiveSheet.PageSetup.PrintArea = "$A$9:$C$" & derlig
ActiveSheet.PrintOut
derlig = Split(ActiveSheet.UsedRange.Address, "$")(4)
ActiveSheet.PageSetup.PrintArea = "$A$9:$C$" & derlig
ActiveWindow.SelectedSheets.PrintPreview
 
End Sub

Je vois erreur 400!

**marinef** · 31/07/2008, 14h06

ca marche!!!!!!!!!!!!!!!!!!!!!!!!!!!

**ouskel'n'or** · 31/07/2008, 14h13

???

Le code que je te dis d'utiliser est ça

Code :

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

1
2
3
4
5
Sub Imprimer_BeforeDoubleClick()
    derlig = Range("C65536").End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "$A$9:$C$" & derlig
    ActiveSheet.PrintOut
End sub

l'autre code était simplement pour que tu aies un aperçu de la feuille à imprimer.
Pour l'erreur 400, quelle version d'Excel as-tu ? (Pour la version 97, Split n'existait pas. Utilise ton code)

**marinef** · 31/07/2008, 14h19

merci infiniment

**marinef** · 31/07/2008, 14h59

En fait à présent je voudrais ajouter des numéros de pages.
Pour cela j'ai ecris ce code:

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
32
33
34
35
Sub Imprimer_BeforeDoubleClick()
'Pour imprimer les feuilles de l'annexe
 
    derlig = Range("C65536").End(xlUp).Row
 
    If 8 < derlig < 38 Then
    Sheets("Canevas").Cells(4, 14) = "1/2"
    Sheets("Annexe").Cells(9, 6) = "2/2"
End If
    If 37 < derlig < 67 Then
    Sheets("Canevas").Cells(4, 14) = "1/3"
    Sheets("Annexe").Cells(9, 6) = "2/3"
    Sheets("Annexe").Cells(38, 6) = "3/3"
End If
 
    If 66 < derlig < 96 Then
    Sheets("Canevas").Cells(4, 14) = "1/4"
    Sheets("Annexe").Cells(9, 6) = "2/4"
    Sheets("Annexe").Cells(38, 6) = "3/4"
    Sheets("Annexe").Cells(67, 6) = "4/4"
End If
 
    If 95 < derlig < 125 Then
    Sheets("Canevas").Cells(4, 14) = "1/5"
    Sheets("Annexe").Cells(9, 6) = "2/5"
    Sheets("Annexe").Cells(38, 6) = "3/5"
    Sheets("Annexe").Cells(67, 6) = "4/5"
    Sheets("Annexe").Cells(96, 6) = "5/5"
End If
 
    ActiveSheet.PageSetup.PrintArea = "$A$9:$G$" & derlig
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.PrintOut
 
End Sub

Cependant la meme si la derniere ligne est entre 9 et 38 alors ça m'ecrit 1/5; 2/5; 3/5... et ce sous forme de date!!

**ouskel'n'or** · 31/07/2008, 15h41

Je ne comprends pas ce que tu veux faire par ce code. Enfin, si, mais je ne vois pas comment il ferait ce que tu veux.
Déjà, la ligne derlig = Range("C65536").End(xlUp).Row donne le N° de la dernière ligne de la seule feuille active.
Or tu as d'autres feuilles, apparemment, dont la dernière ligne peut ne pas être la même.
Comment veux-tu imprimer toutes les feuilles avec une seule ligne pour établir la zone d'impression ?
Bref, explique-nous tout.
Que veux-tu faire ? Numéroter les pages, ça, on a compris. Mais que veux-tu imprimer ?
Regarde ici, tu as deux exemples tout faits de ce que tu "sembles" vouloir faire. Si tu as un pb de compréhension du code, tu demandes

Impression de certaines cellules

Macros et VBA Excel

Discussions similaires

Partager

Partager