Discussion :

[edlede]

Bonjour à tous,

j'ai un fichier qui s'incrémente d'une centaine de ligne chaque jours, Périodiquement je devrai imprimer le fichier mais j'aimerai que pour chaque impression, imprimer que les cellules qui non jamais été imprimées. ( mise à part les celules A1 à C5 (entete)qui me serviront d'entete)

Est ce selon vous possible?

ci joint mon fichier à imprimer....

[unparia]

Bonjour
La question est :

Est ce selon vous possible?

La réponse est donc : OUI

[edlede]

Et quelle stratégie adopter du coup ?

Et quelle stratégie adopter du coup ? Marquage des lignes lors des différentes impression? Puis sélection de lignes non marquée pour la nouvelle impression ?

Par contre j ai aucune idée de comment réaliser une telle prouesse

Surtout que j aimerai que les données restent constamment consultable ( car j avais envisager leurs supressions où le masquage mais ça n'a été valider par la qualité. )

[eriiic]

Bonjour,

tu enregistres la dernière ligne imprimée qq part dans une cellule et tu ne les masques que le temps de l'impression.
eric

[unparia]

Bonjour
même pas besoin de les maquer.
Il suffit de mémoriser (dans une cellule, par exemple) la dernière imprimée, puis de sélectionner de la ligne suivante jusqu'à la fin et d'imprimer cette sélection.

[edlede]

Ok merci umparia même stratégie qu eriiic je vais voir se que je peux faire.

Alors effectivement c'est faisable comme ça mais j'ai une incompabilité lorsque je veux sauvegarder le fichier après l'impression / et ou après modification de la cellule LigFin si vous avez une idée histoire que je ne finisse pas avec un

One error resume next

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 Macro1()
Dim i, j, k As Integer
ActiveSheet.Unprotect 'Password:="ed"
i = Range("LigDep").Value
If WsCent.Cells(i, 1) <> "" Then
j = Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Rows.Count - 1
k = i + j
WsCent.Range(Cells(i, 1), Cells(k, 1)).Select
WsCent.Range(Selection, Selection.End(xlToRight)).Select
Selection.PrintOut Copies:=1, Collate:=True
WsCent.Range("Ligfin") = k
Else
MsgBox "Toutes les feuilles sont déjà imprimées", 48, "Impression"
derligne = ActiveSheet.Range("A1048576").End(xlUp).Row + 1 'recherche dernière ligne col A non utilisé
ActiveSheet.Range("A" & derligne).Select
ActiveSheet.Protect ' Password:="ed"
'ActiveWorkbook.Save 'ici, ici, ici,
End If
End Sub

Enregistrement5 (Enregistré automatiquement).xlsm

[unparia]

par cette ligne de code :

Code :

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

Dim i, j, k As Integer

1) seul k est typé (en integer). i et j restent donc des variant
2) un integer a une limite (32 767)
les 3 devraient être typés en Long