XL 2016 VBA lancer automatiquement l'edition de Tickets

[.jakob@gmail.com]

Bonjour

Pourriez vous m'aider pour concevoir cette macro pour l'association dont je m'occupe


Je souhaiterais écrire un Macro prenant chaque ligne de l'onglet List
qu'elle complete les zone B10, B12, B14 de l'onglet Masque Edition
Qu'elle imprime automatiquement la plage selection autant de fois que c'est indiqué dans la colonne D de l'onglet List

D'avance merci bcp pour votre aide

 

[Jacky67]

Bonjour,
La macro pourrait ressembler à celle-ci

Sub imprimeJJ()
Dim C As Range, i&
With Sheets("masque edition")
  For Each C In Sheets("List").Range("a2:a" & Sheets("list").Cells.Find("*", , , , xlByRows, xlPrevious).Row)
    For i = 1 To C(, 4)
      .[b10] = C
      .[b12] = C(, 2)
      .[b14] = C(, 3)
      .PrintPreview 'ligne a supprimer apr?s test
      '.PrintOut ' ligne a valider apr?s test
    Next
  Next
End With
End Sub

 

[.jakob@gmail.com]

Bonjour

Merci pour votre retour
J'ai pu l'adapter à mon besoin, ca fonctionne parfaitement

Encore merci