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?