forcer l'utilisation d'un ComboBox

[Toubabou]

Bonjour,
Pourriez vous me dire comment forcer une sélection dans une combobox avant toutes autres saisie dans un UserForm

Amicalement,

Jean-Marie

 

[Paf]

Re : forcer l'utilisation d'un ComboBox

Bonjour

une solution : ne laisser visible que la Combobox puis rendre visibles les autres objets seulement si une sélection est faite dans la combobox (en passant par Private Sub ComboBox1_Change())

A+

 

[Toubabou]

Re : forcer l'utilisation d'un ComboBox

Bonjour,
Je vous remercie, mais j'ai oublie de préciser que je suis débutant.
Pourriez me détailler la procédure.

Amicalement,
Jean-Mrie

 

[Paf]

Re : forcer l'utilisation d'un ComboBox

Re

Si la Combobox s'appelle ComboBox1, deux solutions (surement plus):

1)
Pour 'masquer' les objets, solution manuelle :
pour chaque objet sur la Userform (hormis la combobox) aller dans ses propriétés, puis passer la propriété visible à False

pour démasquer, dans Private Sub ComboBox1_Change():
TextBox1.Visible=True
TextBox2.Visible=True
...

2)
pour masquer tout sauf combobox
dans Private Sub UserForm_Initialize()

Dim CTR
 For Each CTR In Controls
    If CTR.Name <> "ComboBox1" Then CTR.Visible = False 'préciser le nom de la combo à ne pas masquer
 Next

pour démasquer tout



dans Private Sub ComboBox1_Change()

Dim CTR
 If ComboBox1.ListIndex <> -1 Then
    For Each CTR In Controls
        CTR.Visible = True
    Next
 End If

A+

 

[Toubabou]

Re : forcer l'utilisation d'un ComboBox

Re,

Merci beaucoup, j'ai simplement recopié dans Private Sub ComboBox1_Change()

Dim CTR
 For Each CTR In Controls
    If CTR.Name <> "ComboBox1" Then CTR.Visible = False 'préciser le nom de la combo à ne pas masquer
 Next

et cela fonctionne
Merci beaucoup

Amicalement,

Jean-Marie

 

[Paf]

Re : forcer l'utilisation d'un ComboBox

Re

et comment rendez-vous ces objets visibles?

A+

 

[Toubabou]

Re : forcer l'utilisation d'un ComboBox

Re,
Simplement en utilisant la combobox
A+

 

[Paf]

Re : forcer l'utilisation d'un ComboBox

Re,

pas possible ! où alors Excel 2010 fait des prouesses en interprétant le code par rapport aux besoins!

 

[Toubabou]

Re : forcer l'utilisation d'un ComboBox

Bonjur Paf

Désolé mais chez moi cela fonctionne, à l'ouverture du formulaire, je sélectionne une information dans la ComboBox et mon formulaire s'ouvre entièrement

Amicalement,

Jean-Marie

 

[Toubabou]

Re : forcer l'utilisation d'un ComboBox

Re

Si la Combobox s'appelle ComboBox1, deux solutions (surement plus):

1)
Pour 'masquer' les objets, solution manuelle :
pour chaque objet sur la Userform (hormis la combobox) aller dans ses propriétés, puis passer la propriété visible à False

pour démasquer, dans Private Sub ComboBox1_Change():
TextBox1.Visible=True
TextBox2.Visible=True
...

2)
pour masquer tout sauf combobox
dans Private Sub UserForm_Initialize()

Dim CTR
 For Each CTR In Controls
    If CTR.Name <> "ComboBox1" Then CTR.Visible = False 'préciser le nom de la combo à ne pas masquer
 Next

pour démasquer tout



dans Private Sub ComboBox1_Change()

Dim CTR
 If ComboBox1.ListIndex <> -1 Then
    For Each CTR In Controls
        CTR.Visible = True
    Next
 End If

A+

Bonjour Paf,

Juste encore une petite question
Maintenant la texteBox qui etait en relation avec la combobox ne fonctionne plus. C'est à dire qu'elle n'affiche plus les informations liés à la combobox. que dois je faire pour rétablir cette situation.

Merci par avance

 

[Paf]

Re : forcer l'utilisation d'un ComboBox

Re,

Re,

Merci beaucoup, j'ai simplement recopié dans Private Sub ComboBox1_Change()

Dim CTR
 For Each CTR In Controls
    If CTR.Name <> "ComboBox1" Then CTR.Visible = False 'préciser le nom de la combo à ne pas masquer
 Next

et cela fonctionne
Merci beaucoup

Amicalement,

Jean-Marie

Je viens de découvrir, dans une autre de tes discussions, un classeur contenant le code proposé au post #4, et qui ne correspond pas vraiment à la réponse ci dessus.

Il ne faut pas raconter n'importe quoi. Un forumeur qui tenterait d'utiliser cette réponse s'étonnerait qu'elle ne fonctionne pas !

Bonne suite

 

[Toubabou]

Re : forcer l'utilisation d'un ComboBox

Bonsoir Paf,

Desolé je ne suis pas assez calé pour inventer quoi que ce soit et surtout prendre le risque dinduire en erreur qui que ce soit.
J'ai reellement recopier le premier code dans mon userform Et il fonctionne, ou du moins il fait ce que je recherchais.

Par contre il est fort possible que mes réponses soient ambigues et je m'en excuse
Je vais chercher a supprimer cette conversation, afin qu'elle ne gêne personne.

Amicalement,

Jean Marie