[VBA]Conseil sur code VBA

**mat67000** · 20/03/2007, 11h45

Bonjour à tous

j'aurais besoin de vos judicieux conseils sur une partie de mon code VBA

J'ai un groupe d'options qui me permet de sélectionner un etage (de 1 à 7) puis un deuxième groupe d'options qui me permet de selectionner une zone (de 1 à 3), le reste n'est que détails

En fait, je veux, lorsque je selectionne l'etage 7, que les zones 2 et 3 restent grisées car il ne peut y avoir ces zones à cet etage. J'ai donc appliqué un code VBA sur le bouton de bascule concernant le 7e etage, cela marche sauf que, dès que j'ai selectionner le 7e etage, le code s'applique aux autres etages aussi, ce que je ne veux pas, et je ne vois pas l'erreur. Je met le code VBA ci-dessous. Si quelqu'un peut me dire où j'ai oublié quelque chose, je vous en serai reconnaissant !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub GpeZone_AfterUpdate()
'Lors de la selection de la zone, la zone de texte "Numéro de prise" s'active
Me.NumPrise.Enabled = True
'La variable Zone prend la valeur selectionnée
Zone = Me.GpeZone.Value
End Sub
 
Private Sub Bascule9_GotFocus()
Me.Bascule14.Enabled = False 'Bouton de la Zone2
Me.Bascule15.Enabled = False 'Bouton de la Zone3
End Sub

Merci

**Gary_Stoupy** · 20/03/2007, 12h43

Bonjour,

Essaie de faire un test de l'option sélectionnée après update de ta zone... Si l'option sélectionnée correspond à l'étage 7, alors tu désactives, sinon tu ne fais rien...

Un truc du genre :

Code :

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

1
2
3
4
5
6
7
if (Me.GpeZone.Value = 7) then
    Me.Bascule14.Enabled = False 'Bouton de la Zone2
    Me.Bascule15.Enabled = False 'Bouton de la Zone3
else
    Me.Bascule14.Enabled = true 'Bouton de la Zone2
    Me.Bascule15.Enabled = true 'Bouton de la Zone3
end if

**mat67000** · 20/03/2007, 14h59

Merci Gary_Stoupy

ta solution est une bonne idée mais ne fonctionne pas car ma valeur de ma Gpe Zone n'est pas du texte (= 7 dans ton code).

J'ai essayé différente combinaisons comme :

Code :

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

1
2
3
4
5
6
7
If Me.GpeZone.Value = Me.Bascule9.Caption Then
Me.Bascule14.Enabled = False
Me.Bascule15.Enabled = False
Else
Me.Bascule14.Enabled = True
Me.Bascule15.Enabled = True
End If

Code :

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

1
2
3
4
5
6
7
If Me.Bascule9.Enabled = True Then
Me.Bascule14.Enabled = False
Me.Bascule15.Enabled = False
Else
Me.Bascule14.Enabled = True
Me.Bascule15.Enabled = True
End If

Code :

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

1
2
3
4
5
6
7
If Me.Bascule9.Caption Then
Me.Bascule14.Enabled = False
Me.Bascule15.Enabled = False
Else
Me.Bascule14.Enabled = True
Me.Bascule15.Enabled = True
End If

mais rien n'y fait. Peut etre que mon code est totalement utopique mais je suis pas un pro VB donc je teste

bref, je continu à chercher, n'hesitez pas si vous avez des suggestions et merci en tous cas

**Maxence HUBICHE** · 20/03/2007, 15h13

Ca dit quoi ça ?

Code :

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

1
2
3
 
Me.Bascule14.Enabled = (Me.GpeZone.Value = Me.Bascule9.value)
Me.Bascule15.Enabled = Me.Bascule14.Enabled

**mat67000** · 20/03/2007, 15h27

Merci Maxence pour ta suggestion, je vais tester ca de suite

sinon j'ai fait ce test :

Code :

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

1
2
3
4
Private Sub Bascule9_GotFocus() => Bascule9 est mon bouton Etage7
Me.Bascule14.Enabled = False
Me.Bascule15.Enabled = False
End Sub

donc là ca marche nikel sauf qu'à partir du moment où on a selectionné l'etage 7 et qu'on veut ensuite changer d'etage, les zones 2 et 3 restent grisées... mais on s'approche lol

