Numérotation automatique pour devis

Bonjour à tous,


Alors voila je me suis lancé dans la création d'un userform pour mon devis et normalement quand je l'ouvre il m'affiche un numéro automatique. Cependant le numéro ne change pas :

Voici le code que j'ai crée dans mon userform:

Private Sub UserForm_Initialize()

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'Numéro de devis IblDevis.Caption = "DEVIS N°" & Format(Date, "mmdd") & Format("000") + NumAuto Range("D1") = IblDevis.Caption End Sub Private Sub cboSuivi_Change() Range("E6").Value = cboSuivi.Value End Sub Private Sub btnAnnuler_Click() Unload Me End Sub   Private Sub btnValider_Click() 'Numéro de devis Range("D1").Value = IblDevis.Caption cboSuvi = Texte Unload Me End Sub

---

Je voudrais qu'à chaque validation de mon userform qu'il comprenne que le numéro doit augmenter de 1

Pouvez vous m'éclairer la dessus?

Bonjour,
Cette contribution t'aidera peut-être VBA / Fonction - Incrémentation de n°.
Il s'agit d'une fonction qui renvoie un numéro suivant différents paramètres. Un classeur exemple est à télécharger.

Re bonjour,


Merci pour ta réponse
Cependant je met mon fichier en piece jointe pour que vous puissiez comprendre mon probleme
J'ai un peu de mal à comprendre ton code

Bonjour,
Mon code est une fonction dont il faut juste remplir les arguments et qui renvoie le numéro incrémenté qui se réinitialise suivant ceux-ci.
Seul le premier argument est obligatoire.
Cette formule est utilisable soit en VBA soit directement dans Excel
Ainsi, la formule ci-dessous renverra 11

Code:

---

=Counter(10)

---

Un autre cas où la formule renverra 1 puisque nous sommes le 18/03/2015 et que le dernier n° a été établi le 15/2/2015 et que la périodicité de la numérotation est basée sur les mois ("M")

Code:

---

=Counter(10;DATE(2015;2;15);"M")

---

Mais tout cela est expliqué dans la contribution, je pense

Je n'ai pas besoin de fichier à ce stade, si ta question est bien posée, je comprends bien que tu as besoins d'un numéro qui s'incrémente

ps : dans cette ligne de code, il y a un petit soucis

Code:

---

IblDevis.Caption = "DEVIS N°" & Format(Date, "mmdd") & Format("000") + NumAuto

---

Sans avoir testé, il me semble que c'est Format(NumAuto,"000")
Et NumAuto, je ne le vois nulle part sans ta procédure sauf à cette ligne là.

Ok d'accord mais je pensais que la macro comprendrais automatiquement qu'il faut ajouter un numéro auto :ptdr:

Donc je dois donc créer un code d'incrémentation?

Est-ce de type:

Code:

---

1 2 3

Private Sub NumAuto () NumAuto= IblDevis +1 End Sub

---

Et encore merci pour ton aide

Bonjour,
Ben oui évidemment, il n'y a aucun programme qui va t'incrémenter tout seul un numéro sauf en passant par une fonction.
Il est préférable à mon sens d'écrire une fonction plutôt qu'une Sub.
Ensuite bien entendu, il faut penser à sauver ce nouveau numéro.
Pour ma part, je considère que la mise à jour de la numérotation doit se faire lors de l'impression du document car souvent on prépare une offres, note d'envoi, facture, etc. sans pour autant l'imprimer immédiatement.

