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