Bonjour klorane, le forum,
Dans les codes correspondants aux boutons remplace la ligne :
Range('E1').Value = Range('E1').Value + 1
par :
If Range('C3') = 1 Then
Range('E1') = 1
Else
Range('E1').Value = Range('E1').Value + 1
End If
En adaptant le 'C3' en fonction du bouton.
En espérant que cela te dépanne.
Abel.
Edition :
Oups !
Pardon Bernard, pas rafraichi.
Message édité par: Abel, à: 22/11/2005 09:11