Incrémentation automatique d'un devis vb excel [Résolu]

erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention - 22 juin 2005 à 14:05 - Dernière réponse : erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention
- 22 juin 2005 à 17:42
Bonjour,dans le cadre de mon stage j'effectue des devis,j'ai un classeur1 pour faire mes devis et un autre classeur Archives_Devis dans lakel j'enregistre a l'"aide d'une macro les devis effectuées.Ce que je voudrais faire c'est qu'à chaque foi que j'enregistre un devis le numéro s'incrémente automatiquement de 1.
Par exemple le devis je vais le faire commencer au numéro DEV1500 puis à chaque fois qu'un nouveau devis est enregistrer ça l'incrémente.
Le principe est simple je le sais mais c'est le code vb.
Kelkun pourrait me mettre sur la piste SVP ou me donner un bout de code
Merci
Afficher la suite 

6 réponses

Meilleure réponse
mrdep1978 402 Messages postés jeudi 25 novembre 2004Date d'inscription 7 juin 2009 Dernière intervention - 22 juin 2005 à 15:43
3
Merci
C'était juste pour te montrer comment utiliser les propriétés du document en VBA

Je repars de la création de ta nouvelle feuille dans ton classeur Archive_Devis :

Dim l_Workbook as Workbook
Dim l_WorkSheet as Worksheet

'Ouvre Archive_Devis
Set l_workbook = workbooks.Open("Archive_Devis.xls")
'Copie la feuille de Classeur2 vers Archive_Devis
Workbooks("Classeur2").Worksheets("Feuil1").Copy After:=l_Workbook.Worksheets(l_Workbook.Worksheets.Count)
'Récupère la feuille qui vient d'être copiée (dernière feuille du classeur)
Set l_WorkSheet = l_Workbook.Worksheets(l_Workbook.Worksheets.Count)
'Renomme la feuille
l_WorkSheet.Name = "DEV" & l_Workbook.CustomDocumentProperties("NumDevis").Value
'Incrémente la valeur de NumDevis pour la prochaine fois
l_Workbook.CustomDocumentProperties("NumDevis").Value = l_Workbook.CustomDocumentProperties("NumDevis").Value + 1
'Ferme Archive_Devis en sauvegardant
l_Workbook.Close True

Merci mrdep1978 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

mrdep1978 402 Messages postés jeudi 25 novembre 2004Date d'inscription 7 juin 2009 Dernière intervention - 22 juin 2005 à 14:35
0
Merci
Le mieux je pense est de stocker le dernier numéro de devis réalisé dans ton fichier Archives_Devis.

Pour ça je te conseille d'aller dans le menu Fichier, Propriétés
Onglet Personnalisation.
J'ai créé une propriété NumDevis de type Nombre et en valeur 1500

Ensuite tu peux manipuler la valeur comme ceci :
Range("a1") = ThisWorkbook.CustomDocumentProperties("NumDevis").Value
ThisWorkbook.CustomDocumentProperties("NumDevis").Value = ThisWorkbook.CustomDocumentProperties("NumDevis").Value + 1
erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention - 22 juin 2005 à 14:54
0
Merci
Pourrait tu me détailler ces lignes STP:
Range("a1") = ThisWorkbook.CustomDocumentProperties("NumDevis").Value
ThisWorkbook.CustomDocumentProperties("NumDevis").Value = ThisWorkbook.CustomDocumentProperties("NumDevis").Value + 1
merci
erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention - 22 juin 2005 à 15:52
0
Merci
Merci de ton aide, je vais tester immédiatement.
ScSami 1490 Messages postés mercredi 5 février 2003Date d'inscription 3 décembre 2007 Dernière intervention - 22 juin 2005 à 17:26
0
Merci
Et si ça marche, n'oubli pas de cliquer sur le bouton "Accepter" de mrdep1978 ok!
erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention - 22 juin 2005 à 17:42
0
Merci
C'est bon mrdep1978 le code que tu m'as fournis marche nikel,j'ai ajouter une ligne pour que le nom de la feuille soit égale au numéro du devis enregistrer (en vert):


l_WorkSheet.Name = "DEV" & l_Workbook.CustomDocumentProperties("NumDevis").Value

l_WorkSheet.Range("AB2").Value = l_WorkSheet.Name

Ceux que j'arrive pas encore c'est commment incrémenter de 1 le numéro du devis qui se trouve dans le classeur2 là où je fais mes devis.Y a til pas une fonction sous Excel pour incrémenter automatiquement sans passer par le vba???
Disons que l'entreprise dans lakel je fais mon stage décide de faire démarrer le numéro a DEV1500.Aprè comment faire pour que ça incrémente?SVP
MERCI qd meme si j'ai pas de réponse

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.