impresion si données

DIGGERJACK · 20 Décembre 2007

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 · 21 Décembre 2007

Re : impresion si données

bonjour DIGGERJACK

A tester:

Code:

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 · 21 Décembre 2007

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

impresion si données

DIGGERJACK

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

DIGGERJACK

XLDnaute Occasionnel

Discussions similaires

impresion si données

DIGGERJACK

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

DIGGERJACK

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency