impresion si données

[DIGGERJACK]

Bonsoir
je voudrais par macro imprimer les pages dont les cellules suivantes
sont remplies k2 k38 k74 …….c'est-à-dire faire un test sur la colonne k toutes les 36 lignes et s'il y a une donnée alors je voudrais imprimer la page concernée ou les pages concernées Est-ce que cela est possible

Merci de votre aide

Diggerjack

 

[pierrejean]

Re : impresion si données

bonjour DIGGERJACK

A tester:

Sub Macro1()
For n = 2 To Range("K65536").End(xlUp).Row Step 36
  If Range("K" & n) <> "" Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Exit Sub
  End If
Next n
End Sub

 

[DIGGERJACK]

Re : impression si données

Bonsoir Pierrjean et le forum

Merci beaucoup une fois de plus Pierre Jean pour cette solution

Bon week end et bonnes fêtes de fin d'année