Avec le code Sub cela ne marche pas :(
Pourrait tu m'aider stp? JE ne m'y en sort plus

Bonjour,

Citation:

---

Avec le code Sub cela ne marche pas

---

"Cela ne marche pas" ne signifie rien même quand on va chez le garagiste.
Quand un programme ne fonctionne pas, il y a plusieurs possibilités soit le résultat attendu n'est pas correct soit on a une erreur renvoyée par le langage.
C'est à mon avis ce qui arrive et le minimum que tu puisses faire si tu attends de l'aide c'est de signaler le numéro d'erreur, le message qui l'accompagne et le numéro de la ligne dans l'éditeur de code de Developpez.Com où cela se passe.
A ce sujet là, tu dois (c'est dans les règles du forum) placer tes lignes de codes entre les balises prévues à cet effet.
Pièce jointe 172180

Pour ce qui est de ton problème. Tu utilises une Sub et il me semble t'avoir écrit qu'il était préférable d'utiliser une fonction.

Cette fonction nommée NumAuto ayant comme paramètre le numéro du dernier document fonctionnera mieux

Code:

---

1 2 3

Function NumAuto(Num As Integer) As Integer NumAuto = Num + 1 End Function

---

Et on l'invoque par exemple comme ceci

Code:

---

1 2 3

Sub Test() MsgBox NumAuto(10) End Sub

---

Tu dois absolument lire les tutoriels sur le VBA, c'est un minimum.
Comme par celui-ci : Formation Excel - VBA débutant
Ensuite Utiliser les variables en VBA Excel
Bien connaître l'éditeur de VBA Vos premiers pas dans l'éditeur de macros Excel

Bonjour Phillipe,

Encore merci pour tes conseils.
J'ai bien suivi ta méthode en utilisant la fonction NumAuto plus que Sub mais j'ai un message d'erreur qui est le suivant:

Citation:

---

Erreur de compilation, argument non facultatif

---

Mon seul soucis comme je l'ai expliqué précédemment c'est que je n'ai pas de numéro automatique qui s'affiche lors de l'ouverture de mon userform. Il y aurait il un autre moyen de créer cette numérotation automatique?

Bonjour,
Le message que tu reçois signifie que tu n'as pas passé d'argument à la fonction. Je t'ai pourtant montré un exemple.
De plus si tu n'affiches pas le code et que tu utilises et que tu ne donnes pas le numéro de la ligne dans l'éditeur où à lieu cette erreur, impossible de t'aider.

Serait il possible que je te mettre le fichier en joint?

Bonjour,
Juste pour que tu puisses comprendre le mécanisme.
1) Tu ouvres un nouveau classeur, tu renommes une feuille avec ce nom Param et en cellule A2 de celle-ci, tu places comme valeur 11
2) Tu crées un UserForm et tu insères un CommandButton. Tu laisses les noms d'origine

3) Tu fais un copier/coller du code ci-dessous dans le module du formulaire.

4) Tu lances le formulaire avec la feuille Param active et tu dois voir apparaître dans la barre des titres du formulaire "Document numéro 012"
5) Tu cliques sur le bouton. La valeur 12 va s'inscrire dans la cellule A2 de la feuille Param et le titre du formulaire va changer en ayant la nouvelle numérotation.
Chaque fois que tu cliqueras sur le bouton, il y aura écriture dans le classeur et modification du titre
Cet exemple est simple, structuré et bien entendu pas écrit comme je le ferais normalement mais cela permet que tu comprennes ce mécanisme.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Dim DocNumber As Integer Private Sub CommandButton1_Click() ThisWorkbook.Worksheets("Param").Range("A2") = DocNumber ' Ecriture dans la feuille Param du nouveau n° NextNumber End Sub Private Sub UserForm_Initialize() NextNumber End Sub Function NumAuto(Num As Integer) As Integer NumAuto = Num + 1 End Function Sub NextNumber() ' Incrémente le n° + modification la propriété Caption du formulaire DocNumber = ThisWorkbook.Worksheets("Param").Range("A2") DocNumber = NumAuto(DocNumber) ' Incrémentation du n° Me.Caption = "Document numéro " & Format(DocNumber,"000") End Sub

---

A ce stade, je ne vois toujours pas l'intérêt de lire ton fichier. Il faut d'abord que tu comprennes.

Philippe je reviens vers toi. J'ai suivi ton procédé comme indiqué sans modifier le caption du bouton créé cependant rien n'y fait toujours du mal à établir un numéro automatique. D'autant plus par rapport à mon fichier, mon numéro automatique doit être affiché dans mon label appelé IblDevis à l'affiche de mon userform et à chaque validation mémoriser ce numéro et m'en donner un autre

Ce fichier normalement sera mis en réseau et dc sera utilisé par mes collaborateurs.
Je me demande si je n'ai peut pas fait trop compliqué aussi d'où le fait que je me demande s'il ne serait pas mieux que je mette mon fichier en joint.

JE ne suis pas très à l'aise en Excel et encore moins en Macros. Je me suis inspiré de guides pour les codes pour quand meme avoir une base avant de demander de l'aide mais la j'avoue que je sèche vraiment ou peut être que je m'y prend mal.

Pièce jointe 172258