Compteur avec des userform

bonsoirr,

Les variables a,b,c,d sont déclarées à l'intérieur de la procédure test(), elles ne sont donc connues que dans cette procédure.
Elles ne peuvent être modifiées par d'autres procédures que si elles sont globales.

Voici coment faire;

Dim a as integer, b as integer, c as integer,d as integer

Sub test()
a = 0
b = 0
c = 0
d = 0
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
UserForm2.Show
End Sub
Sub OptionButton1_Click()
a = a + 1
End Sub
Sub OptionButton2_Click()
b = b + 1
End Sub
Sub OptionButton3_Click()
c = c + 1
End Sub
Sub OptionButton4_Click()
d = d + 1
End Sub

Il ne reste plus qu'a récupérer les valeur de a,b,c d et les afficher dans un textbox par exemple

bonne soirée

Bonjour,

Merci beaucoup pour ta réponse mais ca ne marche toujours pas...
En fait je demande la valeur de a par exemple comme ceci:

Dim a, b, c, d As Integer
Sub test()
a = 0
b = 0
c = 0
d = 0
UserForm1.Show
MsgBox a
End Sub

Je fais peut etre une erreur la aussi...Est-ce que le a est réellement changé mais kil me revoie le valeur que j'ai définie au début ou est-ce qu'il ne c'est rien passé du tout???

Merci d'avance

bonsoir,

Puisque je vois que cela t'interesse, je te mets ci-dessous un exemple d'utilisation des userform.

1) Dans Excel crée une fenetre userform1 avec deux boutons et deux zones de texte:
CommandButton1 , CommandButton2, TextBox1, TextBox2

2) Ajoute un module (Module1) avec ce code:

Option Explicit
Public a As Integer, b As Integer

Sub test()
a = 0
b = 0
UserForm1.TextBox1.Text = a
UserForm1.TextBox2.Text = b
UserForm1.Show
'quand la femetre est fermée on affiche ces messages
MsgBox "le bouton A a été appuyé " & a & " fois"
MsgBox "le bouton B a été appuyé " & b & " fois"
'on recupère les valeur de a et b dans les cellules A1 et A2
Sheets("Feuil1").Select
Range("A1").Select
ActiveCell.Value = a
Range("A2").Select
ActiveCell.Value = b
End Sub

3) dans la fenetre userform1 double_clic sur CommandButton1 et remplace le code par:

Option Explicit

Private Sub CommandButton1_Click()
a = a + 1
TextBox1.Text = a
End Sub

Private Sub CommandButton2_Click()
b = b + 1
TextBox2.Text = b
End Sub

C'est tout. Maintenat reviens dans la feuille Excel (feuil1) et execute test : Menu Outils - Macro ...
Si la feuille s'appelle "feuil1" tu verras s'afficher les valeur de a et b dans A1 et A2.

C'est juste un exemple. On peut faire beaucoup plus compliqué mais il faut bien maitriser Excel et VisualBasic.
En attendant, bon amusement avec VBA. Salut. Amigo.

Bonsoir,

Merci beaucoup ca marche!!! Merci de ton aide Amigo

Bonne soirée