Discussion :

[Lola25614]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Philippe Tulliez]

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.

[Lola25614]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à.

[Lola25614]

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

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

Est-ce de type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et encore merci pour ton aide

[Philippe Tulliez]

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.