Vba - n+1

[pepsi]

Bonjour,

J'ai une valeur en A1
Comment écrire en vba que cette valeur s'incrémente de 1 quand on appuie sur un bouton ?

J'ai écrit ce code, mais cela n'affiche que 1 , quand je lance la macro pour la première fois

Que faut il changer ?
Merci

Sub incremente()

Worksheets("Feuil1").Range("a1").Value = Value + 1


End Sub

 

[Pierrot93]

Re : Vba - n+1

Bonjour,

essaye comme ceci :

With Worksheets("Feuil1").Range("a1")
    .Value = .Value + 1
End With

bonne soirée
@+

 

[Robert]

Re : Vba - n+1

Bonjour Pepsi, bonjour le forum,

Tu y étais presque !

Sub incremente()
Worksheets("Feuil1").Range("a1").Value = Worksheets("Feuil1").Range("a1").Value + 1
End Sub

[Édition]
Bonjour Pierrot on s'est croisé.

 

[pepsi]

Re : Vba - n+1

Merci Robert et Pierrot !

Effectivement, mon code était incomplet; Merci pour vos corrections !