Définir un score

Bonjour,

Je suis débutant en VBA et j'aimerai créer un petit programme pour un match : Lorsqu'on clique sur un bouton, celui-ci ajouterait un 'but' à une variable... Cependant lorsque je crée deux programmes distincts cela ne fonctionne pas...
Le premier programme permet d'afficher le nombre de but dans la cellule A1
Si quelqu'un peut m'aider...
Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Affecter_valeur()   but = 0 Sheets("Feuil1").Range("A1") = but   End Sub   Sub but() but = but + 1 End Sub

---

Bonjour,

Ton code ne va pas du tout, enfin je t'explique.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Affecter_valeur()   but = 0 Sheets("Feuil1").Range("A1") = but   End Sub   Sub but() but = but + 1 End Sub

---

Dans Affecter_Valeur tu commences par but=0 donc à chaque fois que tu appelleras cette macro ta ligne en dessous donc ta ligne A1 sera toujours 0.
La macro but() je ne vois pas à quoi elle peut servir ici.

Juste pour simplifier met tout dans une même fonction.

Code:

---

1 2 3 4 5

Sub But()   Sheets("Feuil1").Range("A1").Value = Sheets("Feuil1").Range("A1").Value + 1   End Sub

---

Et affecte sur ton bouton la macro but, maintenant une fois que tu click sur le bouton A1 augmente de 1 à chq fois

Cdt

Bonjour,

Pour commencer il vaut mieux ne pas définir une variable qui porte le même nom qu'une procédure.

Une seule procédure qui quand on l'appel ajoute 1 et affiche le nombre de Buts

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim IntBut as Integer   Sub Affecter_valeur()   IntBut = IntBut + 1 Sheets("Feuil1").Range("A1") = IntBut   End Sub   EDIT : Encore plus direct avec le code jackborogar

---

Yop,

Attention avec ton

Code:

---

Dim IntBut as Integer

---

Faut d'inadvertance tkt mais ça pourrait le perturber 8O

Cdt