Bonjour,
Je dispose d'un code VBA pour imprimer seulement mes lignes actives
Si la valeur dans les cellules de la colonne AP = 0, alors la ligne concernée n'est pas imprimée.
J'aimerai ajouter la même chose sur les colonnes, si la valeur dans la ligne 319 = 0, alors on n'imprime pas la colonne concernée.
Que dois-je ajouter à mon code existant?
Merci d'avance,
Cardi
Je dispose d'un code VBA pour imprimer seulement mes lignes actives
VB:
Sub Imprimdevis()
Dim Plage As Range
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet
Set Plage = .Range("ap1:ap318")
For Each CEL In Plage
If CEL.Value = 0 Then Rows(CEL.Row).Hidden = True
Next CEL
.PrintPreview 'pour voir sans imprimer
'.PrintOut ' pour imprimer directement
.Rows.Hidden = False
End With
End Sub
Si la valeur dans les cellules de la colonne AP = 0, alors la ligne concernée n'est pas imprimée.
J'aimerai ajouter la même chose sur les colonnes, si la valeur dans la ligne 319 = 0, alors on n'imprime pas la colonne concernée.
Que dois-je ajouter à mon code existant?
Merci d'avance,
Cardi