Numerotation

Bonjour

voici mon probleme

j'ai fait un model de facture

j'aimerais maintenant mettre des n° à ces factures

par exemplr

dans ma cellule C15 je mets comme n° 20052515

existe t'il une solution qu'à ma prochaine facture en cliquant sur cette cellule

le n° 20052516 apparaisse et ainsi de suite

Merci pour votre aide

paulray

Bonjour,

Suis cette procédure :

• Vas dans VBA par ALT + F11
• CTRL + R pour afficher la fenêtre VBA project
• Double clique sur la feuille dans laquelle se trouve la cellule contenant le numéro de ta facture
• A droite place cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Long
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
a = Target.Value
Target.value = a + 1
End If
End Sub

- Enregistre ton fichier

J'ai supposé que le numéro de référence se trouvait dans la cellule A1. Donc, à adapter à ton appli.

A te lire

Dan

bonjour

j'ai préparer cette micro pour mes factures

ca fonctionne mais .....

quand je fait une facture j'ai donc un numéro

quand je ferme le fichier et que l'ouvre à nouveau pour faire une autre facture c'est toujours le meme numero qui apparait

si je fait 3 factures pour le même client pas de problème puisque je reste sur le fichier j'ai 3 n° qui ce suivent

il faudrait que quand j'ouvre ce dossier facture le numero suivant ce place automatiquement

ça existe ???

Merci pour l'aide

Paul Ray

Bonjour,

Tu n'avais pas précisé cela dans ta première demande.

On va faire au plus facile. Place cette macro en VBA dans THISWORKBOOK

Private Sub Workbook_Open()
Dim a As Long
a = Sheets("feuil1").Range("A1").Value
Sheets("feuil1").Range("A1").Value = a + 1
End Sub

avec Feuil1 le nom de ta feuille de facture et Range A1, la cellule contenant le numéro de facture.

A te lire

Dan

Bonjour

je penses que je deviens casse pieds

tout fonctionne mais pas comme je le voudrais

dans mon fichier facture en C15 j'ai mis comme numéro de ref 200520200

j'ai modifié la macro

au lieu de A1 j'ai mis C15 et ensuite j'ai enregistrer la macro

quand j'ouvre mon fichier " facture ca passe à 200520201

quand je remplie ma facture puis je l'imprime ensuite je ferme mon fichier

sans l'enregistrer

quand j'ouvre à nouveau le fichier c'est le N° 200520201 qui apparait et non 200520202

il faudrait que quand j'ouvre le fichier facture ca génére le numéro suivant

en gros a chaque fois que j'ouvre le fichier facture j'ai le numero suivant

es ce que ca existe ce genre de formule ????

Merci pour ton aide

Re,

c'est normal que si tu n'enregistres pas ton fichier, le numéro ne varie pas.

Une solution est de sauver ton fichier à l'ouverture. Pour ce faire, remplace ma dernière macro placée dans THISWORKBOOK par celle ci-dessous.

Private Sub Workbook_Open() 
Dim a As Long 
a = Sheets("feuil1").Range("A1").Value 
Sheets("feuil1").Range("A1").Value = a + 1
ThisWorkbook.Save
End Sub

A te lire

Dan

salut le forum

Le problème va revenir, tu ouvres le fichier sans faire de facture et tu le

refermes et miracle incrémentation du numéro pour rien.

Un bouton pour gérer l'impression serait plus adapter je crois.

A suivre

Mytå

re,

Ben exact Myta, je n'avais même pas envisagé ce cas là tiens ! lol !

Bonne sorée

Dan

Bonsoir et bonjour à Tous

jj'ai refait la macro

effectivement lorsque j'ouvre mon fichier facture il faut l'engeristrer avant

de remplir la facture

merci à tous pour votre aide

que veux tu dire par mettre un bouton pour l'impression ??

Salut le forum

Une facon de contourner le problème avec le bouton d'impression

Dans ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not Flag Then MsgBox "Vous devez imprimer par le bouton"
Cancel = Not Flag
End Sub

Et sur le code associé à un bouton (Dans un module)

Public Flag As Boolean

Sub Imprimer()
Flag = True
ActiveSheet.PrintPreview '.PrintOut pour imprimer
'Traitement du numéro de facture, effacement des champs
' et enregistrement du fichier
Flag = False
End Sub

Mytå

bonsoir

désolé mais je suis vraiment plus que novice sur XLS

c'est la première fois que je m'en sers

mon logiciel de compta à sauter et au mois d'aout pour trouver quelqu'un !!

je trouve ces modules ou???

vraiment merci tout ca me sauve une partie de ma compta

merci beaucoup

paul rayi

Bonjour,

Suis cette procédure :

• Vas dans VBA par ALT + F11
• Menu/insertion et choisis Module
• Place la macro proposée

A te lire

Dan

Bonjour

ça y est !

j'aiu mis en place tout les bons conseils et ça marche comme je le voulais

En fin de compte je n'ai pas besoin de creer un bouton pour l'impression

une derniere chose ( j'abuse )

comment faire pour mettre la dâte automatiquement dans la cellule B 13

merci

paul ray

Bonjour,

=maintenant() ou =aujourdhui() où CTRL + ;

où en vba ,dis quoi

A +

bonjour

merci pour la formule

tout marche exactement comme je le voulais

merci encore à tous

paul ray