Incrémenter N° spéciaux avec Tbx

[MuscatMimi]

Bonjour a tout le Forum

Dans le fichier joint je désire incrémenter un N° de ce Format

exemple; A 2009 104

TextBox1 = A 2009 104 (Format du N°)
TextBox2 = 150 (N° a créer)

Actuellement, ça ne m'incrémente qu'un N° pure,
genre 2009104
Mais avec la Lettre ça prends pas

Si quelqu'un connait la solution

Je vous en remmercie a l'avance
Cdlt

 

[JNP]

Re : Incrémenter N° spéciaux avec Tbx

Bonjour VaucluseImmo ,
Pour le formatage, il faut que tu le fasses après l'incrémentation, soit par exemple

Private Sub Btn_Click()
Dim PremNumFact, NbFact, Cel As Integer
PremNumFact = TextBox1
NbFact = TextBox2
With Sheets("Feuil1")
  For Cel = 2 To NbFact + 1
    .Cells(Cel, 1) = Format(PremNumFact, "A #### 0000 ### 000")
    PremNumFact = PremNumFact + 1
  Next Cel
 End With
End Sub

Bonne après-midi

 

[MuscatMimi]

Re : Incrémenter N° spéciaux avec Tbx

Bonjour Labrute

Merci tout d'abord pour ta réponse

Je viens d'essayer, mais ça fonctionne pas
Désolé