[VBA]Conseil sur code VBA

Version imprimable

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 :mouarf:

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:

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 ;)

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:

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

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:

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:

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:

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 :mouarf:

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

Ca dit quoi ça ?

Code:

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

20/03/2007, 15h27
mat67000
Merci Maxence pour ta suggestion, je vais tester ca de suite

sinon j'ai fait ce test :
Code:

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 :king:
20/03/2007, 15h31
mat67000

Maxence

J'ai une erreur 2427 Expression sans paramètre qui ressort :evilred:
20/03/2007, 15h58
Maxence HUBICHE
Citation:

Envoyé par mat67000

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

?????
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:

1 2 Me.Bascule14.Enabled = (Me.GpeZone.Value <> Lavaleur) Me.Bascule15.Enabled = Me.Bascule14.Enabled
20/03/2007, 16h11
mat67000
oui maxence, l'erreur était sur le code que tu m'a conseiller :
Code:

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 :lol:
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:

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 :oops: ), à quoi sert le "Me." dans le code ?? car je ne vois pas la différence en l'utilisant et sans l'utiliser
20/03/2007, 16h18
Maxence HUBICHE

Citation:

J'ai testé ta dernière suggestion et j'y ai presque cru :lol:
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 !

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:

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 :oops:

20/03/2007, 17h07
Maxence HUBICHE

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 ?

Merci pour ton affirmation, ça fait plaisir :oops:
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 !! :D

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 :lol:

Voici le code :

Code:

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 ;)

Hello à tous !!

bon ba encore de nouvelles de Maxence concernant mon code qu'il voulai si gentillement analysé :D De:Debout... il est l'heure de se lever :lol:

dsl :oops: => [ ] lol

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

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 :lol:

21/03/2007, 16h27
mat67000

Personne peut m'aider ?? :(

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:

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

22/03/2007, 11h23
mat67000

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 !! :yaisse2: 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:lol: :oops: