Trouver dernière ligne remplie et zone d'impressio

[christian.bedere]

Bonjour,
J'ai un fichier avec des lignes dont certaines cellules contiennent des formules, par exemple, sur toutes les lignes, les colonnes c,e,f et g contiennent une formule.
Les colonnes a(b étant fusionnée avec a) et d sont vierges, destinées , lors qu'elles sont remplies, à compléter par recherchev les formules sitées ci dessus.

J'aimerai connaître une macro permettant de trouver la dernière cellule remplie de la colonne a, et sélectionner la zone d' impression (par exemple : zone qui partirait de a1 à g...'dernière ligne' dont la colonne a est remplie)
de façon n'imprimer que les plages de lignes dont la colonne a est remplie.
Merci pour votre aide

 

[michel_m]

Salut Christian,

pour trouver la dernière ligne remplie

dim lig as long

lig=range('A65536').end(xlup).row

ta zone d'impression est alors

range(cells(1,1),cells(lig,7))

A+
Michel

 

[christian.bedere]

Salut Michel et merci...
Désolé mais cela ne fonctionne pas....
j'ai copié cette formule ds vba et affecté à un bouton, et cela ne fait rien... ai-je commis une erreur ?

 

[christian.bedere]

Re-bonsoir Michel ,
J'ai trouvé ma solution sur ce forum
Merci de m'avoir aidé..
@+
Christian

 

[KIM]

Bonjour le forum,
Bonjour Christian.Bedere,
merci de mettre le lien du fil dans lequel tu as trouvé ta solution.
Amicalement
bonne soirée
KIM

 

[christian.bedere]

Re : Re:Trouver dernière ligne remplie et zone d'impressio

Salut Kim !!

Voilà un an que tu as posté ce message, et je viens de le voir désolé !!!
Je viens de refaire une recherche et même s'il est trop tard je le met quand même, sait on jamais !!
Dim DerLig As Integer
Dim DerCol As Integer

DerLig = Range("a65536").End(xlUp).Row
DerCol = Range("h40").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(DerLig, DerCol)).Address
ActiveWindow.View = xlPageBreakPreview

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

Voilà, à plus ciao

 

[KIM]

Re : Re:Trouver dernière ligne remplie et zone d'impressio

Bonjour Christian.Bedere et le forum,
Merci pour le message meme tardivement.
Bonne journee
KIM