Bonjour à tous,
Je voudrai imprimer des billets de concerts avec une double numérotation(sur
le billet et sur le talon) qui incrémente, comment faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonjour, mdr t'en fais aussi pour la coupe du monde de rugby?
blague à part recopie incrémentée et bouton imprimer! ..non?
lSteph
"sab" a écrit dans le message de news:
Bonjour à tous, Je voudrai imprimer des billets de concerts avec une double numérotation(sur le billet et sur le talon) qui incrémente, comment faire ?
Bonjour,
mdr
t'en fais aussi pour la coupe du monde de rugby?
blague à part recopie incrémentée et bouton imprimer! ..non?
lSteph
"sab" <sabine.k@scarlet.be> a écrit dans le message de news:
3oKdneaAbNGqlVzZnZ2dnUVZ8qqdnZ2d@scarlet.biz...
Bonjour à tous,
Je voudrai imprimer des billets de concerts avec une double
numérotation(sur le billet et sur le talon) qui incrémente, comment faire
?
Bonjour, mdr t'en fais aussi pour la coupe du monde de rugby?
blague à part recopie incrémentée et bouton imprimer! ..non?
lSteph
"sab" a écrit dans le message de news:
Bonjour à tous, Je voudrai imprimer des billets de concerts avec une double numérotation(sur le billet et sur le talon) qui incrémente, comment faire ?
lSteph
..sinon en vba une petite boucle sur un seul billet devrait faire l'affaire
for i = 1 to 1000 [b6]=i [h6]=i activesheet.printout next
si tu en mets peut-être deux autres par exemple en plus par feuille avec cellules liée à celle du numéro du premier billet+1 ...+2 soit trois par feuille
for i = 1 to 1002 step 3 [b6]=i [h6]=i activesheet.printout next
lSteph
"sab" a écrit dans le message de news:
Bonjour à tous, Je voudrai imprimer des billets de concerts avec une double numérotation(sur le billet et sur le talon) qui incrémente, comment faire ?
..sinon en vba
une petite boucle sur un seul billet devrait faire l'affaire
for i = 1 to 1000
[b6]=i
[h6]=i
activesheet.printout
next
si tu en mets peut-être deux autres par exemple en plus par feuille avec
cellules liée à celle du numéro du premier billet+1 ...+2
soit trois par feuille
for i = 1 to 1002 step 3
[b6]=i
[h6]=i
activesheet.printout
next
lSteph
"sab" <sabine.k@scarlet.be> a écrit dans le message de news:
3oKdneaAbNGqlVzZnZ2dnUVZ8qqdnZ2d@scarlet.biz...
Bonjour à tous,
Je voudrai imprimer des billets de concerts avec une double
numérotation(sur le billet et sur le talon) qui incrémente, comment faire
?
..sinon en vba une petite boucle sur un seul billet devrait faire l'affaire
for i = 1 to 1000 [b6]=i [h6]=i activesheet.printout next
si tu en mets peut-être deux autres par exemple en plus par feuille avec cellules liée à celle du numéro du premier billet+1 ...+2 soit trois par feuille
for i = 1 to 1002 step 3 [b6]=i [h6]=i activesheet.printout next
lSteph
"sab" a écrit dans le message de news:
Bonjour à tous, Je voudrai imprimer des billets de concerts avec une double numérotation(sur le billet et sur le talon) qui incrémente, comment faire ?
Axcel
Utilise la fonction BeforePrint de Workbook, ex : pour une cellule :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim cpt
cpt = ThisWorkbook.Worksheets(1).Range("a1")
If IsNumeric(cpt) Then ThisWorkbook.Worksheets(1).Range("a1") = cpt + 1 Else Cancel = True End If End Sub
lSteph wrote:
Bonjour, mdr t'en fais aussi pour la coupe du monde de rugby?
blague à part recopie incrémentée et bouton imprimer! ..non?
lSteph
"sab" a écrit dans le message de news:
Bonjour à tous, Je voudrai imprimer des billets de concerts avec une double numérotation(sur le billet et sur le talon) qui incrémente, comment faire ?
Utilise la fonction BeforePrint de Workbook,
ex : pour une cellule :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim cpt
cpt = ThisWorkbook.Worksheets(1).Range("a1")
If IsNumeric(cpt) Then
ThisWorkbook.Worksheets(1).Range("a1") = cpt + 1
Else
Cancel = True
End If
End Sub
lSteph wrote:
Bonjour,
mdr
t'en fais aussi pour la coupe du monde de rugby?
blague à part recopie incrémentée et bouton imprimer! ..non?
lSteph
"sab" <sabine.k@scarlet.be> a écrit dans le message de news:
3oKdneaAbNGqlVzZnZ2dnUVZ8qqdnZ2d@scarlet.biz...
Bonjour à tous,
Je voudrai imprimer des billets de concerts avec une double
numérotation(sur le billet et sur le talon) qui incrémente, comment faire
?
Utilise la fonction BeforePrint de Workbook, ex : pour une cellule :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim cpt
cpt = ThisWorkbook.Worksheets(1).Range("a1")
If IsNumeric(cpt) Then ThisWorkbook.Worksheets(1).Range("a1") = cpt + 1 Else Cancel = True End If End Sub
lSteph wrote:
Bonjour, mdr t'en fais aussi pour la coupe du monde de rugby?
blague à part recopie incrémentée et bouton imprimer! ..non?
lSteph
"sab" a écrit dans le message de news:
Bonjour à tous, Je voudrai imprimer des billets de concerts avec une double numérotation(sur le billet et sur le talon) qui incrémente, comment faire ?
