Discussion :

[TchiotPols]

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 :

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

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

Pourrai-je avoir un petit coup de pouce SVP ?

[boisgontierjacques]

Bonjour,

Code :

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

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

[TchiotPols]

Bonjour
Merci pour cette réponse rapide. Je viens de l'adapter à mon ComboBox. Super, ça fonctionne très bien.
Merci

[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 :

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

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 ...?

[boisgontierjacques]

Code :

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

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

Boisgontier

[TchiotPols]

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 :

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

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