Numérotation automatique sur Excel

Numérotation automatique sur Excel - VB/VBA/VBS - Programmation

Marsh Posté le 18-12-2007 à 13:21:19    

Bonjour à tous,
 
Je dois réaliser quelques travaux sur Excel qui sont en adéquation avec ma formation en comptabilité. Dans ce travail, je dois faire un modèle de facture que je dois automatiser au mieux. Hélas je n'ai pas encore eu de cours sur les commandes Macro, et j'ai la forte impression que ma demande doit passer par ca.
 
Le paramètre qui me pose problème est la numérotation automatique des factures. J'aimerais trouver une fonction qui me permette de numéroter automatiquement mes factures en C14. En ce qui concerne le N° de facture il se présente sous cette forme -> X-YY .
Le chiffre X détermine détermine le millésime de l'année, et Y le numéro de facture de l'année
Par exemple : 7-150 doit se lire 150ème facture de l'année 2007.
 
J'aimerais trouver une fonction qui me permette de déterminer X en fonction de la date en G14, et qui m'attribue un numéro YY en fonction de la dernière facture enregistré dans le dossier.
Par exemple : Je commence une nouvelle facture au mois de Janvier, sachant que la dernière facture dans mon dossier est 8-02, la fonction doit me calculer automatiquement à l'ouverture du modèle 8-03 .
 
http://nsa01.casimages.com/img/2007/12/18/mini_0712180100121853798.jpg
 
Je join une capture d'écran de mon fichier excel pour que ca vous parle un peu plus.
 
Quelqu'un peut-il me donner un petit coup de main dans la réalisation de cette Macro ?
 
Je vous remercie par avance,
 
Sephiorc

Reply

Marsh Posté le 18-12-2007 à 13:21:19   

Reply

Marsh Posté le 18-12-2007 à 15:09:01    

Si chaque facture est un classeur Excel stocké dans un dossier, alors ta macro VBA doit :
1/ lister tous les documents Facture de ton dossier
2/ détecter quelle facture est la plus récente
3/ extraire son numéro chrono
4/ calculer le prochain numéro chrono
5/ reconstituer le n° de facture à mettre en C14
 
Le 1/ a déjà été abordé sous différentes formes dans ce forum (fonction Dir)
Le 2/ et le 3/ consistent à découper le nom de chaque fichier Facture pour en extraire le millésime et le n° chrono (fonctions Mid$, Left$, Right$, InStr, InStrRev, ...)
Le 4/ nécessite de convertir des caractères en nombre (CLng, Cint, CDbl, ...) et d'incrémenter le compteur ainsi convertit avant de faire l'opration inverse (CStr, Format$, ...)
Le 5/ implique la concaténation du millésime et du nouveau chrono pour le mettre en C14 (opérateur & et objets Excel)
 
En gros.

Reply

Marsh Posté le 18-12-2007 à 16:29:38    

Bonjour,
 
Merci pour ces informations, je vais tenter tant bien que mal de faire cette Macro :).

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed