Bonjour,

Je souhaiterais afficher 2 colonnes de ma combobox dans la zone texte.
Cette possibilité n'étant pas possible avec la propriété Textcolumn,
j'ai créer une troisième colonne caché ou j'ai essayé de concaténer les deux autre colonne et enfin d'afficher cette troisième colonne.
Je pense avoir fait une erreur de code.

Quelqu'un pourrait t'il m'aider ???

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub UserForm_Activate()
 
Dim Index As Variant
 
 
Index = Me.cbo_nom_article.RowSource
 
Me.cbo_nom_article.ColumnCount = 3
Me.cbo_nom_article.ColumnWidths = "49,95 pt;49,95 pt;0"
Me.cbo_nom_article.TextColumn = 3
 
For Each c In Range([C2], [C65000].End(xlUp))
 
cbo_nom_article.List(Index, 1) = Me.cbo_nom_article
cbo_nom_article.List(Index, 2) = Me.cbo_nom_article
cbo_nom_article.List(Index, 3) = cbo_nom_article.List(Index, 1) & vbTab & cbo_nom_article.List(Index, 2)
Next c
End Sub
 
Private Sub UserForm_Initialize()
 
 
With Sheets("Base Données").Range("C2") 'mise à jour de la zonne déroulante Article
Me.cbo_nom_article.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(external:=True)
 
End With
 
End Sub
Merci d'avance