Autres Problème code VBA "objet requis"

sylvanu à dit:

Votre Loop while s'arrête sur la première cellule vide :

VB:

Loop While .Cells(n + 1, 1).Formula <> ""

donc en ligne 12 puisque A10 et A11 ne sont pas vides.

Si vous voulez afficher la zone utile, il faut partir de la fin et remonter jusqu'à qu'une cellule soit non vide. Alors vous pouvez faire :

Code:

Public Sub ImprimerSylvanu()
  Dim n As Long
  Application.ScreenUpdating = False
  n = Range("A65500").End(xlUp).Row     ' Dernière cellule occupée
  With Feuil2
    .Unprotect Password:="toto"
    Do
      n = n - 1                         ' On remonte
      a = .Cells(n, 1).Value
    Loop While .Cells(n, 1).Value = ""  ' On sort si la cellule est non vide
    With .PageSetup
      .BlackAndWhite = True
      .PrintArea = "$A1:M" & n + 1
    End With
    .PrintPreview
    .Protect Password:="toto", UserInterFaceOnly:=True
  End With
  Application.ScreenUpdating = True
End Sub

J'ai mis la macro dans un module, elle n'a rien à faire dans la feuille.

Cliquez pour agrandir...