Z
zoom154
Guest
Bonjour,
Je souhaite mettre en place un macro qui permet d'imprimer uniquement les lignes visibles de la feuille, j'en arrive donc a cette macro mais sans grand succès:
Sub imprime
()
Set zonedetexte = Range("A1:O205")
For Each Row In zonedetexte
If Row.Hidden = False Then
Row.Select.PageSetup.PrintArea
End If
Next
End Sub
Je pense que pas mal de choses sont a retoucher mais je bloque
Merci
Je souhaite mettre en place un macro qui permet d'imprimer uniquement les lignes visibles de la feuille, j'en arrive donc a cette macro mais sans grand succès:
Sub imprime
()
Set zonedetexte = Range("A1:O205")
For Each Row In zonedetexte
If Row.Hidden = False Then
Row.Select.PageSetup.PrintArea
End If
Next
End Sub
Je pense que pas mal de choses sont a retoucher mais je bloque
Merci