Discussion :

[zine pef]

Salut forum
je suis bloque sur ce code à le remis à 1 à la nouvelle année

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim compteur As Integer
    compteur = Range("A1").Value
    compteur = compteur + 1
    Sheets("feuil1").TextBox1.Value = compteur
    Range("A1").Value = compteur
End Sub

[pgz]

Bonjour.

Tu comptes quoi : des jours, des semaines, des mois?

PGZ

[zine pef]

merci pgz ,
j'ai houblier
le compteur pour l'imprimer(CommandButton1_Click())

[pgz]

Re,

Peux-tu essayer d'expliquer à quoi sert le compteur et dans quelle circonstance tu veux le remettre à 0?

PGZ

[zine pef]

Re,
merci pour la suivit
ce compteur Utilisé pour compter le nombre de fois d'un document imprimé dans l'année

[pgz]

Bonsoir.

Puisque tu mémorises ton compteur en A1, tu peux mémoriser l'année par exemple en A2. Tu peux donner des noms définis à ces deux cellules, par exemple nmComptImpr et nmAnnee

Tu peux alors faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim oCelCompteur as Excel.range, oCelAnnee as Excel.Range
 
Set oCelCompteur = Thisworkbook.Names("nmComptImpr").RefersToRange
Set oCelAnnee = Thisworkbook.Names("nmAnnee").RefersToRange
 
If year(date()) = ocelAnnee.Value then
    oCelCompteur.Value = oCelCompteur.Value+1
Else
    oCelCompteur.Value = 1
    oCelAnnee.Value = Year(Date())
End If
Thisworkbook.WorkSheets("feuil1").TextBox1.Value = oCelCompteur.value    
 
Set oCelCompteur = Nothing
Set oCelAnnee = Nothing
End Sub

Cordialement,

PGZ

[zine pef]

un grand merci Mr pgz
c'est genial
resolu