Incrémentation automatique d'un devis vb excel

Résolu
erti1711 Messages postés 75 Date d'inscription samedi 2 avril 2005 Statut Membre Dernière intervention 16 juin 2006 - 22 juin 2005 à 14:05
erti1711 Messages postés 75 Date d'inscription samedi 2 avril 2005 Statut Membre Dernière intervention 16 juin 2006 - 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

6 réponses

mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 6
22 juin 2005 à 15:43
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
3
mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 6
22 juin 2005 à 14:35
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
0
erti1711 Messages postés 75 Date d'inscription samedi 2 avril 2005 Statut Membre Dernière intervention 16 juin 2006 1
22 juin 2005 à 14:54
Pourrait tu me détailler ces lignes STP:
Range("a1") = ThisWorkbook.CustomDocumentProperties("NumDevis").Value
ThisWorkbook.CustomDocumentProperties("NumDevis").Value = ThisWorkbook.CustomDocumentProperties("NumDevis").Value + 1
merci
0
erti1711 Messages postés 75 Date d'inscription samedi 2 avril 2005 Statut Membre Dernière intervention 16 juin 2006 1
22 juin 2005 à 15:52
Merci de ton aide, je vais tester immédiatement.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 25
22 juin 2005 à 17:26
Et si ça marche, n'oubli pas de cliquer sur le bouton "Accepter" de mrdep1978 ok!
0
erti1711 Messages postés 75 Date d'inscription samedi 2 avril 2005 Statut Membre Dernière intervention 16 juin 2006 1
22 juin 2005 à 17:42
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
0