Numérotation automatique Excel

[LN1]

Bonjour à tous,
Je souhaiterais avoir une petite aide pour la chose suivante :
J’ai 1 fichier Excel intitulé « Modèle », plusieurs utilisateurs sont amenés à modifier ce fichier pour l’enregistrer sous le nom de leur choix. Est-il possible d’attribuer 1 N° de fiche en cellule A1 à chaque ouverture et enregistrement de ce fichier ?
1ère ouverture du fichier modèle + 1er enregistrement à N° = 01
2ème ouverture du fichier modèle + 2ème enregistrement à N° = 02 etc…

merci d’avance pour votre aide !

LN

 

[dg62]

Re : Numérotation automatique Excel

Bonjour LN1


A tester

procédures à placer dans le module ThisWorkBook

En B1 le nombre d'ouvertures et en B2 le nombre de sauvegardes
Les valeurs correctes sont sur le classeur modeles.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nbSave As Integer

nbSave = Range("B2") + 1
Range("B2").Value = nbSave
ActiveWorkbook.Save
Range("B2") = Range("B2") - 1
End Sub

Private Sub Workbook_Open()
Dim nbOuv As Integer
nbOuv = Range("B1") + 1
Range("B1").Value = nbOuv

End Sub

 

[LN1]

Re : Numérotation automatique Excel

Merci pour cette réponse qui m'est très utile....🙂
mais du coup j'ai une autre question sur le même sujet..

J’ai intégré la procédure comme recommandé. Lorsque j’ouvre et enregistre le fichier « modèle » la numérotation se fait sans aucun problème.
Mais lorsque j’intégre 1 userform afin d’avoir 1 masque de saisie qui me permette de remplir ma feuille Excel (modèle) et lorsque je clique sur le bouton de commande « valider » pour enregistrer les infos saisies sur la userform la procédure initialement intégrée ne fonctionne plus…et je n’ai plus de numérotation automatique. Est-ce normal ? est-il possible de faire 1 appel de procédure ?

je ne sais pas si mes explications sont très claires.. mais merci d'avance pour votre aide !!

LN

 

[dg62]

Re : Numérotation automatique Excel

Bonjour LN1


ll s'agit de deux problèmes différents. Les 2 procédures fonctionnent à l'enregistrement et à l'ouverture du classeur pour indiquer un nombre d'ouvertures et d'enregistrements.
Maintenant tu désires avoir une numérotation auto à la validation des données issues d'un USF. Tu dois donc intégrer dans la procédure de ton bouton de validation une commande qui incrémente le compteur (B1 ou B2) comme tu veux.

Range("B1").Value = Range("B1").Value +1 (par exemple)

Bonne Soirée

 

[LN1]

Re : Numérotation automatique Excel

Bonjour Didier,

Je te remercie pour ta réponse d'hier 🙂
Mais j'ai tjrs 1 pt'it pb pour cette numérotation auto....
Je ne dois pas avoir bien renseigné les codes....j'ai fait plusieurs tests sans voir ce qui n'allait pas...
je joins le fichier ...
merci !

bonne fin d'aprem'

LN