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()
Je voudrais qu'à chaque validation de mon userform qu'il comprenne que le numéro doit augmenter de 1
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
Pouvez vous m'éclairer la dessus?
Partager