bon je vais tester ta soluce Maxence et je reviens te dire ce qu'il en est !!
merci en tous cas vous etes les

**mat67000** · 20/03/2007, 15h31

Maxence

J'ai une erreur 2427 Expression sans paramètre qui ressort

**Maxence HUBICHE** · 20/03/2007, 15h58

Envoyé par mat67000

J'ai une erreur 2427 Expression sans paramètre qui ressort

?????
sur CE code là ?
?????

essaie (en remplacant LaValeur par la véritable valeur du bouton bascule - regarde dans ses propriétés pour la connaitre)

Code :

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

1
2
Me.Bascule14.Enabled = (Me.GpeZone.Value <> Lavaleur)
Me.Bascule15.Enabled = Me.Bascule14.Enabled

**mat67000** · 20/03/2007, 16h11

oui maxence, l'erreur était sur le code que tu m'a conseiller :

Code :

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

1
2
Me.Bascule14.Enabled = (Me.GpeZone.Value = Me.Bascule9.value)
Me.Bascule15.Enabled = Me.Bascule14.Enabled

J'ai testé ta dernière suggestion et j'y ai presque cru

En fait avec ce code, je sélectionne le 7e etage, les zones 2 et 3 sont bien grisés. Mais dès que je selectionne la zone 1, les deux autres deviennent actives !!!

Je suis sûr que je n'en suis pas loin : est ce qu'il n'y aurai pas une chose à rajouter au code suivant pour lui dire que dès qu'on reselectionne un autre etage que le 7e, que les zones 2 et 3 deviennent à nouveau actives ?? si ça existe, il n'y aurai que cela à rajouter. Voici le code :

Code :

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

1
2
3
4
Private Sub Bascule9_GotFocus() => Bascule9 est mon bouton Etage7
Me.Bascule14.Enabled = False
Me.Bascule15.Enabled = False
End Sub

De plus, (je sais j'en demande beaucoup

), à quoi sert le "Me." dans le code ?? car je ne vois pas la différence en l'utilisant et sans l'utiliser

**Maxence HUBICHE** · 20/03/2007, 16h18

J'ai testé ta dernière suggestion et j'y ai presque cru

En fait avec ce code, je sélectionne le 7e etage, les zones 2 et 3 sont bien grisés. Mais dès que je selectionne la zone 1, les deux autres deviennent actives !!!

tu as un évènement sur ton deuxième groupe !

**mat67000** · 20/03/2007, 16h27

Mon 2e groupe d'option tu ve dire ??

sachant que le 1er est mon groupe d'option de selection de l'etage et le deuxième de la zone

si on parle de la meme chose, le seul code que j'ai, est :

Code :

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

1
2
3
4
5
6
7
8
Private Sub GpeZone_AfterUpdate()
'Lors de la selection de la zone, la zone de texte "Numéro de prise" s'active
Me.NumPrise.Enabled = True
 
'La variable Zone prend la valeur selectionnée
Zone = Me.GpeZone.Value
 
End Sub

après on se comprend peut etre mal

**Maxence HUBICHE** · 20/03/2007, 17h07

OK.
C'est bien ce que je te demandais.
Ton code m'apporte 2 questions et une affirmation:

L'affirmation :
Tu commence à comprendre le principe des évènements ! Bravo !

Les questions :
Pourquoi continuer à remplir des variables ? inutiles puisque tu as les valeurs des zones de groupe
Pourrais-tu coller le code complet du module stp ?

**mat67000** · 20/03/2007, 17h19

Merci pour ton affirmation, ça fait plaisir

Oui je commence à comprendre la logique VB, faut savoir que je fais des etudes en informatiques (bac +2) mais tout ce qui est programmation, j'ai beaucoup de mal lol... mais bon, en essayant on comprend, déjà j'arrive à comprendre le code écrit, ce qui est déjà une bonne evolution !!

trève de blabla : pour ce qui est du fait que je continu à remplir des variables parce que je part du principe que ce que je veux réutiliser par après, doit etre stocker dans des variables, sachant que je dois réutiliser l'etage, la zone et le numero de prise, j'ai mis cela dans des variables. Mais ta remarque me fait betement penser que la seule variable que je veux réutiliser au final, est le numéro de prise complet (ex. 6233A).

