Discussion :

[retraite83]

Bonjour

je me suis décidé à regarder les Userform

Avec les docs j'ai créé mon userform, un bouton qui active

Enfin le code du Userform

Code :

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

1
2
3
4
Option Explicit
Private Sub userform_Click()
MsgBox "A"
End Sub

Je passe bien par le MSGBOX en cliquant sur le Userform affiché

Maintenant lors de l'affichage du Userform il y a une zone de texte avec une liste déroulante

C'est ok, la liste est bien visible

Mais je n'arrive pas à comprendre comment récupérer dans la macro la réponse de l'utilisateur (la sélection dans la liste déroulante)

[hyperion13]

Salut
Un truc comme ça

Code :

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

Msgbox Me.Combobox1.Value

[Philippe Tulliez]

Bonjour,
Attention que la valeur renvoyée par la propriété Value d'un ComboBox comme d'un ListBox dépend de la propriété BoundColumn, qui par défaut est à 1, du même contrôle

Il y a plusieurs propriétés qui permettent de récupérer l'élément sélectionner

• Value qui renvoie la Xème colonne, partant de la gauche, où X dépend de la propriété BoundColumn du même contrôle. Cette dernière étant égal à 1 par défaut
• List(Ligne, Colonne) où ligne est la position de la ligne dans la liste et colonne sa position dans la liste (sachant qu'il commence à 0 comme ListIndex)
• ListIndex qui renvoie le n° de la ligne sélectionnée sachant que la première ligne est 0. C'est cette propriété que je privilégie si ma liste est alimentée par une table car elle permet d'aller chercher une information dans la table même si cet élément n'est pas affiché dans la liste.

Petit exemple avec un ListBox (ces propriétés sont identiques pour un Combobox) où la propriété ColumnBound est égal à 2

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ListBox1_Click()
  Dim t As String
  With Me.ListBox1 
   t = t & "Value : " & .Value
   t = t & vbCrLf & "Cellule du range  : " & oRange(.ListIndex, 1)
   t = t & vbCrLf & "ListIndex : " & .ListIndex
   t = t & vbCrLf & "List(Index, Colonne) : " & .List(.ListIndex, 3)
   MsgBox t
  End With
End Sub

Illustration
On peut voir que

• Value renvoie la deuxième colonne de la liste du fait que ColumnBound est égal à 2
• ListIndex permet en l'utilisant d'afficher directement un élément de la table.

[retraite83]

Merci

ça mérite d'y passer un peu de temps...