compteur amélioré

cabsen · 20 Décembre 2007

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 · 20 Décembre 2007

Re : compteur amélioré

Voilà. la cellule en A1 change comme demandé

cabsen · 20 Décembre 2007

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 · 20 Décembre 2007

Re : compteur amélioré

Bonjour cabsen, le fil,

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

Code:

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 · 20 Décembre 2007

Re : compteur amélioré

Merci à tous les deux.

Maintenant c'est parfait !

compteur amélioré

cabsen

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

cabsen

XLDnaute Junior

skoobi

XLDnaute Barbatruc

cabsen

XLDnaute Junior

Discussions similaires