2 valeurs combobox

[crackwood01]

Salut, j'aimerais avoir une combobox qui renvoi 2 valeurs différentes ( toutes deux sur la même ligne de la feuille soit-dit-en-passant)
Voici mon code jusqu'a présent mais je sais qu'il manque des données

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
    Range("A3", Range("A" & Rows.Count).End(xlUp)).Name = "Numero"
    Range("L3", Range("L" & Rows.Count).End(xlUp)).Name = "Nom"
    Me.ComboBox1.RowSource = "Numero"
    Me.ComboBox1.RowSource = "Nom"
End Sub

Pouvez-vous m'aider

 

[Dranreb]

Re : 2 valeurs combobox

Bonjour.
Mettez plutôt deux ComboBox, une appelée CBxNuméro pour le numéro, l'autre CBxNom pour le nom.

 

[crackwood01]

Re : 2 valeurs combobox

Euh ... non merci puisque ce que je veux c'est que 2 valeurs de ligne soient retournées dans la même combobox merci quand même.

 

[crackwood01]

Re : 2 valeurs combobox

Je voudrais par exemple que dans ma combobox soient renvoyés le numero de transport et le nom du chauffeur.

 

[Dranreb]

Re : 2 valeurs combobox

Alors la recherche ne pourra être effectuée que soit sur le numéro soit le nom mais pas les deux.

 

[Regueiro]

Re : 2 valeurs combobox

Bonsoir Le Forum
Sans fichier joint ?
Un essai

Private Sub UserForm_Initialize()
Dim Plage As Range
Dim i As Integer
Dim Ncol
Dim Tablo()
Ncol = 2
Me.ComboBox1.Clear
With Sheets("Données")
Set Plage = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With

ReDim Tablo(0 To Plage.Rows.Count - 1, 1 To 2)
For Each cell In Plage
Tablo(i, 1) = cell.Text
Tablo(i, 2) = cell.Offset(, 2).Text
i = i + 1
Next

Me.ComboBox1.list = Tablo()

End Sub