Incrémentation avec année

bonjour Vincent,

j'ai ajouté un troixième textbox qui sert de tempon en les changement
d'année.
__________________________________________

Dim depart As Integer

Private Sub UserForm_Initialize()
depart = 0
TextBox3.Value = 0
TextBox3.Visible = False
TextBox2 = 0
End Sub

Private Sub TextBox1_AfterUpdate()
If depart = 0 Then
TextBox3.Value = TextBox1.Value
depart = 1
End If
If Val(TextBox3.Value) <> Val(TextBox1.Value) Then
TextBox2.Value = 0
TextBox3.Value = TextBox1.Value
Else
TextBox2 = Val(TextBox2) + 1
TextBox3.Value = TextBox1.Value
End If
End Sub
_________________________________________

isabelle

Bonsoir
Je désire créer une numérotation (incrémentation) automatique qui recommence
à 1 lors du changement d'année.
J'envoi avec un userform le contenu de 2 textbox
textbox1 avec la date en année ex : 2005 en colonne A
textbox2 avec un numéro qui s'incrémente et recommence à 1 à chaque
changement d'année en B
Je cale complètement pour le textbox2
Merci
Vincent

Bonjour,
sur excelabo tu trouveras des solutions pour récupérer l'adresse IP,
d'autres pour envoyer des mails à toi de faire la synthèse !
maintenant, détecter le changement d'IP nécessite de faire de test de
tesmps à autre. Alors regarde aussi sur la page tempo (le jeu en vaut-il
vraiment la chandelle ?)

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 18/03/2005 05:45, :

bonjour Vincent,

j'ai ajouté un troixième textbox qui sert de tempon en les changement
d'année.
__________________________________________

Dim depart As Integer

Private Sub UserForm_Initialize()
depart = 0
TextBox3.Value = 0
TextBox3.Visible = False
TextBox2 = 0
End Sub

Private Sub TextBox1_AfterUpdate()
If depart = 0 Then
TextBox3.Value = TextBox1.Value
depart = 1
End If
If Val(TextBox3.Value) <> Val(TextBox1.Value) Then
TextBox2.Value = 0
TextBox3.Value = TextBox1.Value
Else
TextBox2 = Val(TextBox2) + 1
TextBox3.Value = TextBox1.Value
End If
End Sub
_________________________________________

isabelle

Bonsoir
Je désire créer une numérotation (incrémentation) automatique qui
recommence à 1 lors du changement d'année.
J'envoi avec un userform le contenu de 2 textbox
textbox1 avec la date en année ex : 2005 en colonne A
textbox2 avec un numéro qui s'incrémente et recommence à 1 à chaque
changement d'année en B
Je cale complètement pour le textbox2
Merci
Vincent

oups, j'ai répondu à ce message en voulant répondre à celui du dessous !
ne pas tenir compte de mon précédent message ;-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 18/03/2005 05:45, :

bonjour Vincent,

j'ai ajouté un troixième textbox qui sert de tempon en les changement
d'année.
__________________________________________

Dim depart As Integer

Private Sub UserForm_Initialize()
depart = 0
TextBox3.Value = 0
TextBox3.Visible = False
TextBox2 = 0
End Sub

Private Sub TextBox1_AfterUpdate()
If depart = 0 Then
TextBox3.Value = TextBox1.Value
depart = 1
End If
If Val(TextBox3.Value) <> Val(TextBox1.Value) Then
TextBox2.Value = 0
TextBox3.Value = TextBox1.Value
Else
TextBox2 = Val(TextBox2) + 1
TextBox3.Value = TextBox1.Value
End If
End Sub
_________________________________________

isabelle

Bonsoir
Je désire créer une numérotation (incrémentation) automatique qui
recommence à 1 lors du changement d'année.
J'envoi avec un userform le contenu de 2 textbox
textbox1 avec la date en année ex : 2005 en colonne A
textbox2 avec un numéro qui s'incrémente et recommence à 1 à chaque
changement d'année en B
Je cale complètement pour le textbox2
Merci
Vincent

Merci Isabelle
impeccable
Vincent

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eU9vuT3KFHA.3184@TK2MSFTNGP09.phx.gbl...

bonjour Vincent,

j'ai ajouté un troixième textbox qui sert de tempon en les changement
d'année.
__________________________________________

Dim depart As Integer

Private Sub UserForm_Initialize()
depart = 0
TextBox3.Value = 0
TextBox3.Visible = False
TextBox2 = 0
End Sub

Private Sub TextBox1_AfterUpdate()
If depart = 0 Then
TextBox3.Value = TextBox1.Value
depart = 1
End If
If Val(TextBox3.Value) <> Val(TextBox1.Value) Then
TextBox2.Value = 0
TextBox3.Value = TextBox1.Value
Else
TextBox2 = Val(TextBox2) + 1
TextBox3.Value = TextBox1.Value
End If
End Sub
_________________________________________

isabelle

Bonsoir
Je désire créer une numérotation (incrémentation) automatique qui
recommence à 1 lors du changement d'année.
J'envoi avec un userform le contenu de 2 textbox
textbox1 avec la date en année ex : 2005 en colonne A
textbox2 avec un numéro qui s'incrémente et recommence à 1 à chaque
changement d'année en B
Je cale complètement pour le textbox2
Merci
Vincent