Bouton ajoutant 1

Bonjours,,

J'ai une feuille excel avec un bouton et j'aimerai a chaque impulsion ajouter la valeur +1 dans la cellule "J3" de l'onglet Trie.

Dans la limite de 4 parties. soit de 1 à 4

Merci d'avance

Cordialement

Max

Bonjour,

Sub plus1()
    If [Trie!J3] < 4 Then [Trie!J3] = [Trie!J3] + 1
End Sub

eric

Bonjour,

je ne suis pas bon en macro, mais j'en ai écris une. Elle a l'air de fonctionner.

Sub TextBox9_Cliquer()

Dim nb As Double

nb = Sheets("Trie").Range("J3").Value

If nb = 4 Then Exit Sub

Sheets("Trie").Range("J3").Value = nb + 1

End Sub

A chaque fois que tu clique, elle ajoute 1 à la valeur de J3 et si J3 = 4 alors elle ne fait rien.

Bonjour racouet13, eriiic

Je vous remercie Nickel

Bonne journée

@+

Max