Discussion :

[astragale-prod]

Bonjour le forum,
Novice dans le développement en VBA
J’ai besoin de vos lumières pour résoudre le problème suivant.
J'ai besoin pour le boulot de réaliser une slide comprenant un tableau de score type Handball
Je désire mettre en place une slide dans laquelle il y a deux champs texte avec un chiffre
En cliquant dessus cela permet d’incrémenter le chiffre du champs
En cliquant sur un autre bouton, on remet à zéro
J'ai fait des recherches sur le forun, je commence à comprendre comment faire des macros
mais je pense avoir besoin d''aide. Merci d'avance

[arosec]

Bonjour,


Code pour mettre les compteurs à 0:

Code :

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

1
2
3
4
5
 
Private Sub CommandButton1_Click()
  Me.TextBox1 = "0"
  Me.TextBox2 = "0"
End Sub

Code pour incrémenter les compteurs lorsqu'on double clique dessus:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  AddPoint Me.TextBox1
End Sub
 
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  AddPoint Me.TextBox2
End Sub
 
Private Sub AddPoint(ByRef txt As MSForms.TextBox)
  If IsNumeric(txt.Text) Then
    txt.Text = CLng(txt.Text) + 1
  Else
    txt.Text = "0"
  End If
End Sub

Cdlt,