incrementation n° de facture

P

PtitCastor

Guest

• 15 Mars 2006

• #2

Premier élement de réponse :
Pour la première partie tu peux utiliser :
=ANNEE(MAINTENANT())&MOIS(MAINTENANT())&JOUR(MAINTENANT())&1

Ou 1 est le numéro de facture (voir faire référence à une autre cellule contenant ta facture)

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 15 Mars 2006

• #3

Salut Nomade 69, PtitCastor, le Forum,

Sur le modèle de PtitCastor, un exemple re-travaillé(si peu) mais...

que veut tu en faire après... enregistrer et copier dans un nouveau fichier,...rien..., autre chose... à toi de décider

n'hésites pas si problème

@+ :woohoo: [file name=Nomade69.zip size=1428]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Nomade69.zip[/file]

 

Pièces jointes

• Nomade69.zip

  6.4 KB · Affichages: 82

Vote positif 0 Vote négatif

M

Merci beaucoup

Guest

• 15 Mars 2006

• #4

je vais essayer...

en fait je souhaite en ouvrant le fichier , qu'une facture vierge apparaisse en ayant en n° de facture la date du jour suivi du numéro..
exemple 20 03 2006 1 , puis 20 03 2006 2 , puis 20 03 2006 4 et ainsi de suite généré de fàçon automatique...

de toutes façons , merci d'avoir pris le temps de répondre...

nomade69

 

Vote positif 0 Vote négatif

M

Merci beaucoup

Guest

• 15 Mars 2006

• #5

merci également de ta réponse..

je vais essayer de faire fonctionner...

cordialement...

Nomade69

 

Vote positif 0 Vote négatif

P

PtitCastor

Guest

• 15 Mars 2006

• #6

Voila une solution possible:
Dans une macro Excel :

Sub auto_open()

'Exemple avec une incrémentation à 1 chiffre

'Je reprend l ancienne valeur de l'incrément
NumIncrementFacture = Range('A2')

'Incrémentation
NumIncrementFacture = NumIncrementFacture + 1

Range('C2') = Range('B2') & Range('A2')
'Je met à jour le numéro d incrémentation.
Range('A2') = NumIncrementFacture
End Sub

[file name=nomade69.zip size=6513]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nomade69.zip[/file]

 

Vote positif 0 Vote négatif

B

br44

Guest

• 16 Mars 2006

• #7

Bonsoir le forum,Nomade69,Dull,etP'titCastor

je m'exuse par avance de me brancher sur se fil mais le sujet m'interesse pour mon cas :
p'tit Castor j'ai regarder ta procèdure et je voudrais savoir si l'on peut l'adpter.
Dans ta procèdure du dis :
'Je reprend I ancienne valeur de l'increment .
1)Mais si il s'agit de la première facture comme procédes-tu?
2)Où place tu ta macro dans le programe?
3) comment faire pour mettre la cellule consernée au format désiré(000\\00)?
4) Enfin est-il possible d'incrementer sur plusieur chiffres?

dans l'attente d'une réponse à ses questions je vais vous souhaiter une bonne fin de soirée àtous les trois.
j'èspère que m'as dèmarche ne vous trop choquer ,mais j'ai lancer un fil en du 27/02/06 sous le titre :
N° DE FACTURE AUTOMATIQUE AVEC CONDITIONS ,avec un fichier joint ,mais personne n'y a répondus .(peut-êtres n'ai-je pas été asser claire dans mes explications).
s'il il faut que je lance un nouveau fil pour les réponses faite le mois savoir sur ce fil merci d'avance à bientôt donc br44

 

Vote positif 0 Vote négatif

B

br44

Guest

• 16 Mars 2006

• #8

Bonsoir le forum,Nomade69,Dull,etP'titCastor

je m'exuse par avance de me brancher sur se fil mais le sujet m'interesse pour mon cas :
p'tit Castor j'ai regarder ta procèdure et je voudrais savoir si l'on peut l'adpter.
Dans ta procèdure du dis :
'Je reprend I ancienne valeur de l'increment .
1)Mais si il s'agit de la première facture comme procédes-tu?
2)Où place tu ta macro dans le programe?
3) comment faire pour mettre la cellule consernée au format désiré(000\\00)?
4) Enfin est-il possible d'incrementer sur plusieur chiffres?

