impression page active vba

[Aubernon]

Bonjour ,

je cherche un code vba affecter à un bouton qui me permettrai d' imprimer une page spécifique , je travail sur un tableau( de type planning) dans un onglets avec 52 pages et je voudrais pouvoir imprimer la page voulue automatiquement.

si quelqu'un à la solution


merci

 

[phlaurent55]

Re,

Ce serait encore plus nickel si la macro se déclenchais suite à un double-clic sur le numéro de la semaine.
Ça éviterais de devoir aller cliquer sur le dessin de l'imprimante.

À+
Philippe

 

[Lone-wolf]

Re Philippe, Aubernon

Encore une fois... aussitôt dit aussitôt fait . J'ai dû ajouter sem, car à chaque clique les champs semaines étaient éffacés.

Option Explicit

Private Sub Worksheet_Activate()
Dim C As Range
  Application.ScreenUpdating = False
  For Each C In [planning2]
  C.Interior.ColorIndex = xlNone
  On Error Resume Next
  C.Interior.ColorIndex = [activité].Find(C, LookAt:=xlWhole).Interior.ColorIndex
  Next C
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static sem$, cel As Range, nbcol As Long

  Application.ScreenUpdating = False
  sem = ActiveCell.Value

  If ActiveCell.Row <> 2 Then
  MsgBox ("Vous devez sélectionner le numéro de semaine en ligne 2")
  Exit Sub
  End If
  nbcol = 6
  Set cel = ActiveCell.MergeArea

  If ActiveCell.Column = 2 Then: nbcol = 3: cel = sem
  Sheets("Print").Columns("B:H").Delete
  Range(Cells(2, ActiveCell.Column), Cells(23, ActiveCell.Column + nbcol)).Copy Sheets("Print").Range("B1")
  Sheets("Print").PrintPreview
End Sub