CommandButton

[Popi14]

Bonjour à tous le forum,

Je suis actuellement bloqué🙁
J'aimerai incrémenter un compteur lorsque je clique sur mon boutton poussoir (CommandButton 1). J'ai fait le boutton mais je n'arrive pas à incrémenter ma case. Mon code pour le boutton est le suivant:

Private Sub CommandButton1_Click()
Dim a As Integer
a = 1
Worksheets("Feuil1").Range("D15").Value = a + 1
End Sub

Merci d'avance pour votre aide,

Bonne fin de journée,

Popi14

 

[Hervé]

Re : CommandButton

bonjour popi

tu dis dans ton code que a=1 et de placer en d15 a+1, donc en d15 tu auras toujours 2, logique

essaye comme ceci :

Private Sub CommandButton1_Click()
Dim a As Integer
a = Worksheets("Feuil1").Range("D15").Value
Worksheets("Feuil1").Range("D15").Value = a + 1
End Sub

ou sans variable :

Private Sub CommandButton1_Click()
with Worksheets("Feuil1").Range("D15")
.Value = .value + 1
end with
End Sub

salut

 

[Popi14]

Re : CommandButton

Salut Hervé,

Je te remercie pour ta réponse !!

@+