Je souhaite créer une numérotation automatique dans mon modèle de
facture.
Comment dois-je procéder ?
Symptômes
Pour créer une numérotation automatique et sauvegarder la valeur du
dernier numéro de facture créé, vous devez implémenter cette valeur dans
une valeur contenue dans le répertoire
Users:<username>:Library:Prferences pour chaque utilisateur.
Afin d'effectuer ces manipulations automatiquement, vous devez utiliser
une macro en VBA.
Veuillez trouver ci-dessous la pas-à-pas détaillé permettant de mettre en
place un exemple de code à implémenter dans votre document, dans le
module ThisWorkbook, pour gérer la numérotation automatique:
1. Ouvrir Excel.
2. Ouvrir un nouveau classeur.
3. Dans le menu Outils, macros, cliquer sur Editeur Visual Basic.
Dans l'explorateur de projet, sélectionner sous VBA Project
(<nom_de_votre_document>) le module This Workbook.
Copier et coller le code suivant:
'Code Visual Basic pour Application en anglais
'Macro permettant de gérer la numérotation automatique dans un modèle
'Où la cellule A2 contient le nouveau numéro de facture
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
SaveSetting "MyApp", "Startup","Top", Range ("A2")
End Sub
Private Sub Workbook_Open()
If Range("A1").Value <> 1 Then
Range("A2").Value = GetSetting(appname:="MyApp", section:="Startup",
key:="Top", Default:="=5"") + 1
Range("A1").Value = 1
End If
End Sub
4.Dans la feuille 1 du classeur en cellule A2, spécifier un numéro de
facture.
5.Enregistrer le classeur en tant que modèle, pour ce faire suivez les
étapes suivantes:
a. Cliquer sur le menu Fichier, sélectionner "Enregistrer sous".
b. Dans la boîte de dialogue "Enregistrer sous", spécifier "Modèles
(*.xlt)", spécifier un nom de fichier puis cliquer sur "Enregistrer".
6. Fermer le fichier modèle ainsi créé.
7. Dans le menu Fichier, cliquer sur "Bibliothèque de projets".
8. Sélectionner "Modèles", et sélectionner le nouveau modèle puis
cliquer sur OK.
9. un nouveau document basé sur le modèle s'ouvre et on peut remarquer
que la valeur en cellule A2 de la feuille 1 a été incrémentée.
INFORMATIONS COMPLEMENTAIRES :
Microsoft exclut toute garantie, expresse ou implicite, notamment toute
garantie de qualité marchande et d'adéquation à un usage particulier,
relative aux exemples de programmation fournis à titre d'illustration
dans cet article. Cet article suppose que vous connaissez le langage de
programmation en question et les outils utilisés dans la création et le
déboguage des procédures. Les techniciens du support technique de
Microsoft peuvent vous aider à comprendre la fonctionnalité d'une
procédure particulière, mais ils ne modifieront pas ces exemples afin de
fournir des fonctionnalités supplémentaires ou des procédures de
construction adaptées à vos besoins spécifiques. Si vous n'avez qu'une
expérience limitée de la programmation, vous pouvez contacter un
Partenaire solutions certifié Microsoft ou bien appeler la ligne de
consultation payante de Microsoft au +1 (800) 936-5200. Pour plus
d'informations sur les options de support technique proposées par
Microsoft, visitez le site Web à l'adresse suivante :
http://www.microsoft.com/mcsp/
Pour plus d'informations sur les options de support technique proposées
par Microsoft, veuillez consulter la page suivante sur le Web :
http://support.microsoft.com/contactus/?ws=support
MOTS-CLES :
La liste de(s) mot(s) suivant(s) permet une recherche plus efficace de
cette fiche technique :
Facture modèle Excel X MAC OS X numéro automatique incrémenter
kbprg kbreadme kbusage