Je te met tout le code ci dessous, si tu peux le parcourir et au pire me l'optimiser, ce serai cool. Comme dit je débute avec VB mais je pense qu'une fois mon projet fini (j'ai encore deux mois pour cela), je maitriserai VB

Voici le code :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
Option Compare Database
Option Explicit
 
Dim Etage, Zone, Priz, calcul, AB
 
 
 
 
Private Sub Form_Current()
'on indique que tout ce qui ne concerne pas l'etage doit être grisé
Me.NumPrise.Enabled = False
Me.GpeZone.Enabled = False
Me.Doublage.Enabled = False
End Sub
 
Private Sub GpeEtage_AfterUpdate()
'Lors de la selection de l'etage, le Groupe d'option "Zone" s'active
Me.GpeZone.Enabled = True
 
'La variable Etage prend la valeur selectionnée
Etage = Me.GpeEtage.Value
MsgBox Etage
 
End Sub
 
Private Sub GpeZone_AfterUpdate()
'Lors de la selection de la zone, la zone de texte "Numéro de prise" s'active
Me.NumPrise.Enabled = True
 
'Me.Bascule14.Enabled = (Me.GpeZone.Value = Me.Bascule9.Value)
'Me.Bascule15.Enabled = Me.Bascule14.Enabled
'=> expression sans paramètre
 
 
'If Me.GpeZone.Value = Me.Bascule9.Enabled = True Then => les autres etages restent grisés
'If Me.GpeZone.Value = Me.Bascule9.Caption Then => les zones 2 et 3 s'activent lors du choix de la zone du 7e
'If Me.Bascule9.Enabled = True Then => paramètre non valide
'If Me.Bascule9.Caption Then => Incompatibilité de type
'Me.Bascule14.Enabled = False
'Me.Bascule15.Enabled = False
'Else
'Me.Bascule14.Enabled = True
'Me.Bascule15.Enabled = True
'End If
 
 
'If Bascule9.Value Then
 '   Bascule13.Enabled = True
  '  Bascule14.Enabled = False
   ' Bascule15.Enabled = False
'Else
'Bascule13.Enabled = True
 '   Bascule14.Enabled = True
  '  Bascule15.Enabled = True
'End If
 
 
'If Bascule9.OnGotFocus Then
'Me.Bascule14.Enabled = False
'Me.Bascule15.Enabled = False
'Else
'Me.Bascule14.Enabled = True
'Me.Bascule15.Enabled = True
'End If
'=> incompatibilité de type
 
 
'Me.Bascule14.Enabled = (Me.GpeZone.Value <> 7)
'Me.Bascule15.Enabled = Me.Bascule14.Enabled
'=> Les zones 2 et 3 s'activent dès qu'on selectionne la zone 1)
 
 
'La variable Zone prend la valeur selectionnée
Zone = Me.GpeZone.Value
MsgBox Zone
 
End Sub
 
Private Sub Bascule9_GotFocus()
Me.Bascule14.Enabled = False
Me.Bascule15.Enabled = False
End Sub
 
Private Sub Doublage_AfterUpdate()
'La variable AB prend la valeur souhaitée
AB = Me.Doublage.Value
MsgBox AB
End Sub
 
 
Private Sub NumPrise_Exit(Cancel As Integer)
Priz = Me.NumPrise.Value
MsgBox Priz
Select Case NumPrise
'Si la valeur entrée est inférieure à 1, cela génère une erreur
Case Is < 1
MsgBox "La valeur est trop petite"
Me.Resultat.SetFocus
Me.NumPrise.SetFocus
'meme erreur si la valeur saisie est supérieure à 99
Case Is > 99
MsgBox "La valeur est trop grande"
Me.Resultat.SetFocus
Me.NumPrise.SetFocus
 
Case Else
Exit Sub
End Select
 
End Sub
Private Sub NumPrise_AfterUpdate()
'Lors de la selection du numéro de prise, le Groupe d'option "AB" s'active
Me.Doublage.Enabled = True
End Sub
Private Sub Valider_Click()
'On concaténène les résultats obtenus précédemment pour obtenir notre numéro de prise et on veut que le doublage prenne une valeur alphabétique (A ou B)
calcul = Etage & Zone & Priz & Choose(AB, "A", "B") 'GpeEtage.Value & GpeZone.Value & NumPrise.Value & Choose(Doublage.Value, "A", "B")
Resultat.Value = calcul
MsgBox calcul
End Sub
 
Private Sub BC_SORTIE_Click()
On Error GoTo Err_BC_SORTIE_Click
 
 
    DoCmd.Close
 
Exit_BC_SORTIE_Click:
    Exit Sub
 
Err_BC_SORTIE_Click:
    MsgBox Err.Description
    Resume Exit_BC_SORTIE_Click
 
End Sub

Tout ce que tu vois en commentaire et qui n'en ai pas, c'est simplement les essais que j'ai fait. J'espère que ça ne dérangera pas que je mette tout ça, mais j'ai préféré pour que tu vois tout ce que j'ai testé...

merci pour ton aide en tous cas, japprécie

**mat67000** · 21/03/2007, 10h35

Hello à tous !!

bon ba encore de nouvelles de Maxence concernant mon code qu'il voulai si gentillement analysé

De

ebout... il est l'heure de se lever

dsl

=> [ ] lol

bon en attendant son intervention, j'ai retester la suggestion de Gary_Stoupy, à savoir :

Code :

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

1
2
3
4
5
6
7
if (Me.GpeZone.Value = 7) then
    Me.Bascule14.Enabled = False 'Bouton de la Zone2
    Me.Bascule15.Enabled = False 'Bouton de la Zone3
else
    Me.Bascule14.Enabled = true 'Bouton de la Zone2
    Me.Bascule15.Enabled = true 'Bouton de la Zone3
end if

ce qui a pour effet de laisser toutes mes zones accessibles sauf pour le 7e où les zones 2 et 3 se grisent lors de la selection de cet etage, autrement dit, cela fait bien ce que je veux. Sauf que dès qu'on slectionne la zone 1, les deux autres s'activent !!!
donc là j'en suis au point où j'ai vu tous ce qui est possible de voir lol, sauf ce que je veux

donc si vous avez une idée, je suis preneur, je commence à etre à court

**mat67000** · 21/03/2007, 16h27

Personne peut m'aider ??

**Domi2** · 21/03/2007, 17h31

Bonjour,

Je prend la discussion en cours, j'espère ne pas être trop à côté.

Visiblement, tu ne déclares pas de valeur par défaut dans tes groupes d'option. Est-ce voulu ?

D'autre part, il me semble que tu ne gères pas la possibilité de petit "bug" suivant.

Tu sélectionnes l'étage 6, puis la zone 3, et zut, le bon étage était le 7, tu resélectionnes, et la zone 2 devient inactive mais garde la sélection.

Raison pour laquelle j'affecterais l'étage 1 et la zone 1 comme valeur par défaut, puis, sur mise à jour du groupe étage, je réattribuerais automatiquement la zone 1 au 2ème groupe d'option.

Je viens d'essayer le petit code suivant sur 2 groupes d'options Etage (avec option1, option2, option3) et Zone (avec option11, option12, option13).

J'ai donc 3 étages et 3 zones.

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
Private Sub Etage_AfterUpdate()
 
 
 
    If Me.Etage.Value = 3 Then
 
        Me.Option11.Enabled = True
        Me.Option12.Enabled = False
        Me.Option13.Enabled = False
 
    Else
 
        Me.Option12.Enabled = True
        Me.Option13.Enabled = True
 
    End If
 
    Me.Zone.Value = 1
 
End Sub

Cela semble fonctionner dans le sens que tu souhaites et je ne reproduis pas l'erreur que tu signales.

Domi2

**mat67000** · 22/03/2007, 11h23

Bonjour à tous

Franchement Domi2... MERCI !!! tu es loin d'etre à coté, tu es en plein dedans meme lol

Sache que j'ai des valeurs par defaut sur mes boutons de mes deux groupes d'options, c'est juste que ces valeurs ne sont pas visibles dans le code. Concernant ce bug, ba c'était justement un problème que je n'arrivai pas à résoudre mais en tous cas, ta solution réadaptée à mon cas, fonctionne parfaitement !!

donc merci beaucoup !!

Je peux clore ce topic donc un grand merci à ceux qui m'ont aidés donc merci à Gary_Stoupy, à Maxence et donc à toi Domi2. Vous avez assurés

[VBA]Conseil sur code VBA

VBA Access

Discussions similaires

Partager

Partager