Remise le compteur à 1

[zine pef]

Salut forum
j'ai un compteur qui compte le nombre de fois a imprimer
à chaque clik boutton imprimer le N° augment
le N° compose de l'année /Num..(2011/03)
je souhaite à la nouvelle année le N° commance par 1

 

[Hippolite]

Re : Remise le compteur à 1

Bonsoir,
Mettre 2011 en B1 et :

Private Sub CommandButton1_Click()
Dim compteur As Integer
If CStr(Range("B1")) = Format(Date, "yyyy") Then
    compteur = Range("A1").Value
Else
    compteur = 0
    Range("B1") = Format(Date, "yyyy")
End If
compteur = compteur + 1
Sheets("feuil1").TextBox1.Value = compteur
Range("A1").Value = compteur
Sheets("feuil1").TextBox2.Value = Me.TextBox2
End Sub

A+

 

[zine pef]

Re : Remise le compteur à 1

Merci Mr Hippolite pour le code
mais rien a changer
peut une petite errer dans le code

 

[zine pef]

Re : Remise le compteur à 1

Mrs j'attend votre aide

 

[tinet]

Re : Remise le compteur à 1

Bonsoir,

En demandant gentiment on obtient ce que l'on veut.😛

 

[zine pef]

Re : Remise le compteur à 1

Bonsoir
Mr tinet rien à changer
le compteur est fixé sur 1

 

[Hippolite]

Re : Remise le compteur à 1

Bonjour,
J'ai corrigé la coquille du post#2
A+

 

[zine pef]

Re : Remise le compteur à 1

Merci pour l'effort Mr Hippolite