Salut !

J'avais déjà posé cette question dans le forum et on m'a donné ce code ci :

Private Sub Command1_Click()
T_Num.Text = Format(Val(T_Num.Text) + 1, "0000")
End Sub

Mais en fait, il y'a un élément qui manque...

Je voudrais qu'au load, le Text1 soit supérieur d'un point du dernier enregistrement suivit d'un texte "RE8" dont le 8 est le chiffre de l'année en cours... puis RE9 pour l'an 2009 et 10 pour 2010.

Quand je met juste le code donné ci-dessus,
T_Num.Text = "RE8" & Format(Val(T_Num.Text) + 1, "0000")
Avec le RE8 au début, il ne fonctionne plus...

C'est vrais que je n'ai pas géré le RE8, mais déjà avec ce beug... je ne peux plus avancer...
Pouvez vous m'aider svp ?

Merci d'avance

----------
OS        : Windows XP SP2
Platforme : VB 6.0 + SP6

Ok VB6.0 c'est pas net !

Salut,

Quand tu fais Val(T_Num.Text), il faut le faire faire compter le RE8.
Voir Left$, Right$, Mid$

__________
  Kenji

salut,

euh... na moi pas comprendre la question

le Text1 soit supérieur d'un point du dernier enregistrement
> 1 point? un point de quoi? de quel enregistrement?

suivit d'un texte "RE8" dont le 8 est (...)
çà ok

T_Num.Text = "RE8" & (...)
ouai c'est sur que si çà commence par "RE"..., tu n'auras pas ton "+1 point" avant....

    Dim sYear As String
    sYear = Format$(Date, "YY") ' "08" ou "10" ou autre
    If LeftB$(sYear, 2) = "0" Then sYear = RightB$(sYear, 2) ' si commence par zéro, on ne prend que le 2e carac

    T_Num.Text = "Ton +1 point qui vient de je ne sais où " & _
                 "RE" & sYear

++

---

Prenez un instant pour répondre à ce sondage svp

... en même temps j'ai pas non plus fait l'effort de comprendre ^^

T_Num.Text = Format$(Val(T_Num.Text) + 1, "0000") & " RE" & sYear

Salut !

Merci PCPT !

Dim sYear As String
sYear = Format$(Date, "YY")
If LeftB$(sYear, 2) = "0" Then sYear = RightB$(sYear, 2)
T_Num = "RE" & sYear & "/" & Format$(Val(T_Num.Text) + 1, "0000")

Ca fonctionne parfaitement pour le RE8/
Mais il n'avance pas dans les chiffres 0000
Pourquoi a chaque enregistrement il n'avance pas ? :s

RE8/0001
RE8/0001
RE8/0001
RE8/0001

Alors que normalemnt il devrait être :
RE8/0001
RE8/0002
RE8/0003
...
RE8/9999

Merci encore pour ton aide

salut,

tant qu'il y aura 0 dans T_Num, tu auras 0001

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Salut !

Non c'est pareil meme avec ca :
T_Num = "RE" & sYear & "/" & Format$(Val(T_Num.Text) + 1)

:?

sinitrus -> tu fais vraiment pas d'effort. t'essayes même pas de comprendre ni le code ni les conseils.
sans compter que ton énoncé n'était pas bien expliqué. soudainement ton "compteur" se trouve à la fin, tu disais au début !
Text1 soit supérieur d'un point du dernier enregistrement suivit d'un texte "RE8"

bref !

Private Sub Command1_Click()
    Dim iPosSlash As Integer
    Dim lVal      As Long
    Dim sYear As String
    
'   on récupère la valeur. soit il y a REX/VAL, soit j'en sais rien.
'   VAL nous renvoie la valeur. donc si çà commence par RE, on aura toujours Val renvoyant 0
'   on va donc récupérer la droite du slash!
    iPosSlash = InStr(1, T_Num.Text, "/")

'   si cette position est 0, il n'y en a pas. sinon on récupère la valeur
    If iPosSlash = 0 Then
        lVal = 0&
    Else
        lVal = Val(Mid$(T_Num.Text, iPosSlash + 1))
    End If

'   dernier chiffre (sur 1 ou 2 carac) de l'année en cours
    sYear = Format$(Date, "YY") ' "08" ou "10" ou autre
    If LeftB$(sYear, 2) = "0" Then sYear = RightB$(sYear, 2) ' si commence par zéro, on ne prend que le 2e carac
    
'   on affiche
    T_Num.Text = "RE" & sYear & "/" & Format$(lVal + 1, "0000")
End Sub

bon copier/coller...

---

Prenez un instant pour répondre à ce sondage svp

Salut !

PCPT, la question n'est pas sur l'effort que je donne ici mais sur ce qui se passe avec moi sur ma machine...
Quand tu m'a donné le code pour le RE, quelque soit l'emplacement je me suis dis que c'est pareil, fo juste que le RE soit avant ou après...
Puis pour le numéro automatique, j'ai fouillé mais le code que j'ai eu dans la premiere question (sur un autre topique que celu- ci) et d'ailleur mais j'ai trouvé plus simple celui là...
J'ai fais plusieurs test mais sans aucun resultat... et enfin les explications donné sur le RE sont "bien entrés dans ma tit tête".
Quand Mortalino m'a dit d'enlever le 0 du T_Num... là ça m'a été bizarre ^o)
Enfin bref, merci a tous pour le coup de main, je sais que souvent je suis lourd mais croyez moi, je cherche aussi à comprendre plutot qu'a coder en automate (copy/past)

Merci encore a tous

ok...

n'oublie pas le tit bouton vert
++