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

  • Initiateur de la discussion Initiateur de la discussion Cougar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cougar

XLDnaute Impliqué
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
 

Pièces jointes

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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
547
Réponses
5
Affichages
245
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
484
Réponses
7
Affichages
251
Retour