incrémentation automatique d'une cellule

[Allain]

Bonjour,

Je cherche comment faire pour qu'une cellulle s'incrémente automatiquement de 1 à chaque chargement de la feuille .
Comme vous le voyez je suis débutant, donc beaucoup de details dans les explications.
Merci

 

[Eric C]

Bonjour le forum
Bonjour Allain

Code à placer dans le Workbook

Private Sub Workbook_Open ( )
Dim compteur As Integer
compteur = Range ("A1").Value ' A adapter
Range ("A1").Value = compteur + 1
End Sub

A chaque ouverture de ton classeur, la valeur plaçée dans la cellule A1 va s'incrémenter d'une unité.

@ + Eric C

 

[Allain]

Merci ça marche