Combobox : liste à partir de deux colonnes

Version imprimable

27/04/2019, 14h27
TchiotPols

Combobox : liste à partir de deux colonnes

Bonjour à tous,
Je reviens vers vous pour un petit problème auquel je n'arrive pas à trouver de solutions.
Je vous pose le problème :
J'ai dans une feuille nommée "Feuil1" deux colonnes A & B.
Etiquette de colonne A1 "Prénoms", étiquette de colonne B1 "Noms"
Dans chaque colonne une liste sur 100 lignes ("A2:B101")
Dans la feuille "Feuil2", cellule A1, je veux retrouver comme valeur l'association "Prénom" & " " & "Nom" par l'intermédiaire d'un ComboBox1 dans le UserForm nommé "Civilité"
Dans cette cellule A1, je récupère la valeur du ComboBox1
L'ouverture du UserForm "Civilité" est commandée par un bouton de commande situé dans la feuille "Feuil1".

Mon problème est que je n'ai pas dans mon ComboBox1 l'affichage "Prénom Nom" dans la liste déroulante lorsque je clique dessus, donc pas de valeur à copier dans la celluelA1 Feuil2.
J'ai mis les propriétés Column Count à la valeur 2 et Row Source à la valeur A2:B101
Dans mon code j'ai initialisé mon comboBox1 comme suit :

Code:

ComboBox1.List() = Worksheets("Feuil1").Range("A2:B101").Value

Pourrai-je avoir un petit coup de pouce SVP ?

1 pièce(s) jointe(s)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Me.ComboBox1.List = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  Me.ComboBox1.ColumnCount = 2
  Me.ComboBox1.ColumnWidths = "40;40"
End Sub
 
Private Sub ComboBox1_click()
   Me.TextBox1 = Me.ComboBox1.Column(1)
   Sheets(2).[A1] = Me.ComboBox1 & " " & Me.ComboBox1.Column(1)
End Sub

Boisgontier

27/04/2019, 14h50
TchiotPols

boisgontierjacques

Bonjour
Merci pour cette réponse rapide. Je viens de l'adapter à mon ComboBox. Super, ça fonctionne très bien.
Merci:D:mouarf1:
27/04/2019, 14h59
TchiotPols

Une chose que je n'ai pas vu de suite. Dans le ComboBox1, la liste déroulante s'affiche bien avec le Prénom et le Nom. Par contre en mettant que :

Code:

Sheets("Feuil2)".Range("A1").value = Civilite.ComboBox1.value

Je n'ai que le Nom qui s'affiche dans la cellule et non "Prénom Nom"
Est-ce normal docteur ...?
27/04/2019, 15h15
boisgontierjacques

Code:

Sheets("Feuil2)".Range("A1").value = Civilite.ComboBox1.value & Civilite.ComboBox1.Column(1)

Boisgontier
27/04/2019, 15h34
TchiotPols

Re

En fait j'ai adapté votre réponse parce que la votre ne me donnait que "NomNom" et non "Prénom Nom"
Je l'ai corrigée comme ceci

Code:

Sheets("Feuil2)".Range("A1").value = Civilite.ComboBox1.Column(0) & " " & Civilite.ComboBox1.Column(1)

Là ça fonctionne bien.

La question que je me pose quand même (même si le cas doit être rare !) c'est le cas de plusieurs colonnes de référence dans la Liste... ?
Merci:D