Rapport de message :*
 

Re: Numérotation automatique

Titre du sujet : Re: Numérotation automatique
par JCGL le 23/05/2008 16:47:40

Bonjour à tous,

Dans le ThisWorkBook et dans le code évènementiel de ton choix (je pense que _BeforePrint est le plus judicieux :


Image redimensionnée

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Range("A1").Value + 1
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells(1, 1).Value = Cells(1, 1).Value + 1
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[A1].Value = [A1].Value + 1
End Sub


Attention un des trois codes, suivant tes habitudes de codages ou celui qui te "parle" le plus

Ici on suppose que la numérotation est en A1.

Au plaisir de te lire
A+ à tous

PS : Merci de bien vouloir compléter ton Profil en indiquant la Plate Forme et ta version Office