Discussion :

[Elstak]

Hello,

Voilà je cherche à rendre des objet d'un userform visibles lorsque q'une valeur est selectionnée dans un combobox.

Pour le moment j'ai créé un bouton sur lequel je clique apres avoir choisi un element de la combobox et qui permet de rendre visible les objet (dont certains prennent des valeurs qui dépéndent du nom choisi dans la combobox).

Y a t'il un moyen de ne avoir à faire ca, de rendre ces objets visibles des qu'une valeur a été choisie dans la combobox?

Merci

[Catbull]

A priori, il faut tester la propriété Text de ta combobox lors de l'évènement Click.

[zazaraignée]

Salut

Moi qui suis paresseuse de nature, j'aurais tendance à mette mes contrôles à afficher (ou masquer, selon) dans des conteneurs, un groupe de conteneurs en fait. Je programme en VB6. J'ignore si c'est différent en .Net. Je continue...

Donc mes conteneurs ont tous le même nom (propriété name) et on une propriété Index de 0 à la valeur du compte des conteneurs moins un.

En passant, au cas où tu de demanderais, une conteneur c'est :

• une Form,
• un PictureBox,
• un Frame,
• y'en a peut-être d'autres mais je sais pas.

C'est pratique les Index, ils ont les même numéro que les ListIndex d'un ListBox. Tu vois ce que je veux dire ?

Code :

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

1
2
3
4
5
6
Private Sub maListe_Clic()
    Static dernierIndice As Integer
    monConteneur(dernierIndice).Visible = False
    monConteneur(maListe.ListIndex).Visible = True
    dernierIndice = maListe.ListIndex
End Sub

La variable 'Static' sert à conserver le dernier indice et à masquer le contrôle ou l'ensemble de contrôles correspondant.

J'ai orreur des tests et quand je peux m'en passer...

[Elstak]

Coucou,

Merci de vos réponses.
Alors zaza, je vois pas trop comment faire pour ton idée de conteneurs, pour info je suis en vba excel là.

Si je comprend bien tous mes objets (liste, bouton etc..) auront un nom suivi d'un indice. Mais bon comme je doit apres affecter des valeur à chacun je prefere mettre un nom qui correspond bien à ce que fait l'objet.

En fait c'est à peu pres comme tu disais catbull, je pensais pas que c'etait si simple. En double cliquant sur le combobox j'ai eu dans le code une sub qui s'est créée : NomCombo_Change

J'ai juste eu à mettre une condition (si valeur différente de "") et ca fonctionne bien

merci

[ouskel'n'or]

Tu n'es pas obligé de faire "un test". Tu peux écrire plus simplement :

LeCombo.visible = LaValeur = ""

ou

LeCombo.visible = not LaValeur = ""

selon le résultat que tu veux obtenir

Juste pour contrarier zaza

A+