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
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