arreter de décrémenter à partir d'un seuil

[klorane]

Bonjour à tous,

j'ai un tableau dans lequel je possède un bouton qui décrémente un compteur à chaque fois que je clique dessus.

A l'initialisation le compteur contient la valeur 5 à chaque fois que je clique sur ce bouton le compteur affiche 4,3,2,1,0,-1,-2 etc...

Comment faire pour lui dire d'arreter de décrémenter lorsque la valeur est = à 0?

pour vous aider à me répondre on dira que la valeur 5 du compteur est dans la cellule A1 ça sera plus facile.

Merci à tous.

Sylvain

 

[aguwar]

Bon dimanche à tous,

Je suppose que le code lancé par le bouton utilise un variable qu'il fait diminuer d'1 à chaque fois.
Si c'est le cas, il faudrait intégrer un arrêt du genre :

If Variable = 0 Then
Variable = 5
End If
Qui recommence la boucle.

Ou :

If variable = 0 Then Exit Sub
Qui quitte la macro.

A voir... en fonction du code.

 

[aguwar]

Bon dimanche à tous,

Je suppose que le code lancé par le bouton utilise un variable qu'il fait diminuer d'1 à chaque fois.
Si c'est le cas, il faudrait intégrer un arrêt du genre :

If Variable = 0 Then
Variable = 5
End If
Qui recommence la boucle.

Ou :

If variable = 0 Then Exit Sub
Qui quitte la macro.

A voir... en fonction du code.

 

[klorane]

je joins un fichier pour mieux voir.

il faut tout simplement que le compteur s'arrete à 0 sans continuer.

 

[klorane]

voilà le fichier

 

[klorane]

 

[klorane]

voilà le fichier! enfin j'espère! ;-) [file name=compteur.zip size=5971]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/compteur.zip[/file]

 

[klorane]

j'ai pu détourner la chose et ça marche.

Merci à tous et bon week end.

sylvain

 

[JeanMarie]

Bonjour

Change le code VBA par celui-ci

Sub Bouton1_QuandClic()
Range('A1').Value = Application.Max(0, Range('A1').Value - 1)
End Sub

@+Jean-Marie

 

[groussel]

Bonjour Sylvain,

Change le code de ton bouton par :

Sub Bouton1_QuandClic()
If Range('A1').Value = 0 Then Exit Sub
Range('A1').Value = Range('A1').Value - 1
End Sub

A plus,

 

[Charly2]

Bonsoir Sylvain, Jean-Marie et Gérald,

Je mets mon grain de sel

Une modification du code qui ressemble beaucoup à celle de Jean-Marie :

Sub Bouton1_QuandClic()
  Range('A1') = IIf(Range('A1'), Range('A1') - 1, 0)
End Sub

Amicalement
Charly