N° Facture automatique sans doublon

Nono · 13 Février 2002

<HTML>Salut,

Je souhaite savoir comment faire pour insérer une formule (ou VBA)
pour obtenir un N° sans doublon (sur une facture par exemple.

Merci à tous...

Nono.</HTML>

Nono · 15 Février 2002

<HTML>Alors... personne pour répondre ???????
Y bien une formule ou un code VBA pour obtenir un numéro de facture automatiquement sans doublons et incrémenté de 1 à chaque nouveau formulaire...!

Bon j'attends............... :-(</HTML>

yvette · 16 Février 2002

<HTML>Avec ta façon de demander de l'aide, ne t'étonne pas trop de ne pas avoir de réponse...
D'abord ta première question est très succincte : un n° sans doublon ça veut dire quoi exactement ?
Et puis ton 2ème message est extrêmement agressif tu ne trouves pas ? Es-tu au courant que personne ici je pense n'est à ta disposition ? N'oublie pas que c'est bénévole ! En demandant avec politesse et courtoisie, ça donne davantage envie de répondre.

Alors à mon tour, j'attends.................</HTML>

Nono · 16 Février 2002

<HTML>Je suis vraiment désolé que mes messages ont été pris dans ce sens...!

Mon seul souhait en fait est de pouvoir donner automatiquement, à l'aide de formules ou VBA, un N° unique à des documents.
Genre facture, devis ou bon de commande par exemple.

Encore une fois, toutes mes excuses pour cette malheureuse interprétation de mes messages...!</HTML>

Thierry · 16 Février 2002

<HTML>Salut Nono,

Comme Yvette te l'a bien dit, ici et dans tous les forums, on n'aiment pas être "bousculés"..... Bon enfin je vois que tu as compris

Pour Un numéro auto incrémenté sans doublon...

Il te faut :

Une feuille "Compteur"

Une macro dans un module standard
'=========================================
Sub Compteur()
Dim OldNO As Integer
Dim NewNO As Integer
OldNO = Sheets("Compteur").Range("A1").Value
NewNO = OldNO + 1
MsgBox "Numéro de facture : " & NewNO
Range("A1").Value = NewNO
Sheets("Facture").Range("E3").Value = "Facture N° " & NewNO
End Sub
'=========================================

Adapter la ligne Sheets("Facture").Range("E3") avec l'endroit où tu veux reporter le numéro...

Voilà, c'est pas très compliqué.
Bon Week End

@+Thierry</HTML>

Yvette · 16 Février 2002

<HTML>ok nono, si tu t'excuses, je ne t'en veux pas. Parfois, en virtuel, les mots sont déformés et amplifiés et tu ne t'es apparemment pas rendu compte.

Et voilà tu as une réponse !
Bonne soirée</HTML>

Effectuez une recherche sur Excel Downloads...

N° Facture automatique sans doublon

Nono

Guest

Nono

Guest

yvette

Guest

Nono

Guest

Thierry

Guest

Yvette

Guest

Discussions similaires

Nous accordons de l'importance à votre vie privée