impression page active vba

Lone-wolf

XLDnaute Barbatruc

• 14 Novembre 2016

• #2

Bonjour Aubernon

Une simple recherche sur le net et tu aurait trouver ceci. J'ai modifié le nom de la macro.

Sub Print_Active_Sheet()
ActiveSheet.printOut
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Novembre 2016

• #3

Voci un petit formulaire avec choix dans combobox.

 

Pièces jointes

• Classeur1.xlsm

  27.8 KB · Affichages: 50

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2016

• #4

Bonjour à tous,

Aubernon à dit:

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

Cliquez pour agrandir...

Sans voir le fichier, ce sera difficile de répondre exactement à la demande car en lisant: "dans un onglets avec 52 pages" on pourrais comprendre qu'il y a 52 tableaux dans le même onglet(s)

à+
Philippe

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Novembre 2016

• #5

Bonjour Philippe

Et bien en relisant le message, j'ai mal compris la demande. On verra ce qu'il demande au juste.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2016

• #6

Re-Bonjour Lone-Wolf,

voir fichier joint pour un essai en fonction de ce que j'avais compris

à+
Philippe

 

Pièces jointes

• 111.xlsm

  33.2 KB · Affichages: 52

Vote positif 0 Vote négatif

A

Aubernon

XLDnaute Nouveau

• 14 Novembre 2016

• #7

oui j' ai un tableau dans une feuille appeler " semaine" qui reprend les 52 semaines de l'année soit 52 pages .
en gros : A1:E28 ( 1 semaine )
F1 : L28 (2 éme semaine ) etc.. jusqu’à OX soit les 52 pages

et je voudrais pouvoir imprimer automatiquement la semaine (page) sur laquelle je me trouve .

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2016

• #8

Re,

il suffit de reprendre mon fichier et adapter le code en fonction du numéro de semaine à imprimer

à+
Philippe

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2016

• #9

Re,

Aubernon à dit:

en gros : A1:E28 ( 1 semaine )
F1 : L28 (2 éme semaine ) etc.. jusqu’à OX soit les 52 pages

Cliquez pour agrandir...

je note déjà une incohérence dans la demande,
la semaine 1 se trouve sur 5 colonnes
et la semaine 2 se trouve sur 7 colonnes

Pour plus de facilité il est nécessaire que le tableau soit bien structuré ( le même nombre de colonnes pour chaque semaine)

à+
Philippe

 

Vote positif 0 Vote négatif

A

Aubernon

XLDnaute Nouveau

• 14 Novembre 2016

• #10

le début de l'année peut être choisie soit pour se tableau le 01 juin se trouve être un mercredi les semaines suivante sont bien à 7 colonnes 1 pour chaque jour de la semaine .


je joint le fichier cela sera plus simple , par ailleurs et juste pour le plaisir j'ai un code qui permet de transposer le tableau de la feuille semaine sur un tableau feuille année via un userform (saisie) , je cherche aussi la possibilité d'inverse le process soit transposer le tableau année sur la semaine si ça vous dit de jeter un coup d 'œil et me dire si cela et possible. merci

 

Pièces jointes

• Full_Planning pool(1).xlsm

  309 KB · Affichages: 50

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2016

• #11

Re,

voir fichier joint, le code s'active en pressant le touches Ctrl+w

à+
Philippe

Edit:
Pas trop le temps de m'occuper de la suite d'autant plus que j'aurais souhaité que TOUTES les semaines aient un nombre IDENTIQUE de colonnes

 

Pièces jointes

• 111.xlsm

  43 KB · Affichages: 44

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Novembre 2016

• #12

Re à tous

d'autant plus que j'aurais souhaité que TOUTES les semaines aient un nombre IDENTIQUE de colonnes

Cliquez pour agrandir...

@ PhLaurent: et bien voilà qui est fait.

VB:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As Range, col As Long, i As Long, x As Long
  Set plage = Feuil2.Range("a1:e29")
  Application.ScreenUpdating = False
  For i = 1 To 312 Step 6
  plage.Copy Cells(1, i)
  x = x + 1
  Cells(1, i) = "Semaine" & x
  Cells(1, i).RowHeight = 20
  Cells(1, i).HorizontalAlignment = xlJustify
  Cells(1, i).Font.Bold = True
  Next i
  For col = 6 To 312 Step 6
  Cells(1, col).ColumnWidth = 3
  Next col
  Cancel = True
End Sub

 

Pièces jointes

• Classeur1.xlsm

  39.9 KB · Affichages: 47

Dernière édition: 14 Novembre 2016

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2016

• #13

re,

voir fichier joint

j'aurais souhaité que les noms soient également imprimés mais l'instruction Union(Range .......) est inopérante

à+
Philippe

 

Pièces jointes

• Full_Planning pool(1).xlsm

  308 KB · Affichages: 38

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Novembre 2016

• #14

Re,

avec l'utilisation d'une feuille supplémentaire destinée à recevoir ce qui doit être imprimé

à+
Philippe

 

Pièces jointes

• Full_Planning pool(1).xlsm

  314 KB · Affichages: 54

Vote positif 0 Vote négatif

A

Aubernon

XLDnaute Nouveau

• 14 Novembre 2016

• #15

merci beaucoup c 'est nikel

 

Vote positif 0 Vote négatif