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
Partager