Discussion :

[biquet52]

Salut,

j'aimerais qu'une liste déroulante s'affiche ou non suivant le choix que j'ai fait dans une autre.

Exemple:
Dans ma première liste, j'ai la liste de toutes mes machines. Je clic sur "Banc d'épreuve"

A ce moment là, ma deuxième liste doit s'afficher (celle-ci me sert à choisir les différents postes sur mon banc d'épreuve).
Ils se peut que la deuxième liste ne doive pas s'afficher, car je n'ai pas des postes sur toutes les machines.

J'ai essayer le cade suivant:

Code :

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

1
2
3
4
5
Private Sub Machine_Click()
If Machine.Value = "Banc d'épreuve" Then
Poste.Visible = True
End If
End Sub

Mais ça ne fonctionne pas...

Merci pour votre aide

[Renardo]

Code :

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

1
2
3
4
5
If me.Machine = "Banc d'épreuve" Then
me.Poste.Visible = True
else
me.Poste.Visible = false
End If

Tu peux mettre se code sur la proprietee Apres mise a jour de ta liste Machine

[biquet52]

Merci pour ta réponse, mais ça ne fonctionne pas...

[biquet52]

Je viens de faire le test avec une liste déroulante, dans laquelle je mets manuellement les valeurs que je veux, avec le code suivant:

Code :

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

1
2
3
4
5
6
 
If me.Machine = "Banc d'épreuve" Then
me.Poste.Visible = True
else
me.Poste.Visible = false
End If

ça fonctionne.

Mais dans mon programme, les données de la liste déroulante, proviennent d'une table.

Est-ce que le problème vient de là?

Si oui, comment le résoudre?

Merci

[Lou Pitchoun]

Salut,

As tu essayé ton code sur l'évènement 'Après MAJ' de la 1ère liste ??

[biquet52]

oui, c'est que j'ai essayé

[Jeannot45]

Hello,

Puisque tes données sont issues d'une table, ta 1ère liste ne contient pas la valeur "Banc Epreuve" mais la clé primaire correspondante à "Banc Epreuve"

Donc petite correction du code :

Code :

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

1
2
3
4
5
If me.Machine = CodeMachine Then
me.Poste.Visible = True
else
me.Poste.Visible = false
End If

A+

[biquet52]

Impeccable, ça fonctionne

Merci...

Autre question, si je veux faire plusieurs tests, if...then..else.
Comment faut-il les imbriquer?

Exemple:

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
 
If me.Machine = 1 Then
me.Poste.Visible = True
else
me.Poste.Visible = false
End If
 
If me.Machine = 2 Then
me.Poste2.Visible = True
else
me.Poste2.Visible = false
End If
 
If me.Machine = 3 Then
me.Poste3.Visible = True
else
me.Poste3.Visible = false
End If

[Renardo]

Tu peux aussi mettre

Code :

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

1
2
3
4
5
If me.Machine.column(1)= "Banc d'épreuve" Then
me.Poste.Visible = True
else
me.Poste.Visible = false
End If