Format dans un textbox

Kotov

XLDnaute Impliqué

• 28 Janvier 2009

• #2

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

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 28 Janvier 2009

• #3

Re : Format dans un textbox

Merci kotof

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

Bonne soirée

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 28 Janvier 2009

• #4

Re : Format dans un textbox

Bonjour Christian, Kotov,

Si j'ai bien compris, test ceci:

Code:

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

 

Dernière édition: 28 Janvier 2009

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 28 Janvier 2009

• #5

Re : Format dans un textbox

Salut Christian
Bonsoir le fil
Bonsoir le Forum

ou alors un truc du genre

Code:

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

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 28 Janvier 2009

• #6

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

 

Dernière édition: 28 Janvier 2009

Vote positif 0 Vote négatif