Discussion :

[am30840]

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 :

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

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

[jackborogar]

Bonjour,

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

Code :

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

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 :

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

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

[jfontaine]

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 :

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

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

[jackborogar]

Yop,

Attention avec ton

Code :

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

Dim IntBut as Integer

Faut d'inadvertance tkt mais ça pourrait le perturber

Cdt