Bonjour à tous,
J'ai dans un formulaire mis ce code:
Sauf que ça ne marche pas, le texte33 ne prend jamais la valeur demandée et je ne comprends pas pourquoi...
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
28
29
30
31
32
33
34
35 Private Sub Form_Dirty(Cancel As Integer) Dim volume_total As Integer If opt_camion = True Then volume_total.Value = 96.48 opt_conteneur_dry = False opt_conteneur_vingt = False opt_conteneur_hc = False Texte33.Value = 96.48 ElseIf opt_conteneur_dry = True Then volume_total.Value = 59.92 opt_conteneur_hc = False opt_conteneur_vingt = False opt_camion = False Texte33.Value = volume_total ElseIf opt_conteneur_hc = True Then volume_total.Value = 68.24 opt_conteneur_dry = False opt_conteneur_vingt = False opt_camion = False Texte33.Value = volume_total ElseIf opt_conteneur_vingt = True Then volume_total.Value = 30.99 opt_conteneur_dry = False opt_conteneur_hc = False opt_camion = False Texte33.Value = volume_total Else volume_total.Value = 0 End If End SubVous pouvez m'éclairer?
Merci![]()
Partager