Macro impression

Bonsoir, je me lance dans la mise ne place de macro que j'ai enregistrer avec excel pour voir le code...

Sub Macro2()

'

' Macro2 Macro

'

'

Range("Q4:Y4").Select

Range("R3").Select

ActiveCell.FormulaR1C1 = "=1"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Range("R3").Select

ActiveCell.FormulaR1C1 = "=1+1"

Range("Q4:Y4").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Range("R3").Select

ActiveCell.FormulaR1C1 = "=1+1+1"

Range("R3").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

ActiveCell.FormulaR1C1 = "=1+1+1+1"

Range("Q4:Y4").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

Voilà en gros ce que cela me sort une fois un petit toilettage... Etant bien conscient de mes limites, je viens vers vous pour savoir comment je peux faire pour que la macro imprime de telle valeur à telle valeur.

ICI je fais 1, 1+1, 1+1+1, je voulais savoir si il m'était possible de faire autrement en indiquant print de pas en pas jusqu’à la valeur 15, par exemple?

Voilà en espérant que cela vous inspire.

Leakim

Hello,

J'sais pas si j'ai bien compris ce que vous voulez, mais testez cette boucle...

Range("Q4:Y4").Select '<- ?

For boucle = 1 To 15
    Range("R3").Value = boucle
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next boucle

Grand Merci c'est nickel !

Leakim

Bonsoir, c'était trop simple d'avoir trouvé si vite!!! Merci encore hulk !

En faite lsuite de numéro de 1 à 15 c'était trop simple comme code pour la compta... Bref Les numéro attribuer change à chaque mouvement de salarié !!!

Donc je me demandais si dans la macro proposé il ne serait pas possible d'avoir une plage dans laquelle la macro viens chercher les données pour les réattriber??

CODE: TOUT SÉLECTIONNER

Range("Q4:Y4").Select '<- ?

For boucle = 1 To 15 au lieu de çà mettre la plage: 'données variables' A7:A77

Range("R3").Value = boucle

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Next boucle

Enfin voilà?

Je suis vraiment béotien ...

Merci de votre aide.

Leakim

Bonsoir !

J'en suis là

Sub Bouton7_Cliquer()

'

' Bouton7_Cliquer Macro

'

'

Sheets("DONNEES variables").Select

Range("A54").Select

Selection.Copy

Sheets("Feuille mensuelle").Select

Range("Q3").Select

ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Sheets("DONNEES variables").Select

Range("A55").Select

Selection.Copy

Sheets("Feuille mensuelle").Select

Range("Q3").Select

ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Sheets("DONNEES variables").Select

Range("A56").Select

Selection.Copy

Sheets("Feuille mensuelle").Select

Range("Q3").Select

ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

Merci de votre aide

leakim

Bonsoir

Tu ne crois pas qu'un fichier serait préférables à tes bouts de macros

D’après ce que je comprends

Tu listes toutes les cellules non vides de la colonne A (à partir de 54) de la feuille "DONNEES variables" que tu copies dans la page "Feuille mensuelle" que tu imprimes

Essayes

Sub Bouton7_Cliquer()
' Bouton7_Cliquer Macro
Dim Ligne As Long
Dim F1 As Worksheet

  Set F1 = Sheets("DONNEES variables")
  Ligne = 54
  With Sheets("Feuille mensuelle")
    While F1.Cells(Ligne, "A") <> ""
      .Range("Q3") = F1.Cells(Ligne, "A")
      .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
      '.PrintPreview   ' Pour les tests
      Ligne = Ligne + 1
    Wend
  End With
End Sub

Bonjour, en effet je vais faire le nécessaire pour joindre systématiquement un doc.

Les premiers essais sont concluant.

Je vais finaliser la mise en place de ce code pour les autres demandes d'impressions car j'ai cinq groupe différents à imprimer tout les mois.

Merci.

Leakim