BASSDINGUE
XLDnaute Occasionnel
Bonjour le forum,
J'ai farfouiller un peu sur les differents post que j'ai pus trouver en rapport avec ce que je cherche. J'ai trouver des chose qui m'interesse mais pour ce qui concerne mon probleme d'aujourd'hui.
je m'explique:
-En cliquant sur un bouton je voudrais tout simplement dans une zone d'impression "a1:i56" ne pas imprimer les cellules "b50:b53"
Comment dois je proceder?
actuellement mon code est le suivant:
Sheets("DEVIS").Activate
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0#)
.RightMargin = Application.InchesToPoints(0#)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.Zoom = 100
.Orientation = xlPortrait
End With
Dim Msg As String
Msg = MsgBox("VOUS VOULEZ IMPRIMER LE DEVIS?" & vbCrLf & vbCrLf & "POUR LA CONVENTION CLIQUER NON" _
& vbCrLf, vbYesNo + vbQuestion, _
"ALERTE")
If Msg = vbYes Then
Sheets("DEVIS").Range("d3") = ""
Sheets("DEVIS").Range("d4") = "X"
ActiveSheet.PageSetup.PrintArea = "A1:I56"
ActiveWindow.SelectedSheets.PrintOut copies:=1
bonne journée a tous
J'ai farfouiller un peu sur les differents post que j'ai pus trouver en rapport avec ce que je cherche. J'ai trouver des chose qui m'interesse mais pour ce qui concerne mon probleme d'aujourd'hui.
je m'explique:
-En cliquant sur un bouton je voudrais tout simplement dans une zone d'impression "a1:i56" ne pas imprimer les cellules "b50:b53"
Comment dois je proceder?
actuellement mon code est le suivant:
Sheets("DEVIS").Activate
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0#)
.RightMargin = Application.InchesToPoints(0#)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.Zoom = 100
.Orientation = xlPortrait
End With
Dim Msg As String
Msg = MsgBox("VOUS VOULEZ IMPRIMER LE DEVIS?" & vbCrLf & vbCrLf & "POUR LA CONVENTION CLIQUER NON" _
& vbCrLf, vbYesNo + vbQuestion, _
"ALERTE")
If Msg = vbYes Then
Sheets("DEVIS").Range("d3") = ""
Sheets("DEVIS").Range("d4") = "X"
ActiveSheet.PageSetup.PrintArea = "A1:I56"
ActiveWindow.SelectedSheets.PrintOut copies:=1
bonne journée a tous