XL 2016 VBA lancer automatiquement l'edition de Tickets

.jakob@gmail.com · 26 Juillet 2018

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 · 26 Juillet 2018

Bonjour,
La macro pourrait ressembler à celle-ci

VB:

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 · 27 Juillet 2018

Bonjour

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

Encore merci

XL 2016 VBA lancer automatiquement l'edition de Tickets

.jakob@gmail.com

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

.jakob@gmail.com

XLDnaute Nouveau

Discussions similaires

XL 2016 VBA lancer automatiquement l'edition de Tickets

.jakob@gmail.com

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

.jakob@gmail.com

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency