Valeur mini d'une cellule
Bonjour à tous,
Je me tourne vers vous car après pas mal de temps passé sur un petit projet je n'arrive pas à trouver la solution à ce problème:
1) J'ai créé un bouton qui me permet d'incrémenter une cellule (ici F3) de +1 avec le code suivant:
Code:
1
2
3
4
| Private Sub CommandButton1_Click()
Range("calcul!F3").Value = Range("calcul!F3").Value + 1
Unload Me
End Sub |
2) En cas d'erreur, j'ai créé le le bouton inverse "correction" pour enlever -1 à la cellule (toujours F3)
Code:
1
2
3
4
| Private Sub CommandButton1c_Click()
Range("calcul!F3").Value = Range("calcul!F3").Value - 1
Unload Me
End Sub |
Le seul Hic c'est que ma cellule F3 peut se retrouver négative et justement je ne souhaite pas de valeur <0.
Ma question est de savoir quel code je peux mettre pour que ma valeur minimum soit 0 dans cette cellule F3, quelque soit le nombre de clics sur le bouton "correction" et que tout reparte à 1 lors de la nouvelle incrémentation.
Ça doit pas être très compliqué mais je sèche...
Merci à ceux qui prendront le temps de me lire...
Yalaa
