Discussion :

[yalaa89]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[keygen08]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1c_Click()
if Range("calcul!F3").Value >= 1 then Range("calcul!F3").Value = Range("calcul!F3").Value - 1
Unload Me
End Sub

[yalaa89]

Merci beaucoup !