macro d'impression

[Goes]

Bonjour,

voila , j'aimerai creer une macro qui lance l'impression
d'une feuille plusieur fois
pour etre plus clair :
si cellule L6C2 de la feuill1 prend la valeur 6
je souhaiterais donc imprimer 6 fois la feuill2
si la cellule L6C3 de la feuill1 prend la valeur 1
je souhaiterais donc imprimer 1 fois la feuill4
il y a en fait 8 cellules a surveiller et donc 8 pages differentes a imprimer
je parcours le forum depuis un moment deja en essayant d'adapter
diverse chose mais cela reste confu......
Par avance merci pour votre aide

 

[Caillou]

Re : macro d'impression

Bonjour,

Voici un exemple avec le n° de la feuille à imprimer en B1 et le nombre d'exemplaires en B2

Sub Macro1()
  Dim feuil As Integer, copie As Integer
  
  feuille = Range("B1")
  copie = Range("B2")
  
  Sheets(feuille).PrintOut copies:=copie
  
End Sub

Caillou

 

[GeoTrouvePas]

Re : macro d'impression

Bonjour :

En se servant de l'enregistreur de macro et en bidouillant un peu :

Sub Impression()

If Sheets("Feuil1").Cells(6, 2) <> 0 Then
    ActiveWindow.Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil1").Cells(6, 2), Collate:=True
End If
If Sheets("Feuil1").Cells(6, 3) <> 0 Then
    ActiveWindow.Sheets("Feuil4").PrintOut Copies:=Sheets("Feuil1").Cells(6, 3), Collate:=True
End If
.................
End Sub

Charge à toi après de paramétrer ça avec le nom de tes feuilles.

Bonne journée

 

[YANN-56]

Re : macro d'impression

Bonjour Goes, aux participants et à ceux qui passeront par là.

Je n'ai pas géré le nom variable des feuilles.
Ce n'est qu'un exemple fait pour un autre cas.

Mais je pense que tu pourras facilement adapter.

Amicalement

Yann

 

[Goes]

Re : macro d'impression

merci a vous tous
je vais essayer tous ca et vous tiens au courant
merci encore et bravo pour votre rapidité !!!