XL 2016 (Résolu) Imprimer ligne avec cellule vide

[Cougar]

Bonjour le forum.

Je veux imprimer 110 lignes dont la cellule en C est vide.

J'ai écrit code mais malheureusement le compteur cesse après 110 lignes (vide ou non):
Private Sub CommandButton1_Click()
Dim i As Integer
Unload Me
Application.ScreenUpdating = False
Sheets("Feuil1").Selec
Range("c2").Select
For i = 1 To 110
If ActiveCell = "" Then
ActiveCell.EntireRow.Copy
Sheets("Feuil2").Select
Range("a60000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub

Comment corriger le tout ?

Voir le fichier joint (j'ai effacé plusieurs lignes pour allégé le fichier)

Merci

 

[Jacky67]

Bonjour le forum.

Je veux imprimer 110 lignes dont la cellule en C est vide.

J'ai écrit code mais malheureusement le compteur cesse après 110 lignes (vide ou non):

Merci

Bonjour,
Quelque chose comme cela

Sub imprime()
Dim i As Long, x As Long
Application.ScreenUpdating = False
Sheets("Feuil2").Range("a4:e" & Rows.Count).Clear
Sheets("Feuil1").Select
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    If x > 110 Then Exit For
    If Cells(i, "c") = "" Then
        Rows(i).Copy Sheets("Feuil2").Range("a" & Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row + 1)
        x = x + 1
    End If
Next
Sheets("Feuil2").PrintPreview    ' supprimer après test
'Sheets("Feuil2").PrintOut 'valider après test
Application.ScreenUpdating = True
End Sub

 

[Cougar]

Bonsoir JJ,

Super, c'est exactement ce que je recherchais.

Merci