dans l'attente d'une réponse à ses questions je vais vous souhaiter une bonne fin de soirée àtous les trois.
j'èspère que m'as dèmarche ne vous trop choquer ,mais j'ai lancer un fil en du 27/02/06 sous le titre :
N° DE FACTURE AUTOMATIQUE AVEC CONDITIONS ,avec un fichier joint ,mais personne n'y a répondus .(peut-êtres n'ai-je pas été asser claire dans mes explications).
s'il il faut que je lance un nouveau fil pour les réponses faite le mois savoir sur ce fil merci d'avance à bientôt donc br44

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Mars 2006

• #9

Re le fil,

br44 tu n'as pas à t'excuser de te 'brancher' sur ce fil c'est fait pour 😉 Alors pour le:
1/ tu met dans ta cellule 1 c'est tout la prochaine facture s'incrementera à partir du moment ou tu rou-vrira ton fichier
2/la macro est à insérer dans ThisWorkbook (alt+f11) PtitCastor le sub auto_open n'a plus cours depuis ...(je ne sais plus)😱
3/ Clic droit sur ta cellule format de cellule onglet nombre Catégorie Personalisée et dans type tu tape 0000.
4/ OUI alors je te joint un fichier tu y trouvera plusieurs type de format (à toi de jouer)

@+ :woohoo: [file name=nomade69_20060317065910.zip size=7294]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nomade69_20060317065910.zip[/file]

 

Pièces jointes

• nomade69_20060317065910.zip

  7.1 KB · Affichages: 70

Vote positif 0 Vote négatif

br44

XLDnaute Impliqué

• 17 Mars 2006

• #10

re:Bonsoir le foumr ,bonsoir Dull

Merci pour la rapiditée de t'as réponse je vais tester ça se week-end je je vous teind au courant .

A petite question en passant connait -tu la procédure pour lier un ancient fil du forum à un message ? car mois je suis un petit débutant et
mois pas savoir :sick:
sur ce je te vous dit à bientôt sur forum
bonne soirée

br44

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 18 Mars 2006

• #11

Re br44, le Forum,

Simple: il suffit de copier l'adresse de ton post (clic droit dans la barre d'adresse) et de coller dans ton message ex:

Lien supprimé

@+ :woohoo:

 

Vote positif 0 Vote négatif

B

br44

Guest

• 20 Mars 2006

• #12

re:Bonjour le forum ,Bonjour Dull

Merci pour l'astuce j'enprend note .

Bon pour faire simple j'ai modifié la formule de P'titCastor en :

Sub NumIncrementFacture()
Dim NumIncrementFacture As Range
Dim I As Range

Set I = Range('C3')
With Range('C3')
If .Value = '' Then

Set NumIncrementFacture = Range('C3')
NumIncrementFacture = NumIncrementFacture + 1
Range('C3') = Range('F4') & Sheets('Détail').Range('A4')
Sheets('détail').Range('A4') = NumIncrementFacture
End If
End With
End Sub

J'ai placé cette macro dans un module mais elle ne s'excute pas ,enfin rien n'apparait dans la cellule consernée .
J'i essayé également de la mettre dans mon program principal et là j'ai le message d'erreur suivant:
ERREUR D'EXCUTION:'1004'
La methode Select de la classe Range à échoué
je ne sais pas se que ça veut dire ,en à tu une idée ?
si tu peux m'aider à rèsoudre se petit problème je t'en serais reconnaissant .
Pour t'on infos je voudrais que le N° de Facture s'increment en fonction du Nom et de L'addresse de facturation de mes client et non à l'ouverture du fichier.
je te joint mon fichier pour plus d'infos .
Le programe se situe dans le classeur F.XLS
la feuille 'Détail' se remplie par un Userfrom Qui se Commande par la touche F5 du vba .
Te remerciant par avance de t'es lumières je te souhaite une bonne fin d'aprés midi et te dis à plus sur le forum. br44 [file name=PROJET_20060320174519.zip size=27763]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PROJET_20060320174519.zip[/file]

 

Pièces jointes

• PROJET_20060320174519.zip

  27.1 KB · Affichages: 63

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 23 Mars 2006

• #13

Bonjour a toutes et a tous

Meteo 6° soleil (region Megeve)

Salut Dull et Br44 Nomade69 P'titCastor

Voila

Ce fil m'interesse regade mon fichier joint j'ai tout expliqué

Bonne journée
A+ B)

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 23 Mars 2006

• #14

Rea a tous

Oups perdu en route

 

Vote positif 0 Vote négatif

M

MARIE74

XLDnaute Occasionnel

• 23 Mars 2006

• #15

Re a tous

J'ai oublié de compresser

 

Vote positif 0 Vote négatif