Imprimer avec VBA

bonjour à tous,

je joins un fichier d'exemple

mon fichier contient en feuille 1 des formules pour toute la colonne A

en fonction de cette formule des données apparaissent.

J'ai mis une macro pour imprimer uniquement les résultats obtenus mais ça m'imprime toute la page car la macro prend en compte les cellules qui contiennent une formule.

ma macro :

ActiveSheet.PageSetup.PrintArea = Range("A8:F" & Range("A65536").End(xlUp).Row).Address

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Une idée pour résoudre ce problème ?

Merci

Bonjour,

A mon avis, pas besoin de 2 feuilles,

il suffirait de filtrer les "1" pour imprimer ces lignes

Envoie le fichier réel pour voir

Amicalement

Claude

je ne peux pas l'envoyer, il est trop gros

en fait sur mon fichier réel j'ai des formules d'où mon exemple

je pensais faire une boucle jusqu'à temps que la cellule soit vide mais je bloque un peu

du style :

lig = Range("A65536").End(xlUp).Row

If Range("A&lig").Value = "" Then 'là je ne suis pas sur de moi !!!

lig = lig - 1

Bonjour,

Edit :message supprimé

Amicalement

re,

Envoie que les 1ères lignes (une vingtaine)

Le principe serait de cocher par un "1" ou un "x" chaque ligne à imprimer,

et ensuite de filtrer cette colonne

fastoche !

Claude

re,

Essaie ce code

Sub imprim()
'Macro Dan
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cel <> "" Then Set plage = Range("A1:A" & cel.Row)
Next
ActiveSheet.PageSetup.PrintArea = plage.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Amicalement

Parfait

merci beaucoup à vous