Discussion :

[Kamsa]

Bonjour

Je suis pas très bonne en informatique et je bute sur ce raisonnement depuis 1semaine, pouvez vous m'aider SVP ?

J'ai des valeurs À, B, C qui peuvent avoir les champs X,Y,Z,T, V

1er problème :
Quand je choisis une donnée dans une liste déroulante.
J'aimerais que certains champs qui ne le concernent pas, ne soient pas visibles et
Qu'apparaissent que les champs concernés X,Y par exemple pour A ou X, T pour B etc...
Et ce seraient des champs à renseigner.

2ème problème
Quand je coche un case
J'aimerai qu'apparaissent des champs à renseigner.
Par ex : en voyage ? Si coché,
Apparaissent la place et date à renseigner, sinon rien.

Voilà merci

[madefemere]

Bonjour,

Problème 1 :
Il faut utiliser les propriétés Visible de tes champs et les afficher selon les valeurs de ta liste déroulante. Donc rattacher le code à l'évènement AprèsMiseAJour de ta liste déroulante. Tu auras un code du genre :

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
Private Sub TaListeDeroulante_AfterUpDate()
Select Case TaListeDeroulante
     Case "A"
          Me.X.Visible = True
          Me.Y.Visible = True
          Me.Z.Visible = False
          Me.T.Visible = False
          Me.V.Visible = False
     Case "B"
          Me.X.Visible = True
          Me.Y.Visible = False
          Me.Z.Visible = False
          Me.T.Visible = True
          Me.V.Visible = False
'...ainsi de suite...
End Select
End Sub

Pour le problème 2, ce sera similaire, mais l'évènement sera l'après mise à jour de la case à cocher correspondante.

Cordialement,

[Kamsa]

Bonjour,

Problème 1 :
Il faut utiliser les propriétés Visible de tes champs et les afficher selon les valeurs de ta liste déroulante. Donc rattacher le code à l'évènement AprèsMiseAJour de ta liste déroulante. Tu auras un code du genre :

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
Private Sub TaListeDeroulante_AfterUpDate()
Select Case TaListeDeroulante
     Case "A"
          Me.X.Visible = True
          Me.Y.Visible = True
          Me.Z.Visible = False
          Me.T.Visible = False
          Me.V.Visible = False
     Case "B"
          Me.X.Visible = True
          Me.Y.Visible = False
          Me.Z.Visible = False
          Me.T.Visible = True
          Me.V.Visible = False
'...ainsi de suite...
End Select
End Sub

Pour le problème 2, ce sera similaire, mais l'évènement sera l'après mise à jour de la case à cocher correspondante.

Cordialement,

Merci madefemere
Mais je vais l'essayer.