Private Sub BtnCompte2_Click() 'au clic dans le bouton BtnCompte2
Dim PremNumChq, NbChq, Cel, Indic As Integer 'déclare les variables
PreNumChq, NbChq, Cel et Indic
PremNumChq = TextBox1 'définit la variable PreNumChq (la valeur renseignée dans la Textbox1 de l'Userform)
NbChq = TextBox2 'définit la variable NbChq (la valeur renseignée dans la Textbox2 de l'Userform)
With [COLOR=red]Sheets("N°Commande")[/COLOR] 'prend en compte l'onglet "NºCommande"
Indic = Right(TextBox1, 3) 'définit la variable Indic (les trois derniers digits de la Textbox1)
For [COLOR=red]Cel = 1 To NbChq + 1[/COLOR] 'boucle de cel= 1 à NbChq
[COLOR=red].Cells(Cel, 6)[/COLOR] = Format(PremNumChq, "####0000/###000") 'la cellule ligne cel, colonne 6 prend la valeur de PremNumChq formatée
Indic = Indic + 1 'redéfinit la variable Indic (incrémenté de + 1)
PremNumChq = Left(TextBox1, 3) & Indic 'redéfinit la variable PreNumChq (les 3 premiers digits de la TextBox1 suivi de Indic
Next Cel 'prochaine valeur de cel (cel+1)
End With 'fin de la pris en compte de l'onglet "NºCommande"
Unload Me 'vide et ferme l'UserForm
End Sub