Bonjour,

Je cherche en vain à trouver le moyen d'imprimer toute ma feuille jusqu'à l'endroit où plus rien n'est écrit entre les colonnes A et G.

J'ai trouvé ce lien:
[URL="http://www.developpez.net/forums/d450923/logiciels/microsoft-office/excel/contribuez/derniere-ligne-derniere-colonne-renseignees-d-feuille/"]

et j'ai essayé de mettre en oeuvre comme ça:

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
 
Private Sub CommandButton2_Click()  'Imprime de la feuille PV
Dim lgfin As Long
Dim c As Integer
 
    'Recherche de la dernière ligne écrite
        'ActiveWorksheet().PrintOut  'impression de la page active
        'lgfin = Sheets("PV").Range("A" & Application.Rows.Count).End(xlUp).Row
        'lgfin = Range("A1:G" & Range("G65536").End(xlUp).Rows)
 
    For c = 1 To 7
     lgfin = Cells(Columns(c).Cells.Count, 1).End(xlUp).Row
    Next
 
        'Worksheets("PV").Rows(25).PageBreak = xl.PageBreakManual
 
    Sheets("PV").PageSetup.PrintArea = "A1:G" & lgfin ' Définition de la zone d'impression avec variable lgfin
 
        'Worksheets(Array("PV")).PrintOut
End Sub
Mais sans succès. Il trouve la dernière ligne où A est vide mais il ne prend pas les lignes où les colonnes "C" et "D" sont seules remplies.

Je tourne en rond . Quelqu'un pourrait-il m'aider svp?