Discussion :

[mat67000]

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]

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]

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]

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]

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]

Maxence

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