Incrémenter un numéro

[melanie]

Bonjour,
ma question est la suivante:comment faire pour incrémenter un numéro à un document Excel à chaque ouverture du document?

Par exemple: Je suppose que j'ai une matrice sur Excel avec un numéro de base de type 999 000. A la première ouverture du document, le numéro sera 999 001, la deuxième 999 002.......... nouveau numéro = précédent numéro + 1.

Pouvez vous m'envoyer une procédure?

merci
mélanie

 

[Flaille]

Salut Melanie

Tu ouvres VBA alt F11
double clic sur thisworkbook
Dans la première liste choisir workbook
Dans liste à coté choisir open
Et tu insère quelque chose du genre

Private Sub Workbook_Open()
Range("A1") = Range("A1") + 1
End Sub

A+

 

[daniel]

Bonjour,

Je te propose d'utiliser VBA, qui a l'overture de ton WorkBook incrementera,
de [1] la cellule de ton choix.

Private Sub Workbook_Open()
/incremente de 1 le contenue de la cellule A1 dans la worksheet1
Sheet1.Range("A1").Value = Sheet1.Range("A1").Value +1
End Sub

 

[daniel]

Re-Bonjour,

Attache la solution...

 

[melanie]

merci pour l'aide
bonne journée
mélanie