Incrementation

Résolu
diddy0 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
diddy0 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'aimerais trouver la macro pour " incrémenter le n° facture + 1 en l'ouvrant puis fermeture et ouvrir avec n° en + !
Merci infiniment !
diddy0

2 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonsoir,

Il faut ouvrir le VBA soit en faisant Alt et touche F11 ou clic droit sur l'onglet de feuille et Visualiser le code, ouvrir la Thiswokbook et coller une de ces code pour incrémenter le numéro en B2

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

ou
Private Sub Workbook_Open()
[B2] = [B2] + 1
End Sub

mais il ne faudra pas oublier d'enregistrer le fichier en le fermant ou inclure l'enregistrement automatique à la fermeture du fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
0
diddy0 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Un tout grand merci à Mike-31
J'essayerai demain.
diddyo
0