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

Cougar · 13 Mars 2017

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 · 14 Mars 2017

Cougar à dit:
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

Code:

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 · 14 Mars 2017

Bonsoir JJ,

Super, c'est exactement ce que je recherchais.

Merci

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

Cougar

XLDnaute Impliqué

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Cougar

XLDnaute Impliqué

Discussions similaires