Compteur de serie
Fermé
bnac11
-
12 janv. 2013 à 11:04
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 14 janv. 2013 à 15:10
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 14 janv. 2013 à 15:10
A voir également:
- Compteur de serie
- Compteur électrique - Guide
- Comment ralentir un compteur linky forum - Accueil - Objets connectés
- Compteur communicant - Guide
- Compteur de contractions - Télécharger - Santé & Bien-être
- Retrouver ordinateur volé avec numéro de série - Guide
1 réponse
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
Modifié par pilas31 le 14/01/2013 à 16:01
Modifié par pilas31 le 14/01/2013 à 16:01
Bonjour,
Voici une suggestion :
Dans une feuille que j'ai nommée « Paramètres »
On gère deux cellules, par exemple A2 qui contient l'année et B2 qui contient le n° de Bon de sortie.
Dans le bon de sortie lui-même on utilise la valeur calculée =B2 & "/" & A2
Ainsi la valeur est bien de la forme 2/2013
On place ensuite la macro VBA suivante :
Dans le dossier de macro « ThisWorkbook » (pour aller dans l'éditeur VBA faire ALT+F11)
Ainsi à chaque impression la cellule B2 est incrémentée de 1.
Si des impressions ont été faites par erreur on peut aller modifier le compteur manuellement et au changement d'année on peut modifier l'année en A2
A+
Cordialement,
Voici une suggestion :
Dans une feuille que j'ai nommée « Paramètres »
On gère deux cellules, par exemple A2 qui contient l'année et B2 qui contient le n° de Bon de sortie.
Dans le bon de sortie lui-même on utilise la valeur calculée =B2 & "/" & A2
Ainsi la valeur est bien de la forme 2/2013
On place ensuite la macro VBA suivante :
Dans le dossier de macro « ThisWorkbook » (pour aller dans l'éditeur VBA faire ALT+F11)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Paramètres").Cells(2, 2) = Sheets("Paramètres").Cells(2, 2) + 1
End Sub
Ainsi à chaque impression la cellule B2 est incrémentée de 1.
Si des impressions ont été faites par erreur on peut aller modifier le compteur manuellement et au changement d'année on peut modifier l'année en A2
A+
Cordialement,