Discussion :

[Oreo_]

Bonjour à tous,

J'ai créé un formulaire "DIPLOME_ETUDIANT" composé d'une liste déroulante "diplome" et lorsque l'utilisateur choisi BAC, je voudrais que les champs "spécialité" et "mention" apparaissent, mais seulement lorsque BAC est choisi.

Quelqu'un aurait une idée s'il vous plait ?

Merci d'avance.

[chidori-san]

Bonjour, je ne suis pas dans le vb depuis longtemps, mais j'ai eu un soucis similaire au votre.
Déjà, il faut mémoriser la valeur sélectionnée de la liste dans un chaîne s.

Code :

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

1
2
3
4
5
6
Dim s As String
Dim n As Integer
'Pour connaître le numéro de la ligne sélectionnée'
n = Me.Controls!diplome.ListIndex
'Pour renvoyer la valeur de la ligne n'
s = Me.Controls!diplome.ItemData(n)

Personnellement, j'ai écrit ces lignes dans un évènement de mise à jour de liste, afin d'actualiser dès qu'on change la sélection :

Code :

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

Private Sub diplome_AfterUpdate()

Une fois la valeur sélectionnée connue, il faut faire apparaître les autres champs (ce sont bien des contrôles?) :

Code :

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

1
2
3
4
5
6
7
If s = "BAC" Then
    Me.Controls!specialite.Visible = True
    Me.Cohntrols!mention.Visible = True
Else
    Me.Controls!specialite.Visible = False
    Me.Controls!mention.Visible = False
End If

[RobiPMS]

Bonjour.
Peut-être plus directement:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub diplome_AfterUpdate()
If Me!diplome = BAC Then
Me.Controls!spécialité.Visible = True
Me.Controls!mention.Visible = True
Else
Me.Controls!spécialité.Visible = False
Me.Controls!mention.Visible = False
End If
End Sub

Cordialement.
R.L.

[Oreo_]

Merci à vous deux. J'ai adapté vos codes et ça fonctionne.

[Oreo_]

Bonjour à tous!

Je reviens vers vous car j'aimerais faire la même chose mais avec une case à cocher...
Par exemple, dans le formulaire BAC, si l'utilisateur coche le champs "bac_obtenu" alors le champ "date_obtention" apparaitra. Comment faut-il faire?
En remplacant ListIndex par CheckBox ça ne fonctionne pas...

Je vous remercie par avance.

[yonnel]

En adaptant le code de RobiPMS, ça donnerait:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub bac_obtenu_AfterUpdate()
  If Me.bac_obtenu.Value = True Then
      Me.spécialité.Visible = True
      Me.mention.Visible = True
  Else
      Me.spécialité.Visible = False
      Me.mention.Visible = False
  End If
End Sub

[RobiPMS]

Bonjour à tous.

En fait, le code

Code :

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

1
2
3
4
5
6
Dim s As String
Dim n As Integer
'Pour connaître le numéro de la ligne sélectionnée'
n = Me.Controls!diplome.ListIndex
'Pour renvoyer la valeur de la ligne n'
s = Me.Controls!diplome.ItemData(n)

n'est pas nécessaire pour ce type de situation.
Il suffit d'adapter les "If", et éventuellement de les combiner, pour que l'effet obtenu corresponde à l'attente. Par exemple, on pourrait imaginer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If Me!diplome = BAC And Me.bac_obtenu.Value = False Then
    Me.Controls!specialite.Visible = True
    Me.Controls!mention.Visible = False
    Me.Controls!date_obtention.Visible = False
ElseIf Me!diplome = BAC And Me.bac_obtenu.Value = True Then
    Me.Controls!specialite.Visible = True
    Me.Controls!mention.Visible = True
    Me.Controls!date_obtention.Visible = True
ElseIf Not Me!diplome = BAC Then
    Me.Controls!specialite.Visible = False
    Me.Controls!mention.Visible = False
    Me.Controls!date_obtention.Visible = False
End If

A toi de penser à toutes les situations possibles et d'adapter le code pour qu'il corresponde à toutes les combinaisons possibles.
Bon travail!

[Oreo_]

Merci beaucoup, j'ai adapté mon code, il fonctionne.
Encore merci!

[marsouin_89]

Bonjour Oreo,

Merci de cliquer sur le bouton "Résolu" pour que cela profite à tout le monde.

Cordialement

Christophe