Discussion :

[dodo28]

Bonjour,
Pouvez vous m'aider?

J'ai un formulaire avec 3 case à cocher (jour1, jour2, jour3), un textBox (prix à payer)

Lorsque je coche l'une des cases, je voudrais que dans textbox s'affiche 50, si 2 cases à cocher de cocher dans le textbox s'affiche 100, et 3 cases de cocher s'affiche 150.

Voici le code que j'ai écrit :

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
17
18
19
20
21
22
23
24
25
26
27
Private Sub Jour3_Click()
 
Dim PrixAPayer As Integer
 
With Me
.Te_PrisAPayer = 0
PrixAPayer = .Te_PrisAPayer
PrixAPayer = 0
 
If .Jour1.Value = True Or .Jour2.Value = True Or .Jour3.Value = True Then
Somme = 50
PrixAPayer = 50
End If
 
If (.Jour1.Value = True) And (.Jour2.Value = True) And (.Jour3.Value = True) Then
Somme = 150
PrixAPayer = 150
End If
 
 
If (.Jour1.Value = True And .Jour3.Value = True) Or (.Jour2.Value = True And .Jour3.Value = True) Or (.Jour1.Value = True And .Jour2.Value = True) Then
Somme = 100
PrixAPayer = 100
End If
End With
 
End Sub

J'ai mis ce code sur le clic de toutes les cases. Cela fonctionne pour 1 case cocher et sur deux cases cocher.
Mais cela ne fonctionne pas quand je coche les 3 cases, pouvez vous m'aider, merci?

[Robert1957]

Bonjour dodo28,

Une manière simple de faire ce que vous voulez:

Code :

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

1
2
3
4
5
6
7
Private Sub suCalcul_PrixAPayer()
    Dim i As Integer  'À chaque fois que la procédure est lancé la variable prend la valeur de 0
    If Nz(Me.Jour1, 0) Then: i = 50  'On additionne 50 si la case à cocher = vrai, gestion du null si le formulaire n'est pas lié
    If Nz(Me.Jour2, 0) Then: i = i + 50
    If Nz(Me.Jour3, 0) Then: i = i + 50
    Me.PrixAPayer = i  'On inscrit le résultat dans votre champ
End Sub

Ensuite vous appelez ce code sur l'événement après mise à jour, et non pas sur click, de vos cases à cocher comme suit:

Code :

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

1
2
3
Private Sub Jour3_AfterUpdate()
suCalcul_PrixAPayer
End Sub

Bonne journée

[dodo28]

Merci beaucoup ca marche