compteur amélioré

[cabsen]

Bonjour le forum,

Je souhaite créer un compteur plus élaboré que le bouton "compteur" proposé par Excel.

Un bouton "suivant" incrémenterait la cellule cible de 1.
Un bouton "précédent" décrémenterait la cellule cible de 1 (limité à 0).
Un bouton "annuler" attriburait la valeur 0 à la cellule cible.

Je me doute qu'il faudra en passer par trois petites macros, mais je sèche…

D'avance merci !

 

[fanfan38]

Re : compteur amélioré

Voilà. la cellule en A1 change comme demandé

 

[cabsen]

Re : compteur amélioré • résolu

Merci beaucoup !

Ça fonctionne très bien !

Par contre, comment puis-je borner le compteur ? car actuellement il peut passer en négatif ce qui me pose problème. J'ai tenté de régler le problème avec la "validation de données" mais sans succès car il ne valide que les données saisies par l'utilisateur mais pas par une macro…

 

[skoobi]

Re : compteur amélioré

Bonjour cabsen, le fil,

voici la correction pour le bouton "précédent":

Private Sub CommandButton2_Click() 'precedent
  mavar = Range("a1").Value
 [B][COLOR="Blue"] If mavar > 0 Then [/COLOR][/B]Range("a1").Value = mavar - 1
End Sub

 

[cabsen]

Re : compteur amélioré

Merci à tous les deux.

Maintenant c'est parfait !