Format dans un textbox

[MuscatMimi]

Bonsoir a toutes et a tous

Je désire entrer ce format 2009/100 dans la textbox1
et qu'aprés avoir entré un nombre ,(exemple 40) que le chiffre 100 s'incrémente sans que l'année change
Voici le code de mon Bouton


Private Sub BtnCompte1_Click()
Dim PremNumChq, NbChq, Cel As Integer
PremNumChq = TextBox1
NbChq = TextBox2
With Sheets("Données")
For Cel = 1 To NbChq + 1
.Cells(Cel, 6) = PremNumChq
PremNumChq = PremNumChq + 1
Next Cel
End With
End Sub
amicalement

 

[Kotov]

Re : Format dans un textbox

Bonsoir,

Quelle est la question ?

A première vue, tu risques d'avoir un problème avec :
PremNumChq = TextBox1 etNbChq = TextBox2 si les valeurs dans tes textbox 1 et 2 ne sont pas des valeurs numériques positives.

Mais peut-être souhaitais-tu nous soumettre un autre problème ?

A +
Kotov

 

[MuscatMimi]

Re : Format dans un textbox

Merci kotof

en fait je m'étais mal exprimé je viens de modifier mon post

Bonne soirée

 

[skoobi]

Re : Format dans un textbox

Bonjour Christian, Kotov,

Si j'ai bien compris, test ceci:

Private Sub BtnCompte1_Click()
  Dim PremNumChq, NbChq, Cel As Integer
  PremNumChq = TextBox1
  NbChq = TextBox2
  With Sheets("Données")
    Indic = Right(TextBox1, 3)
    For Cel = 1 To NbChq + 1
      .Cells(Cel, 6) = PremNumChq
      Indic = Indic + 1
      PremNumChq = Left(TextBox1, 5) & Indic
    Next Cel
  End With
End Sub

 

[ChTi160]

Re : Format dans un textbox

Salut Christian
Bonsoir le fil
Bonsoir le Forum

ou alors un truc du genre

PremNumChq = Mid(Textbox1, InStr(1, Textbox1, "\"))
NbChq = TextBox2
Textbox1 = "2009\" & PremNumChq + NbChq

pas sur d'avoir tout compris lol
un fichier avec le Userform et les TextBox permettrait de saisir la démarche
car une boucle sur des cellules sans références aux TextBox ????

mais bon !!!
dans l'attente lol
Bonne fin de Soirée

 

[MuscatMimi]

Re : Format dans un textbox

Salut skooby et chTI160

merci ,beaucoup skooby et chTI160
tu a trés bien compris mon soucis skooby
Je viens d'essayer
Juste, j'ai ajouté Dim Indic As Integer

Je vais aussi essayer ton idée chTI160

A bientôt skooby , chTI160 et bonne soirée